Searched refs:re_ice (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 389 REAL(KIND=r8), intent(in), pointer :: re_ice(:,:) ! ice effective radius (m) local 592 …ice .or. (associated(tnd_qsnow) .and. associated(tnd_nsnow) .and. associated(re_ice)))) THEN 1922 effi(i,k) = re_ice(i,k) * 1.e6_r8 ! m -> um
|