Added new scheme for RRTMGP LW surface flux adjustment between radiat…

…ion time-steps.
NCAR · Jun 11, 2020 · 3dc5469 · 3dc5469
1 parent 19f5ba9
commit 3dc5469
Show file tree

Hide file tree

Showing 6 changed files with 13 additions and 1 deletion.
diff --git 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
diff --git a/ccpp/suites/suite_SCM_GFS_v15p2_RRTMGP.xml b/ccpp/suites/suite_SCM_GFS_v15p2_RRTMGP.xml
@@ -41,6 +41,7 @@
       <scheme>GFS_surface_composites_pre</scheme>
       <scheme>dcyc2t3</scheme>
       <scheme>GFS_surface_composites_inter</scheme>
+      <scheme>rrtmgp_lwadj</scheme>
       <scheme>GFS_suite_interstitial_2</scheme>
     </subcycle>
     <!-- Surface iteration loop -->

diff --git a/ccpp/suites/suite_SCM_GFS_v16beta_RRTMGP.xml b/ccpp/suites/suite_SCM_GFS_v16beta_RRTMGP.xml
@@ -41,6 +41,7 @@
       <scheme>GFS_surface_composites_pre</scheme>
       <scheme>dcyc2t3</scheme>
       <scheme>GFS_surface_composites_inter</scheme>
+      <scheme>rrtmgp_lwadj</scheme>      
       <scheme>GFS_suite_interstitial_2</scheme>
     </subcycle>
     <!-- Surface iteration loop -->

diff --git 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
@@ -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