Searched refs:ice_sublim (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 | 454 REAL(KIND=r8) :: ice_sublim(mgncol,nlev) ! sublimation from ice to vapor PMC 12/3/12 local
1083 qvi(:,k), berg(:,k), vap_dep(:,k), ice_sublim(:,k))
1229 ((prci(i,k)+prai(i,k))*icldm(i,k)-ice_sublim(i,k))*omsm
1232 ice_sublim(i,k) = ice_sublim(i,k)*ratio
1287 IF ((pre(i,k)+prds(i,k))*precip_frac(i,k)+ice_sublim(i,k) < -1.e-20_r8) THEN
1291 +ice_sublim(i,k)+mnuccd(i,k))*xxls)*deltat/cpp
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))
1315 ice_sublim(i,k) = dum*dum1/deltat
1347 cmeout(i,k) = vap_dep(i,k) + ice_sublim(i,k) + mnuccd(i,k)
[all …]
|
| H A D | micro_mg_utils.F90 | 373 …TINE ice_deposition_sublimation(t, qv, qi, ni, icldm, rho, dv, qvl, qvi, berg, vap_dep, ice_sublim) argument
388 REAL(KIND=r8), intent(out) :: ice_sublim !ice sublimation (cell-ave value) local
415 ice_sublim = 0._r8
418 ice_sublim = min(vap_dep,0._r8)
431 ice_sublim = 0._r8
|