From 85f57d1fe79f2db136b5081ac19676b87580f11b Mon Sep 17 00:00:00 2001 From: "Ruiyu.Sun" Date: Thu, 16 Oct 2025 16:30:33 +0000 Subject: [PATCH 1/2] change to use moorthi parameters in xu/randall for Thompson MP --- physics/Radiation/radiation_clouds.f | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/physics/Radiation/radiation_clouds.f b/physics/Radiation/radiation_clouds.f index d177cc951..b2c6546f1 100644 --- a/physics/Radiation/radiation_clouds.f +++ b/physics/Radiation/radiation_clouds.f @@ -2088,7 +2088,7 @@ subroutine progcld_thompson_wsm6 & integer :: i, k, id, nf ! --- constant values - real (kind=kind_phys), parameter :: xrc3 = 100. + real (kind=kind_phys), parameter :: xrc3 = 2000. real (kind=kind_phys), parameter :: snow2ice = 0.25 real (kind=kind_phys), parameter :: coef_t = 0.025 ! @@ -3878,7 +3878,8 @@ subroutine cloud_fraction_mass_flx_2 & onemrh= max( 1.e-10, 1.0-rhly(i,k) ) clwm = clwmin / max( 0.01, plyr(i,k)*0.001 ) - tem1 = min(max((onemrh*qstl(i,k))**0.49,0.0001),1.0) !jhan + !tem1 = min(max((onemrh*qstl(i,k))**0.49,0.0001),1.0) !jhan + tem1 = min(max(sqrt(sqrt(onemrh*qstl(i,k))),0.0001),1.0) if (lmfdeep2) then tem1 = xrc3 / tem1 else From bf4042fd100ce70026d72c6d72315ec97e29383f Mon Sep 17 00:00:00 2001 From: "Ruiyu.Sun" Date: Mon, 20 Oct 2025 13:58:48 +0000 Subject: [PATCH 2/2] remove a comment line in radiation_clouds.f --- physics/Radiation/radiation_clouds.f | 1 - 1 file changed, 1 deletion(-) diff --git a/physics/Radiation/radiation_clouds.f b/physics/Radiation/radiation_clouds.f index 8bd1d48bc..1175353de 100644 --- a/physics/Radiation/radiation_clouds.f +++ b/physics/Radiation/radiation_clouds.f @@ -3866,7 +3866,6 @@ subroutine cloud_fraction_mass_flx_2 & onemrh= max( 1.e-10, 1.0-rhly(i,k) ) clwm = clwmin / max( 0.01, plyr(i,k)*0.001 ) - !tem1 = min(max((onemrh*qstl(i,k))**0.49,0.0001),1.0) !jhan tem1 = min(max(sqrt(sqrt(onemrh*qstl(i,k))),0.0001),1.0) if (lmfdeep2) then tem1 = xrc3 / tem1