Add restart capability for input emissions (NOAA-EMC#70)

* Add automatic restart capability for input emissions.
Co-authored-by: Brian Curtis <[email protected]>

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, &