Skip to content
Merged
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
9 changes: 9 additions & 0 deletions share/mediation_integrate.F
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down