diff --git a/ufs/ccpp/data/MED_typedefs.F90 b/ufs/ccpp/data/MED_typedefs.F90 index e5e1b494f..e7c84506e 100644 --- a/ufs/ccpp/data/MED_typedefs.F90 +++ b/ufs/ccpp/data/MED_typedefs.F90 @@ -73,6 +73,7 @@ module MED_typedefs real (kind=kind_phys),pointer :: lake_q2m (:) => null() !< 2 meter humidity from CLM Lake model real(kind=kind_phys), pointer :: wind(:) => null() !< wind speed at lowest model level (m/s) logical, pointer :: flag_iter(:) => null() !< flag for iteration + logical, pointer :: flag_lakefreeze(:) => null() !< flag for lake freeze real(kind=kind_phys), pointer :: qss_water(:) => null() !< surface air saturation specific humidity over water (kg/kg) real(kind=kind_phys), pointer :: cmm_water(:) => null() !< momentum exchange coefficient over water (m/s) real(kind=kind_phys), pointer :: chh_water(:) => null() !< thermal exchange coefficient over water (kg/m2s) @@ -368,6 +369,8 @@ subroutine interstitial_create(interstitial, im) interstitial%wind = huge allocate(interstitial%flag_iter(im)) interstitial%flag_iter = .true. + allocate(interstitial%flag_lakefreeze(im)) + interstitial%flag_lakefreeze = .false. allocate(interstitial%qss_water(im)) interstitial%qss_water = huge allocate(interstitial%cmm_ice(im)) @@ -571,6 +574,7 @@ subroutine interstitial_phys_reset(interstitial) interstitial%flag_cice = .false. interstitial%flag_guess = .false. interstitial%flag_iter = .true. + interstitial%flag_lakefreeze = .false. interstitial%fm10_ice = huge interstitial%fm10_land = huge interstitial%fm10_water = huge diff --git a/ufs/ccpp/data/MED_typedefs.meta b/ufs/ccpp/data/MED_typedefs.meta index 271110e9c..287739339 100644 --- a/ufs/ccpp/data/MED_typedefs.meta +++ b/ufs/ccpp/data/MED_typedefs.meta @@ -237,6 +237,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 [qss_water] standard_name = surface_specific_humidity_over_water long_name = surface air saturation specific humidity over water