0th timestep fixes

olyson · Jun 15, 2023 · 5d0a183 · 5d0a183
1 parent abd2bc4
commit 5d0a183
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/src/riverroute/RtmHistFile.F90 b/src/riverroute/RtmHistFile.F90
@@ -983,8 +983,9 @@ subroutine RtmHistHtapesWrapup( rstwr, nlend )
     ! and write data to history files if end of history interval.
     do t = 1, ntapes
 
-       ! Skip nstep=0 if monthly average
-       if (nstep==0 .and. tape(t)%nhtfrq==0) cycle
+!KO    ! Should no longer be needed
+!KO       ! Skip nstep=0 if monthly average
+!KO       if (nstep==0 .and. tape(t)%nhtfrq==0) cycle
 
        ! Determine if end of history interval
        tape(t)%is_endhist = .false.

diff --git a/src/riverroute/RtmTimeManager.F90 b/src/riverroute/RtmTimeManager.F90
@@ -1000,7 +1000,10 @@ logical function is_first_step()
    call ESMF_ClockGet( tm_clock, advanceCount=step_no, rc=rc )
    call chkrc(rc, sub//': error return from ESMF_ClockGet')
    nstep = step_no
-   is_first_step = (nstep == 0)
+!KO   is_first_step = (nstep == 0)
+!KO
+   is_first_step = (nstep == 1)
+!KO
 
 end function is_first_step