diff --git a/ccpp/config/ccpp_prebuild_config.py b/ccpp/config/ccpp_prebuild_config.py index 1e5bca1c1..2eeac4201 100755 --- a/ccpp/config/ccpp_prebuild_config.py +++ b/ccpp/config/ccpp_prebuild_config.py @@ -194,9 +194,9 @@ 'ccpp/physics/physics/noahmpdrv.F90' , 'ccpp/physics/physics/flake_driver.F90' , 'ccpp/physics/physics/clm_lake.f90' , - 'ccpp/physics/physics/sfc_nst_pre.f' , - 'ccpp/physics/physics/sfc_nst.f' , - 'ccpp/physics/physics/sfc_nst_post.f' , + 'ccpp/physics/physics/sfc_nst_pre.f90' , + 'ccpp/physics/physics/sfc_nst.f90' , + 'ccpp/physics/physics/sfc_nst_post.f90' , 'ccpp/physics/physics/sfc_ocean.F' , 'ccpp/physics/physics/sfc_sice.f' , 'ccpp/physics/physics/mp_fer_hires.F90' , diff --git a/ccpp/physics b/ccpp/physics index c552057f5..5c2d490b8 160000 --- a/ccpp/physics +++ b/ccpp/physics @@ -1 +1 @@ -Subproject commit c552057f566d4a3b75c6ea2689450b3a084d8338 +Subproject commit 5c2d490b888aecb7b6ac0021007d0ce58a4d1c20 diff --git a/scm/src/CCPP_typedefs.F90 b/scm/src/CCPP_typedefs.F90 index f3f07fa3f..878422d39 100644 --- a/scm/src/CCPP_typedefs.F90 +++ b/scm/src/CCPP_typedefs.F90 @@ -137,6 +137,7 @@ module CCPP_typedefs logical, pointer :: flag_cice(:) => null() !< logical, pointer :: flag_guess(:) => null() !< logical, pointer :: flag_iter(:) => null() !< + logical, pointer :: flag_lakefreeze(:) => null() !< real (kind=kind_phys), pointer :: ffmm_ice(:) => null() !< real (kind=kind_phys), pointer :: ffmm_land(:) => null() !< real (kind=kind_phys), pointer :: ffmm_water(:) => null() !< @@ -539,6 +540,7 @@ subroutine gfs_interstitial_create (Interstitial, IM, Model) allocate (Interstitial%flag_cice (IM)) allocate (Interstitial%flag_guess (IM)) allocate (Interstitial%flag_iter (IM)) + allocate (Interstitial%flag_lakefreeze (IM)) allocate (Interstitial%ffmm_ice (IM)) allocate (Interstitial%ffmm_land (IM)) allocate (Interstitial%ffmm_water (IM)) @@ -1235,6 +1237,7 @@ subroutine gfs_interstitial_phys_reset (Interstitial, Model) Interstitial%flag_cice = .false. Interstitial%flag_guess = .false. Interstitial%flag_iter = .true. + Interstitial%flag_lakefreeze = .false. Interstitial%ffmm_ice = Model%huge Interstitial%ffmm_land = Model%huge Interstitial%ffmm_water = Model%huge diff --git a/scm/src/CCPP_typedefs.meta b/scm/src/CCPP_typedefs.meta index 6cba7b06a..f706f2a45 100644 --- a/scm/src/CCPP_typedefs.meta +++ b/scm/src/CCPP_typedefs.meta @@ -890,6 +890,12 @@ units = flag dimensions = (horizontal_loop_extent) type = logical +[flag_lakefreeze] + standard_name = flag_for_lake_water_freeze + long_name = flag for lake water freeze + units = flag + dimensions = (horizontal_loop_extent) + type = logical [ffmm_water] standard_name = Monin_Obukhov_similarity_function_for_momentum_over_water long_name = Monin-Obukhov similarity function for momentum over water