Searched refs:qcrat (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 | 234 …drout2, dsout2, freqs, freqr, nfice, qcrat, errstring, tnd_qsnow, tnd_nsnow, re_ice, prer_evap, fr… argument
380 … REAL(KIND=r8), intent(out) :: qcrat(:,:) ! limiter for qc process rates (1=no limit --> 0. no qc) local
747 qcrat = 1._r8
1117 qcrat(i,k) = ratio
1119 qcrat(i,k) = 1._r8
1125 vap_dep(i,k) = vap_dep(i,k)*(1._r8-qcrat(i,k))
|