From 7e446e6d4f2d0cd84cdce5fc78ac790cc311a59c Mon Sep 17 00:00:00 2001 From: jhruppert Date: Sun, 17 Nov 2024 15:14:14 -0700 Subject: [PATCH] When write_hist_at_0h_rst=.true., will now apply to user-def streams --- share/mediation_integrate.F | 9 +++++++++ 1 file changed, 9 insertions(+) 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