From 587b97d41fce8c494dd863d30fec1182ee87e846 Mon Sep 17 00:00:00 2001 From: Greg Thompson Date: Thu, 6 May 2021 09:00:12 -0600 Subject: [PATCH] bugfix, initialization of sfc aero source term qnwfa2d, similar to PR number 1423 --- dyn_em/module_initialize_real.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dyn_em/module_initialize_real.F b/dyn_em/module_initialize_real.F index ce53a5b8ff..245c14960d 100644 --- a/dyn_em/module_initialize_real.F +++ b/dyn_em/module_initialize_real.F @@ -4361,7 +4361,7 @@ SUBROUTINE init_domain_rk ( grid & do i = its, min(ide-1,ite) z1 = (grid%phb(i,2,j)-grid%phb(i,1,j))/g airmass = 1./grid%alt(i,1,j) * z1 * config_flags%dx*config_flags%dy ! kg - grid%qnwfa2d(i,j) = grid%QNWFA_now(i,1,j) * 0.000196 * (airmass*2.E-10) + grid%qnwfa2d(i,j) = grid%QNWFA_now(i,1,j) * 0.000196 * (airmass*5.E-11) if(i.eq.its .and. j.eq.jts) then write(a_message,*) 'aero_sfc_flux: ', i,j,z1,1./grid%alt(i,1,j),airmass,grid%QNWFA_now(i,1,j),grid%qnwfa2d(i,j) CALL wrf_debug (1, a_message)