Searched refs:faltnds (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 | 557 REAL(KIND=r8) :: faltnds local
1686 faltnds = falouts(k)/pdel(i,k)
1688 qstend(i,k) = qstend(i,k)-faltnds/nstep
1691 qssedten(i,k) = qssedten(i,k)-faltnds/nstep
1692 dums(i,k) = dums(i,k)-faltnds*deltat/real(nstep)
1695 faltnds = (falouts(k)-falouts(k-1))/pdel(i,k)
1698 qstend(i,k) = qstend(i,k)-faltnds/nstep
1701 qssedten(i,k) = qssedten(i,k)-faltnds/nstep
1702 dums(i,k) = dums(i,k)-faltnds*deltat/real(nstep)
|