Searched refs:gamma_br_plus4 (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 | 173 REAL(KIND=r8) :: gamma_br_plus4 variable 211 READ(UNIT=kgen_unit) gamma_br_plus4 987 umr(:,k) = min(arn(:,k)*gamma_br_plus4/(6._r8*lamr(:,k)**br),9.1_r8*rhof(:,k)) 1510 … umr(i,k) = min(arn(i,k)*gamma_br_plus4/(6._r8*lamr(i,k)**br),9.1_r8*rhof(i,k))
|