add _r_kind to 0.5

NOAA-EMC · Jul 26, 2024 · 1daf07b · 1daf07b
1 parent e28d668
commit 1daf07b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/gsi/crtm_interface.f90 b/src/gsi/crtm_interface.f90
@@ -2815,7 +2815,7 @@ subroutine calc_thompson_reff(rho_air,tsen,qxmr,cloud_name,reff)
               + sb(7)*tc0*tc0*cse(1) + sb(8)*tc0*cse(1)*cse(1) &
               + sb(9)*tc0*tc0*tc0 + sb(10)*cse(1)*cse(1)*cse(1)
            smoc = a_ * smob**b_
-           reff(k) = MAX(2.51E-6_r_kind, MIN(0.5*(smoc/smob), 1999.E-6_r_kind))
+           reff(k) = MAX(2.51E-6_r_kind, MIN(0.5_r_kind*(smoc/smob), 1999.E-6_r_kind))
            reff(k) = max(reff_min, min(reff_max, reff(k)*1.0e6_r_kind))
         else
            reff(k) = zero