Searched refs:pracs (Results 1 – 2 of 2) sorted by relevance
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/CAM5_mg2_pgi/src/ |
| H A D | micro_mg2_0.F90 | 482 REAL(KIND=r8) :: pracs(mgncol,nlev) ! mass mixing ratio local
1062 n0r(:,k), lams(:,k), n0s(:,k), pracs(:,k), npracs(:,k))
1182 …dum = ((-pre(i,k)+pracs(i,k)+mnuccr(i,k)+mnuccri(i,k))*precip_frac(i,k)- (pra(i,k)+pr…
1185 …IF (dum.gt.qr(i,k).and. (-pre(i,k)+pracs(i,k)+mnuccr(i,k)+mnuccri(i,k)).ge.qsmall) TH…
1187 +pracs(i,k)+mnuccr(i,k)+mnuccri(i,k))*omsm
1189 pracs(i,k) = pracs(i,k)*ratio
1264 …i,k)+(pracs(i,k)+mnuccr(i,k))*precip_frac(i,k))/ precip_frac(i,k)/(-prds(i,k))*omsm
1334 …+mnucct(i,k)+msacwi(i,k))*lcldm(i,k)+(mnuccr(i,k)+ pracs(i,k)+mnuccri(i,k))*precip_fr…
1343 …i,k) = qrtend(i,k)+ (pra(i,k)+prc(i,k))*lcldm(i,k)+(pre(i,k)-pracs(i,k)- …
1346 prds(i,k)+ pracs(i,k)+mnuccr(i,k))*precip_frac(i,k)
[all …]
|
| 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
714 REAL(KIND=r8), intent(out) :: pracs ! MMR local
725 …pracs = common_factor*pi*rhow* sqrt((1.2_r8*umr-0.95_r8*ums)**2 + 0.08_r8*ums*umr) / lam…
730 pracs = 0._r8
|