Searched refs:lcldm (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 | 619 lcldm = 1._r8
621 lcldm = mincld
628 cldm = max(icldm, lcldm)
632 lcldm = max(liqcldf,mincld)
1159 i,k))*lcldm(i,k))*omsm
1183 *lcldm(i,k))*deltat
1208 *lcldm(i,k))*deltat
1372 pratot(i,k) = pra(i,k)*lcldm(i,k)
1386 k)-nprc1(i,k))*lcldm(i,k)
1621 dum = lcldm(i,k)/lcldm(i,k-1)
[all …]
|
| H A D | micro_mg_utils.F90 | 842 …elemental SUBROUTINE evaporate_sublimate_precip(t, rho, dv, mu, sc, q, qvl, qvi, lcldm, precip_fra… argument
852 REAL(KIND=r8), intent(in) :: lcldm ! liquid cloud fraction local
882 dum = lcldm
|