From 5e3f87adb858a4dad1accbe486b645bf0d164039 Mon Sep 17 00:00:00 2001 From: "anning.cheng" Date: Fri, 29 Mar 2024 15:21:48 -0400 Subject: [PATCH 1/2] create mr2_innl and fixed evaporation for mraerosol --- physics/MP/Thompson/module_mp_thompson.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/physics/MP/Thompson/module_mp_thompson.F90 b/physics/MP/Thompson/module_mp_thompson.F90 index 62e2688c7..a5f7cf207 100644 --- a/physics/MP/Thompson/module_mp_thompson.F90 +++ b/physics/MP/Thompson/module_mp_thompson.F90 @@ -3587,7 +3587,7 @@ subroutine mp_thompson (qv1d, qc1d, qi1d, qr1d, qs1d, qg1d, ni1d, & !+---+-----------------------------------------------------------------+ ! EVAPORATION elseif (clap .lt. -eps .AND. ssatw(k).lt.-1.E-6 .AND. & - (is_aerosol_aware .or. merra2_aerosol_aware)) then + (is_aerosol_aware)) then tempc = temp(k) - 273.15 otemp = 1./temp(k) rvs = rho(k)*qvs(k) From cb2eedd54241523ca8bab09af86b4a45fa0bdd1b Mon Sep 17 00:00:00 2001 From: "anning.cheng" Date: Mon, 1 Apr 2024 14:48:03 -0400 Subject: [PATCH 2/2] fixed excessive evap --- physics/MP/Thompson/module_mp_thompson.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/physics/MP/Thompson/module_mp_thompson.F90 b/physics/MP/Thompson/module_mp_thompson.F90 index a5f7cf207..af1a0fc0d 100644 --- a/physics/MP/Thompson/module_mp_thompson.F90 +++ b/physics/MP/Thompson/module_mp_thompson.F90 @@ -3587,7 +3587,7 @@ subroutine mp_thompson (qv1d, qc1d, qi1d, qr1d, qs1d, qg1d, ni1d, & !+---+-----------------------------------------------------------------+ ! EVAPORATION elseif (clap .lt. -eps .AND. ssatw(k).lt.-1.E-6 .AND. & - (is_aerosol_aware)) then + is_aerosol_aware) then tempc = temp(k) - 273.15 otemp = 1./temp(k) rvs = rho(k)*qvs(k)