Skip to content

Commit 7750ad8

Browse files
authored
Merge pull request #643 from ACCESS-NRI/debug_failures
Fixes an error when building with `-check all` (temp arg created)
2 parents 567e184 + 4b1f7a8 commit 7750ad8

1 file changed

Lines changed: 2 additions & 2 deletions

File tree

mediator/med_phases_restart_mod.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -348,15 +348,15 @@ subroutine med_phases_restart_write(gcomp, rc)
348348
call med_io_enddef(io_file)
349349
end if
350350

351-
tbnds = days_since
351+
tbnds = (/days_since,days_since/)
352352
call ESMF_LogWrite(trim(subname)//": time "//trim(time_units), ESMF_LOGMSG_INFO)
353353
if (whead(m)) then
354354
call ESMF_ClockGet(clock, calendar=calendar, rc=rc)
355355
if (ChkErr(rc,__LINE__,u_FILE_u)) return
356356
call med_io_define_time(io_file, time_units, calendar, rc=rc)
357357
if (ChkErr(rc,__LINE__,u_FILE_u)) return
358358
else
359-
call med_io_write_time(io_file, days_since, tbnds=(/days_since,days_since/), nt=1, rc=rc)
359+
call med_io_write_time(io_file, days_since, tbnds=tbnds, nt=1, rc=rc)
360360
if (ChkErr(rc,__LINE__,u_FILE_u)) return
361361
end if
362362

0 commit comments

Comments
 (0)