Merge pull request NCAR#313 from climbfuji/gmtb_develop_update_from_m…

…aster_20190830 gmtb/develop: add CCPP changes for IPD physics changes from EMC master 2019/08/30
climbfuji · Sep 3, 2019 · 6abba22 · 6abba22
2 parents d858b98 + bd616c3
commit 6abba22
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/physics/GFS_time_vary_pre.fv3.F90 b/physics/GFS_time_vary_pre.fv3.F90
@@ -119,6 +119,9 @@ subroutine GFS_time_vary_pre_run (Model, errmsg, errflg)
         !--- radiation triggers
         Model%lsswr  = (mod(Model%kdt, Model%nsswr) == 1)
         Model%lslwr  = (mod(Model%kdt, Model%nslwr) == 1)
+        !--- allow for radiation to be called on every physics time step, if needed
+        if (Model%nsswr == 1)  Model%lsswr = .true.
+        if (Model%nslwr == 1)  Model%lslwr = .true.
 
         !--- set the solar hour based on a combination of phour and time initial hour
         Model%solhr  = mod(Model%phour+Model%idate(1),con_24)

diff --git a/physics/GFS_time_vary_pre.scm.F90 b/physics/GFS_time_vary_pre.scm.F90
@@ -119,6 +119,9 @@ subroutine GFS_time_vary_pre_run (Model, errmsg, errflg)
         !--- radiation triggers
         Model%lsswr  = (mod(Model%kdt, Model%nsswr) == 1)
         Model%lslwr  = (mod(Model%kdt, Model%nslwr) == 1)
+        !--- allow for radiation to be called on every physics time step, if needed
+        if (Model%nsswr == 1)  Model%lsswr = .true.
+        if (Model%nslwr == 1)  Model%lslwr = .true.
 
         !--- set the solar hour based on a combination of phour and time initial hour
         Model%solhr  = mod(Model%phour+Model%idate(1),con_24)