From 25669bc915dbbfbaae429939b32ca8d0dcd68dd2 Mon Sep 17 00:00:00 2001 From: Jeff Curtis Date: Wed, 6 Nov 2024 19:38:36 -0600 Subject: [PATCH] fix initialization of les to enable sf_sfclay_physics --- WRFV3/dyn_em/module_initialize_les.F | 8 ++++++-- WRFV3/test/em_les/namelist.input | 2 +- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/WRFV3/dyn_em/module_initialize_les.F b/WRFV3/dyn_em/module_initialize_les.F index 0d100a6..8ef88df 100644 --- a/WRFV3/dyn_em/module_initialize_les.F +++ b/WRFV3/dyn_em/module_initialize_les.F @@ -210,8 +210,7 @@ SUBROUTINE init_domain_rk ( grid & mminlu2 = ' ' mminlu2(1:4) = 'USGS' CALL nl_set_mminlu(1, mminlu2) -! CALL nl_set_mminlu(1, ' ') - CALL nl_set_iswater(1,0) + CALL nl_set_iswater(1,16) CALL nl_set_cen_lat(1,40.) CALL nl_set_cen_lon(1,-105.) CALL nl_set_truelat1(1,0.) @@ -241,6 +240,11 @@ SUBROUTINE init_domain_rk ( grid & ! for LES, include Coriolis force grid%f(i,j) = 1.e-4 +! for LES, initialize surface type and skin temperature + grid%xland(i,j) = 1. + grid%landmask(i,j) = 1. + grid%lu_index(i,j) = 7 + grid%tsk(i,j) = 280.0 END DO END DO diff --git a/WRFV3/test/em_les/namelist.input b/WRFV3/test/em_les/namelist.input index f1bab78..383dc53 100644 --- a/WRFV3/test/em_les/namelist.input +++ b/WRFV3/test/em_les/namelist.input @@ -59,7 +59,7 @@ ra_lw_physics = 0, 0, 0, ra_sw_physics = 0, 0, 0, radt = 0, 0, 0, - sf_sfclay_physics = 0, 1, 1, + sf_sfclay_physics = 1, 1, 1, sf_surface_physics = 0, 0, 0, bl_pbl_physics = 0, 0, 0, bldt = 0, 0, 0,