Searched refs:dumnr (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 | 576 REAL(KIND=r8) :: dumnr(mgncol,nlev) ! rain number concentration local
1536 dumnr(i,k) = max((nr(i,k)+nrtend(i,k)*deltat),0._r8)
1541 IF (dumr(i,k).lt.qsmall) dumnr(i,k) = 0._r8
1649 faloutnr = fnr * dumnr(i,:)
1660 dumnr(i,k) = dumnr(i,k)-faltndnr*deltat/real(nstep)
1670 dumnr(i,k) = dumnr(i,k)-faltndnr*deltat/real(nstep)
1718 dumnr(i,k) = max(nr(i,k)+nrtend(i,k)*deltat,0._r8)
1731 IF (dumr(i,k).lt.qsmall) dumnr(i,k) = 0._r8
1771 nrtend(i,k) = nrtend(i,k)-dum*dumnr(i,k)/deltat
1964 dum = dumnr(i,k)
[all …]
|