Searched refs:dumns (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 | 578 REAL(KIND=r8) :: dumns(mgncol,nlev) ! snow number concentration local
1538 dumns(i,k) = max((ns(i,k)+nstend(i,k)*deltat),0._r8)
1542 IF (dums(i,k).lt.qsmall) dumns(i,k) = 0._r8
1682 faloutns = fns * dumns(i,:)
1693 dumns(i,k) = dumns(i,k)-faltndns*deltat/real(nstep)
1703 dumns(i,k) = dumns(i,k)-faltndns*deltat/real(nstep)
1720 dumns(i,k) = max(ns(i,k)+nstend(i,k)*deltat,0._r8)
1732 IF (dums(i,k).lt.qsmall) dumns(i,k) = 0._r8
1749 nstend(i,k) = nstend(i,k)-dum*dumns(i,k)/deltat
1974 dum = dumns(i,k)
[all …]
|