CFIO_parseIntTime Subroutine

public subroutine CFIO_parseIntTime(hhmmss, hour, min, sec)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: hhmmss
integer, intent(out) :: hour
integer, intent(out) :: min
integer, intent(out) :: sec

Called by

proc~~cfio_parseinttime~~CalledByGraph proc~cfio_parseinttime CFIO_parseIntTime proc~cfio_putvar CFIO_PutVar proc~cfio_putvar->proc~cfio_parseinttime proc~diffdate DiffDate proc~cfio_putvar->proc~diffdate proc~cfio_sputvar CFIO_SPutVar proc~cfio_sputvar->proc~cfio_parseinttime proc~cfio_sputvar->proc~diffdate proc~diffdate->proc~cfio_parseinttime proc~esmf_cfiosdffilecreate ESMF_CFIOSdfFileCreate proc~esmf_cfiosdffilecreate->proc~cfio_parseinttime proc~getbegdatetime GetBegDateTime proc~getbegdatetime->proc~cfio_parseinttime interface~getdate GetDate proc~getbegdatetime->interface~getdate proc~getdateint8 GetDateInt8 proc~getdateint8->proc~cfio_parseinttime interface~getdate->proc~getdateint8 proc~getdateint4 GetDateInt4 interface~getdate->proc~getdateint4 proc~cfio_getvar CFIO_GetVar proc~cfio_getvar->proc~diffdate proc~getdatetimevec GetDateTimeVec proc~cfio_getvar->proc~getdatetimevec proc~cfio_sgetvar CFIO_SGetVar proc~cfio_sgetvar->proc~diffdate proc~cfio_sgetvar->proc~getdatetimevec proc~esmf_cfiofilecreate ESMF_CFIOFileCreate proc~esmf_cfiofilecreate->proc~esmf_cfiosdffilecreate proc~esmf_cfiosdffileopen ESMF_CFIOSdfFileOpen proc~esmf_cfiosdffileopen->proc~getbegdatetime proc~getdateint4->proc~getdateint8 proc~esmf_cfiofileopen ESMF_CFIOFileOpen proc~esmf_cfiofileopen->proc~esmf_cfiosdffileopen proc~getdatetimevec->interface~getdate proc~mapl_cfiocreatewrite MAPL_CFIOCreatewrite proc~mapl_cfiocreatewrite->proc~esmf_cfiofilecreate program~test~11 test program~test~11->proc~esmf_cfiofilecreate program~test~12 test program~test~12->proc~esmf_cfiofilecreate program~test~14 test program~test~14->proc~esmf_cfiofilecreate program~test~2 test program~test~2->proc~esmf_cfiofilecreate program~test~2->proc~esmf_cfiofileopen program~test~3 test program~test~3->proc~esmf_cfiofilecreate program~test~5 test program~test~5->proc~esmf_cfiofilecreate program~test~6 test program~test~6->proc~esmf_cfiofilecreate program~test~7 test program~test~7->proc~esmf_cfiofilecreate program~test~8 test program~test~8->proc~esmf_cfiofilecreate program~test~9 test program~test~9->proc~esmf_cfiofilecreate none~find~33 CFIOCollection%find none~find~33->proc~esmf_cfiofileopen proc~mapl_cfioopenwrite MAPL_CFIOOpenWrite proc~mapl_cfioopenwrite->proc~esmf_cfiofileopen program~test test program~test->proc~esmf_cfiofileopen program~test~10 test program~test~10->proc~esmf_cfiofileopen program~test~4 test program~test~4->proc~esmf_cfiofileopen

Source Code

      subroutine CFIO_parseIntTime ( hhmmss, hour, min, sec )
         integer, intent(in)  :: hhmmss
         integer, intent(out) :: hour, min, sec
         hour = hhmmss / 10000
         min  = mod(hhmmss,10000)/100
         sec  = mod(hhmmss,100)
      end subroutine CFIO_parseIntTime