Searched refs:qctend (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 | 721 qctend = 0._r8
1336 …qctend(i,k) = qctend(i,k)+ (-pra(i,k)-prc(i,k)-mnuccc(i,k)-mnucct(i,k)-msacwi(i,k)- …
1466 dumc(i,k) = (qc(i,k)+qctend(i,k)*deltat)/lcldm(i,k)
1531 dumc(i,k) = (qc(i,k)+qctend(i,k)*deltat)
1614 qctend(i,k) = qctend(i,k)-faltndc/nstep
1627 qctend(i,k) = qctend(i,k)-faltndc/nstep
1713 dumc(i,k) = max(qc(i,k)+qctend(i,k)*deltat,0._r8)
1802 qctend(i,k) = qctend(i,k)+dum*dumi(i,k)/deltat
1864 qctend(i,k) = qctend(i,k)+dum*(1._r8-dum1)
1881 dumc(i,k) = max(qc(i,k)+qctend(i,k)*deltat,0._r8)/lcldm(i,k)
[all …]
|