Searched refs:minstrf (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 | 449 REAL(KIND=r8) :: minstrf(mgncol,nlev) ! mass mixing ratio local
857 minstrf(i,k) = dum*qr(i,k)
860 dum1 = xlf*minstrf(i,k)/deltat
863 qr(i,k) = max(qr(i,k) - minstrf(i,k), 0._r8)
865 qs(i,k) = max(qs(i,k) + minstrf(i,k), 0._r8)
|