Searched refs:vap_dep (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 | 373 …TINE ice_deposition_sublimation(t, qv, qi, ni, icldm, rho, dv, qvl, qvi, berg, vap_dep, ice_sublim) argument
387 REAL(KIND=r8), intent(out) :: vap_dep !ice deposition (cell-ave value) local
410 vap_dep = epsi/ab*(qv - qvi)
412 vap_dep = vap_dep*icldm
414 IF (t < tmelt .and. vap_dep>0._r8) THEN
418 ice_sublim = min(vap_dep,0._r8)
419 vap_dep = 0._r8
430 vap_dep = 0._r8
|
| H A D | micro_mg2_0.F90 | 452 REAL(KIND=r8) :: vap_dep(mgncol,nlev) ! deposition from vapor to ice PMC 12/3/12 local
1083 qvi(:,k), berg(:,k), vap_dep(:,k), ice_sublim(:,k))
1086 nsubi(:,k) = vap_dep(:,k) / qi(:,k) * ni(:,k) / icldm(:,k)
1125 vap_dep(i,k) = vap_dep(i,k)*(1._r8-qcrat(i,k))
1138 dum1 = vap_dep(i,k) + mnuccd(i,k)
1146 dum1 = mnuccd(i,k) / (vap_dep(i,k)+mnuccd(i,k))
1148 vap_dep(i,k) = dum - mnuccd(i,k)
1299 qtmp = q(i,k)-(vap_dep(i,k)+mnuccd(i,k))*deltat
1300 ttmp = t(i,k)+((vap_dep(i,k)+mnuccd(i,k))*xxls)*deltat/cpp
1347 cmeout(i,k) = vap_dep(i,k) + ice_sublim(i,k) + mnuccd(i,k)
[all …]
|