Searched refs:faltndns (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 | 558 REAL(KIND=r8) :: faltndns local
1687 faltndns = faloutns(k)/pdel(i,k)
1689 nstend(i,k) = nstend(i,k)-faltndns/nstep
1693 dumns(i,k) = dumns(i,k)-faltndns*deltat/real(nstep)
1696 faltndns = (faloutns(k)-faloutns(k-1))/pdel(i,k)
1699 nstend(i,k) = nstend(i,k)-faltndns/nstep
1703 dumns(i,k) = dumns(i,k)-faltndns*deltat/real(nstep)
|