Fix unassociated forcingHead when time varying forcing is off

E3SM-Ocean-Discussion · Jun 13, 2023 · 647f5fe · 647f5fe
1 parent 3e4bbdc
commit 647f5fe
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/components/mpas-ocean/src/mode_forward/mpas_ocn_forward_mode.F b/components/mpas-ocean/src/mode_forward/mpas_ocn_forward_mode.F
@@ -836,8 +836,11 @@ function ocn_forward_mode_run(domain) result(ierr)!{{{
            ! time-step as opposed at each RK substage as implemented in RK4
            call ocn_time_varying_forcing_get(domain % streamManager, domain, domain % clock)
          else
-           ! increment forcing clock to next time-step
-           call mpas_advance_forcing_clock(forcingGroupHead, dt)
+           if (config_use_time_varying_atmospheric_forcing .or. &
+               config_use_time_varying_land_ice_forcing) then
+             ! increment forcing clock to next time-step
+             call mpas_advance_forcing_clock(forcingGroupHead, dt)
+           endif
          endif
 
          ! Validate that the state is OK to run with for the next timestep.