Searched refs:npracs (Results 1 – 2 of 2) sorted by relevance
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/CAM5_mg2_pgi/src/ |
H A D | micro_mg_utils.F90 | 693 …TINE accrete_rain_snow(t, rho, umr, ums, unr, uns, qric, qsic, lamr, n0r, lams, n0s, pracs, npracs) argument 715 REAL(KIND=r8), intent(out) :: npracs ! Number local 727 …npracs = common_factor*0.5_r8* sqrt(1.7_r8*(unr-uns)**2 + 0.3_r8*unr*uns) * ((… 731 npracs = 0._r8
|
H A D | micro_mg2_0.F90 | 483 REAL(KIND=r8) :: npracs(mgncol,nlev) ! number concentration local 1062 n0r(:,k), lams(:,k), n0s(:,k), pracs(:,k), npracs(:,k)) 1207 …dum = ((-nsubr(i,k)+npracs(i,k)+nnuccr(i,k)+nnuccri(i,k)-nragg(i,k))*precip_frac(i,k)- … 1210 …= (nr(i,k)/deltat+nprc(i,k)*lcldm(i,k)/precip_frac(i,k))/ (-nsubr(i,k)+npracs(i,k)& 1213 npracs(i,k) = npracs(i,k)*ratio 1398 …nrtend(i,k) = nrtend(i,k)+ nprc(i,k)*lcldm(i,k)+(nsubr(i,k)-npracs(i,k)-nnuccr(i,k) …
|