From 5c394172914cda1058f14a223d85714584f5ea49 Mon Sep 17 00:00:00 2001 From: James Edwards Date: Thu, 29 Feb 2024 11:41:55 -0700 Subject: [PATCH] fix leap day issue --- mediator/med_phases_profile_mod.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/mediator/med_phases_profile_mod.F90 b/mediator/med_phases_profile_mod.F90 index dadfb989c..5c28eca3a 100644 --- a/mediator/med_phases_profile_mod.F90 +++ b/mediator/med_phases_profile_mod.F90 @@ -41,7 +41,7 @@ subroutine med_phases_profile(gcomp, rc) use ESMF , only : ESMF_TimeInterval, ESMF_AlarmGet, ESMF_TimeIntervalGet use ESMF , only : ESMF_ClockGetNextTime, ESMF_TimeGet, ESMF_ClockGet use ESMF , only : ESMF_ClockAdvance, ESMF_ClockSet, ESMF_ClockIsStopTime - use ESMF , only : operator(-) + use ESMF , only : operator(-), ESMF_CALKIND_GREGORIAN use NUOPC , only : NUOPC_CompAttributeGet ! write profile output @@ -170,12 +170,12 @@ subroutine med_phases_profile(gcomp, rc) call ESMF_TimeGet(nexttime, timestring=nexttimestr, rc=rc) if (med_utils_ChkErr(rc,__LINE__,u_FILE_u)) return ! get current wall clock time - call ESMF_TimeSet(wallclocktime, rc=rc) + call ESMF_TimeSet(wallclockTime, calkindflag=ESMF_CALKIND_GREGORIAN, rc=rc) if (med_utils_chkerr(rc,__LINE__,u_FILE_u)) return - call ESMF_TimeSyncToRealTime(wallclocktime, rc=rc) + call ESMF_TimeSyncToRealTime(wallclockTime, rc=rc) if (med_utils_chkerr(rc,__LINE__,u_FILE_u)) return - call ESMF_TimeGet(wallclocktime,timeString=walltimestr, rc=rc) + call ESMF_TimeGet(wallclockTime,timeString=walltimestr, rc=rc) if (med_utils_ChkErr(rc,__LINE__,u_FILE_u)) return ! 1 model day/ x seconds = 1/365 yrs/ (wallclockelapsed s/86400spd