Searched refs:precip_frac (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 | 716 precip_frac = mincld
903 precip_frac = cldm
908 precip_frac(:,k) = precip_frac(:,k-1)
917 precip_frac(:,k) = max(precip_frac(:,k-1),precip_frac(:,k))
1296 … dum1 = pre(i,k)*precip_frac(i,k)/((pre(i,k)+prds(i,k))*precip_frac(i,k)+ice_sublim(i,k))
1297 … dum2 = prds(i,k)*precip_frac(i,k)/((pre(i,k)+prds(i,k))*precip_frac(i,k)+ice_sublim(i,k))
1361 *precip_frac(i,k)
2006 qrout2 = qrout * precip_frac
2007 nrout2 = nrout * precip_frac
2011 freqr = precip_frac
[all …]
|
| H A D | micro_mg_utils.F90 | 842 …INE evaporate_sublimate_precip(t, rho, dv, mu, sc, q, qvl, qvi, lcldm, precip_frac, arn, asn, qcic… argument
853 REAL(KIND=r8), intent(in) :: precip_frac ! precipitation fraction (maximum overlap) local
885 IF (precip_frac > dum) THEN
896 pre = min(pre*(precip_frac-dum),0._r8)
897 pre = pre/precip_frac
908 prds = min(prds*(precip_frac-dum),0._r8)
909 prds = prds/precip_frac
|