diff --git a/src/shr/aqm_emis_mod.F90 b/src/shr/aqm_emis_mod.F90 index e4325770..3617af14 100644 --- a/src/shr/aqm_emis_mod.F90 +++ b/src/shr/aqm_emis_mod.F90 @@ -273,7 +273,7 @@ subroutine aqm_emis_src_init(model, em, rc) character(len=ESMF_MAXSTR), allocatable :: tmpUnitsList(:) real(ESMF_KIND_R4) :: factor real(ESMF_KIND_R4), allocatable :: tmpFactorList(:) - type(ESMF_Time) :: startTime + type(ESMF_Time) :: startTime, currTime type(ESMF_TimeInterval) :: timeInterval type(ESMF_Clock) :: clock type(ESMF_Config) :: config @@ -471,13 +471,16 @@ subroutine aqm_emis_src_init(model, em, rc) return end select - call ESMF_ClockGet(clock, startTime=startTime, rc=localrc) + call ESMF_ClockGet(clock, startTime=startTime, currTime=currTime, rc=localrc) if (ESMF_LogFoundError(rcToCheck=localrc, msg=ESMF_LOGERR_PASSTHRU, & line=__LINE__, & file=__FILE__, & rcToReturn=rc)) & return ! bail out + ! -- set input time record according to start type (startup/continue) + em % irec = (currTime - startTime) / timeInterval + em % alarm = ESMF_AlarmCreate(clock, ringTime=startTime, & ringInterval=timeInterval, name=trim(em % name)//"_alarm", rc=localrc) if (ESMF_LogFoundError(rcToCheck=localrc, msg=ESMF_LOGERR_PASSTHRU, &