diff --git a/ccpp/config/ccpp_prebuild_config.py b/ccpp/config/ccpp_prebuild_config.py index d055a7f0..3d81ac64 100755 --- a/ccpp/config/ccpp_prebuild_config.py +++ b/ccpp/config/ccpp_prebuild_config.py @@ -301,6 +301,7 @@ 'ccpp/physics/physics/rrtmgp_sw_aerosol_optics.F90' : ['physics'], 'ccpp/physics/physics/rrtmgp_lw_rte.F90' : ['physics'], 'ccpp/physics/physics/rrtmgp_gfdlmp_lw_cloud_sampling.F90' : ['physics'], + 'ccpp/physics/physics/rrtmgp_lwadj.F90' : ['physics'], 'ccpp/physics/physics/rrtmgp_gfdlmp_sw_cloud_sampling.F90' : ['physics'], 'ccpp/physics/physics/rrtmgp_sw_rte.F90' : ['physics'], 'ccpp/physics/physics/rrtmgp_lw_aerosol_optics.F90' : ['physics'], diff --git a/ccpp/physics b/ccpp/physics index 16ab8762..b00d5fbf 160000 --- a/ccpp/physics +++ b/ccpp/physics @@ -1 +1 @@ -Subproject commit 16ab8762e1f16bc3228b4f173308326769a294e2 +Subproject commit b00d5fbf2189e65365ef0e04c741b82e1c6fe80b diff --git a/ccpp/suites/suite_SCM_GFS_v15p2_RRTMGP.xml b/ccpp/suites/suite_SCM_GFS_v15p2_RRTMGP.xml index 4d953944..1c7f4473 100644 --- a/ccpp/suites/suite_SCM_GFS_v15p2_RRTMGP.xml +++ b/ccpp/suites/suite_SCM_GFS_v15p2_RRTMGP.xml @@ -41,6 +41,7 @@ GFS_surface_composites_pre dcyc2t3 GFS_surface_composites_inter + rrtmgp_lwadj GFS_suite_interstitial_2 diff --git a/ccpp/suites/suite_SCM_GFS_v16beta_RRTMGP.xml b/ccpp/suites/suite_SCM_GFS_v16beta_RRTMGP.xml index bbbe933c..0bddf69e 100644 --- a/ccpp/suites/suite_SCM_GFS_v16beta_RRTMGP.xml +++ b/ccpp/suites/suite_SCM_GFS_v16beta_RRTMGP.xml @@ -41,6 +41,7 @@ GFS_surface_composites_pre dcyc2t3 GFS_surface_composites_inter + rrtmgp_lwadj GFS_suite_interstitial_2 diff --git a/scm/src/GFS_typedefs.F90 b/scm/src/GFS_typedefs.F90 index cd7cd026..f7fcdd73 100644 --- a/scm/src/GFS_typedefs.F90 +++ b/scm/src/GFS_typedefs.F90 @@ -1785,6 +1785,7 @@ module GFS_typedefs real (kind=kind_phys), pointer :: tsfc_land(:) => null() !< real (kind=kind_phys), pointer :: tsfc_ocean(:) => null() !< real (kind=kind_phys), pointer :: tsfg(:) => null() !< + real (kind=kind_phys), pointer :: sktp1r(:) => null() !< real (kind=kind_phys), pointer :: tsnow(:) => null() !< real (kind=kind_phys), pointer :: tsurf(:) => null() !< real (kind=kind_phys), pointer :: tsurf_ice(:) => null() !< @@ -5723,6 +5724,7 @@ subroutine interstitial_create (Interstitial, IM, Model) allocate (Interstitial%tsfc_land (IM)) allocate (Interstitial%tsfc_ocean (IM)) allocate (Interstitial%tsfg (IM)) + allocate (Interstitial%sktp1r (IM)) allocate (Interstitial%tsurf (IM)) allocate (Interstitial%tsurf_ice (IM)) allocate (Interstitial%tsurf_land (IM)) diff --git a/scm/src/GFS_typedefs.meta b/scm/src/GFS_typedefs.meta index fcc94575..ff273e87 100644 --- a/scm/src/GFS_typedefs.meta +++ b/scm/src/GFS_typedefs.meta @@ -8131,6 +8131,13 @@ dimensions = (horizontal_dimension) type = real kind = kind_phys +[sktp1r] + standard_name = surface_ground_temperature_for_radiation_at_previous_rad_time_step + long_name = surface ground temperature for radiation at previous radiation time step + units = K + dimensions = (horizontal_dimension) + type = real + kind = kind_phys [tsurf] standard_name = surface_skin_temperature_after_iteration long_name = surface skin temperature after iteration