Searched refs:mnuccd (Results 1 – 1 of 1) sorted by relevance
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/CAM5_mg2_pgi/src/ |
| H A D | micro_mg2_0.F90 | 457 REAL(KIND=r8) :: mnuccd(mgncol,nlev) ! mass mixing ratio local
809 mnuccd = nnuccd * mi0
813 mnuccd = 0._r8
1138 dum1 = vap_dep(i,k) + mnuccd(i,k)
1146 dum1 = mnuccd(i,k) / (vap_dep(i,k)+mnuccd(i,k))
1147 mnuccd(i,k) = dum*dum1
1148 vap_dep(i,k) = dum - mnuccd(i,k)
1291 +ice_sublim(i,k)+mnuccd(i,k))*xxls)*deltat/cpp
1331 -mnuccd(i,k)-mnudep(i,k)*lcldm(i,k)
1341 mnuccd(i,k)+mnuccri(i,k)*precip_frac(i,k)
[all …]
|