From 551e50387c12192ded6965a83818db4bdad41144 Mon Sep 17 00:00:00 2001 From: joeolson42 Date: Fri, 3 Nov 2023 19:53:45 +0000 Subject: [PATCH] removing the effective radii limit due to concerns by GFS developers --- physics/module_mp_thompson.F90 | 1 - 1 file changed, 1 deletion(-) diff --git a/physics/module_mp_thompson.F90 b/physics/module_mp_thompson.F90 index fd5a6e770..4e0e2b79e 100644 --- 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