Searched refs:ninstsm (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 | 447 REAL(KIND=r8) :: ninstsm(mgncol,nlev) ! number concentration local
834 ninstsm(i,k) = dum*ns(i,k)
839 ns(i,k) = max(ns(i,k) - ninstsm(i,k), 0._r8)
841 nr(i,k) = max(nr(i,k) + ninstsm(i,k), 0._r8)
|