diff --git a/physics/GFS_time_vary_pre.fv3.F90 b/physics/GFS_time_vary_pre.fv3.F90 index 4fecabad5..de33b5404 100644 --- 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 index bb246cd32..c2151151d 100644 --- 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)