Searched refs:qssedten (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 | 231 …umr, ums, qcsedten, qisedten, qrsedten, qssedten, pratot, prctot, mnuccctot, mnuccttot, msacwitot,… argument 338 REAL(KIND=r8), intent(out) :: qssedten(:,:) ! qs sedimentation tendency (1/s) local 677 qssedten = 0._r8 1691 qssedten(i,k) = qssedten(i,k)-faltnds/nstep 1701 qssedten(i,k) = qssedten(i,k)-faltnds/nstep
|