Set reset alarm to start time not end of interval

This allows us to trigger a reset immediately upon returning from a restart.
E3SM-Project · Oct 20, 2022 · 83c98e3 · 83c98e3
1 parent d7cb102
commit 83c98e3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/components/mpas-ocean/src/analysis_members/mpas_ocn_time_series_stats.F b/components/mpas-ocean/src/analysis_members/mpas_ocn_time_series_stats.F
@@ -1636,15 +1636,15 @@ subroutine set_alarms(domain, instance, series, alarms, err)
      end if
 
     ! set next reset time and flag
-    when = alarms(b) % start_time + alarms(b) % reset_interval
+    when = alarms(b) % start_time
     if (current_time >= when) then
       elapsed = current_time - when
       call mpas_interval_division(when, elapsed, &
         alarms(b) % reset_interval, reset_n, reset_rem)
 
       if (reset_rem == zero_intv) then
         ! reset right now
-        reset_time = current_time + alarms(b) % reset_interval
+        reset_time = current_time
         series % buffers(b) % reset_flag = 1
       else
         reset_rem = alarms(b) % reset_interval - reset_rem