removing the effective radii limit due to concerns by GFS developers

joeolson42 · Nov 3, 2023 · 551e503 · 551e503
1 parent ce7a3c0
commit 551e503
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/physics/module_mp_thompson.F90 b/physics/module_mp_thompson.F90
@@ -5849,7 +5849,6 @@ subroutine calc_effectRad (t1d, p1d, qv1d, qc1d, nc1d, qi1d, ni1d, qs1d,   &
          endif
          lamc = (nc(k)*am_r*g_ratio(inu_c)/rc(k))**obmr
          re_qc1d(k) = SNGL(0.5D0 * DBLE(3.+inu_c)/lamc)
-         if (lsml .ne. 1) re_qc1d(k) = max(re_qc1d(k), 7.0E-6)
       enddo
       endif