From 3e319275d4643d0bb3348e6e63b53900de76fc3b Mon Sep 17 00:00:00 2001 From: Ruiyu Sun Date: Wed, 7 Feb 2024 21:24:52 +0000 Subject: [PATCH] correct a bug --- physics/MP/GFDL_2022_v3/gfdl_cld_mp_v3.F90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/physics/MP/GFDL_2022_v3/gfdl_cld_mp_v3.F90 b/physics/MP/GFDL_2022_v3/gfdl_cld_mp_v3.F90 index 09b3f6cac..c11bec68d 100644 --- a/physics/MP/GFDL_2022_v3/gfdl_cld_mp_v3.F90 +++ b/physics/MP/GFDL_2022_v3/gfdl_cld_mp_v3.F90 @@ -183,7 +183,7 @@ subroutine gfdl_cld_mp_v3_run( real(kind=kind_phys), dimension(1:im,1,1:levs) :: pfils, pflls real(kind=kind_phys), dimension(1:im,1,1:levs) :: adj_vmr, te real(kind=kind_phys), dimension(1:im,1:levs) :: prefluxw, prefluxr, prefluxi, prefluxs, prefluxg - real(kind=kind_phys), dimension(1:im) :: dte, hs + real(kind=kind_phys), dimension(1:im) :: dte, hs, gsize !real(kind=kind_phys), dimension(:,:), allocatable :: den real(kind=kind_phys), dimension(1:im) :: water0 real(kind=kind_phys) :: onebg @@ -262,9 +262,10 @@ subroutine gfdl_cld_mp_v3_run( last_step = .false. do_inline_mp = .false. hs = oro(:) * con_g + gsize = sqrt(garea(:)) call module_gfdl_cld_mp_driver( qv1, ql1, qr1, qi1, qs1, qg1, qa1, qnl, qni, pt, w,& - uin, vin, dz, delp, garea, dtp, hs, water0, rain0, & + uin, vin, dz, delp, gsize, dtp, hs, water0, rain0, & ice0, snow0, graupel0, hydrostatic, iis, iie, kks, kke, q_con, cappa, & fast_mp_consv, adj_vmr, te, dte, prefluxw, prefluxr, prefluxi, prefluxs, & prefluxg, last_step, do_inline_mp )