Skip to content

Commit 6539501

Browse files
authored
Merge pull request #614 from alperaltuntas/fix_monthly_hist
Fix monthly averaged med history files
2 parents 0a22b18 + fefa047 commit 6539501

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

mediator/med_phases_history_mod.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1769,7 +1769,7 @@ subroutine med_phases_history_set_timeinfo(gcomp, hclock, alarmname, &
17691769
timediff(1) = nexttime - starttime - ringinterval
17701770
call ESMF_TimeIntervalGet(timediff(2), d_r8=time_bnds(2), rc=rc)
17711771
if (ChkErr(rc,__LINE__,u_FILE_u)) return
1772-
call ESMF_TimeIntervalGet(timediff(1), d_r8=time_bnds(1), rc=rc)
1772+
call ESMF_TimeIntervalGet(timediff(1), startTimeIn=starttime, d_r8=time_bnds(1), rc=rc)
17731773
if (ChkErr(rc,__LINE__,u_FILE_u)) return
17741774
time_val = 0.5_r8 * (time_bnds(1) + time_bnds(2))
17751775
else

0 commit comments

Comments
 (0)