diff --git a/share/mediation_integrate.F b/share/mediation_integrate.F index fb12f2eaed..cf65cf81f7 100644 --- a/share/mediation_integrate.F +++ b/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