Home
last modified time | relevance | path

Searched refs:nrout (Results 1 – 5 of 5) sorted by relevance

/dports/science/nwchem-data/nwchem-7.0.2-release/src/ccsd/
H A Dqstat.F54 do 100 i=1,nrout
58 nrout=nrout+1
59 if(nrout.gt.mxrout) then
64 n=nrout
153 do 100 i=1,nrout
179 call ga_dgop(msg_qstat_3,nrout,1,'min')
180 do 300 i=1,nrout
221 data level,nrout/0,0/
239 nrout = 0
H A Dqdata.fh11 common /qdata/ no, tcp, tcp0, tio, tio0, ncall, name, level, nrout
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ccsd/
H A Dqstat.F54 do 100 i=1,nrout
58 nrout=nrout+1
59 if(nrout.gt.mxrout) then
64 n=nrout
153 do 100 i=1,nrout
179 call ga_dgop(msg_qstat_3,nrout,1,'min')
180 do 300 i=1,nrout
221 data level,nrout/0,0/
239 nrout = 0
H A Dqdata.fh11 common /qdata/ no, tcp, tcp0, tio, tio0, ncall, name, level, nrout
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/CAM5_mg2_pgi/src/
H A Dmicro_mg2_0.F90233 …nrout, nsout, refl, arefl, areflz, frefl, csrfl, acsrfl, fcsrfl, rercld, ncai, ncal, qrout2, qsout… argument
359 REAL(KIND=r8), intent(out) :: nrout(:,:) ! rain number concentration (1/m3) local
702 nrout = 0._r8
1414 nrout = nr * rho
2005 WHERE ( qrout .gt. 1.e-7_r8 .and. nrout.gt.0._r8 )
2007 nrout2 = nrout * precip_frac
2010 drout2 = avg_diameter(qrout, nrout, rho, rhow)