Home
last modified time | relevance | path

Searched refs:rainrt (Results 1 – 1 of 1) sorted by relevance

/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/CAM5_mg2_pgi/src/
H A Dmicro_mg2_0.F90559 REAL(KIND=r8) :: rainrt(mgncol,nlev) ! rain rate for reflectivity calculation local
705 rainrt = 0._r8
2063 IF (rainrt(i,k).ge.0.001_r8) THEN
2064 dum = log10(rainrt(i,k)**6._r8)+16._r8