Home
last modified time | relevance | path

Searched refs:qvlat (Results 1 – 1 of 1) sorted by relevance

/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/CAM5_mg2_pgi/src/
H A Dmicro_mg2_0.F90228 …pdel, cldn, liqcldf, icecldf, qcsinksum_rate1ord, naai, npccn, rndst, nacon, tlat, qvlat, qctend, … argument
298 REAL(KIND=r8), intent(out) :: qvlat(:,:) ! microphysical tendency qv (1/s) local
720 qvlat = 0._r8
1330qvlat(i,k) = qvlat(i,k)-(pre(i,k)+prds(i,k))*precip_frac(i,k)- vap_dep(i,k)-ice_sublim…
1587 qvlat(i,k) = qvlat(i,k)-(faltndqie-faltndi)/nstep
1632 qvlat(i,k) = qvlat(i,k)-(faltndqce-faltndc)/nstep
1844 qtmp = q(i,k)+qvlat(i,k)*deltat
1869 qvlat(i,k) = qvlat(i,k)-dum