MAPL_DateStampGet Subroutine

public subroutine MAPL_DateStampGet(clock, DateStamp, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Clock) :: clock
character(len=*) :: DateStamp
integer, optional :: rc

Calls

proc~~mapl_datestampget~~CallsGraph proc~mapl_datestampget MAPL_DateStampGet ESMF_ClockGet ESMF_ClockGet proc~mapl_datestampget->ESMF_ClockGet ESMF_TimeGet ESMF_TimeGet proc~mapl_datestampget->ESMF_TimeGet proc~mapl_return MAPL_Return proc~mapl_datestampget->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_datestampget->proc~mapl_verify at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Called by

proc~~mapl_datestampget~~CalledByGraph proc~mapl_datestampget MAPL_DateStampGet proc~mapl_genericrecord MAPL_GenericRecord proc~mapl_genericrecord->proc~mapl_datestampget proc~mapl_genericrefresh MAPL_GenericRefresh proc~mapl_genericrefresh->proc~mapl_datestampget proc~mapl_genericrefresh->proc~mapl_genericrefresh proc~mapl_genericstatesave MAPL_GenericStateSave proc~mapl_genericstatesave->proc~mapl_datestampget proc~mapl_genericstatesave->proc~mapl_genericstatesave

Source Code

   subroutine MAPL_DateStampGet (clock, DateStamp, rc)
      type (ESMF_Clock)                 :: clock
      character(len=*)        :: DateStamp
      integer, optional                 :: rc

      type(ESMF_Time)                   :: currentTime
      character(len=ESMF_MAXSTR)        :: TimeString

      character(len=ESMF_MAXSTR)                  :: IAm
      integer                                     :: status

      Iam = "MAPL_DateStampGet"

      call ESMF_ClockGet (clock, currTime=currentTime, rc=status)
      _VERIFY(status)
      call ESMF_TimeGet  (currentTime, timeString=TimeString, rc=status)
      _VERIFY(status)

      associate ( &
         year => TimeString( 1: 4), &
         month=> TimeString( 6: 7), &
         day  => TimeString( 9:10), &
         hour => TimeString(12:13), &
         minute=>TimeString(15:16), &
         second=>TimeString(18:19)  &
         )
         DateStamp = year // month // day // '_' // hour // minute // 'z'
      end associate

      _RETURN(ESMF_SUCCESS)
   end subroutine MAPL_DateStampGet