When write_hist_at_0h_rst=.true., will now apply to user-def streams

Author: jhruppert

share/mediation_integrate.F

@@ -110,6 +110,15 @@ SUBROUTINE med_before_solve_io ( grid , config_flags )
      !  output history at beginning of restart even if alarm is not ringing
      CALL med_hist_out ( grid , HISTORY_ALARM, config_flags )
      CALL WRFU_AlarmRingerOff( grid%alarms( HISTORY_ALARM ), rc=rc )
+!----------------------------------------------------------------------
+! Write history for other streams at restart - James Ruppert - October 2024
+!----------------------------------------------------------------------
+      DO ialarm = first_auxhist, last_auxhist
+         IF  ( (config_flags%restart) .AND. ( currTime .EQ. startTime ) .AND. ( config_flags%write_hist_at_0h_rst )) THEN
+            !  output history at beginning of restart
+            CALL med_hist_out ( grid , ialarm, config_flags )
+         ENDIF
+      ENDDO
    ENDIF
 
    IF( WRFU_AlarmIsRinging( grid%alarms( INPUTOUT_ALARM ), rc=rc ) ) THEN