From bd616c3ca2ce440c72938193975e3a29df456642 Mon Sep 17 00:00:00 2001 From: climbfuji Date: Fri, 30 Aug 2019 15:41:35 -0600 Subject: [PATCH] physics/GFS_time_vary_pre.fv3.F90 physics/GFS_time_vary_pre.scm.F90: reflect changes in GFS_physics_driver.F90 for calling radiation at every time step --- physics/GFS_time_vary_pre.fv3.F90 | 3 +++ physics/GFS_time_vary_pre.scm.F90 | 3 +++ 2 files changed, 6 insertions(+) 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)