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 ESMF_CFIOUtilMod::CFIO_parseIntTime proc~cfio_putvar ESMF_CFIOUtilMod::CFIO_PutVar proc~cfio_putvar->proc~cfio_parseinttime proc~diffdate ESMF_CFIOUtilMod::DiffDate proc~cfio_putvar->proc~diffdate proc~cfio_sputvar ESMF_CFIOUtilMod::CFIO_SPutVar proc~cfio_sputvar->proc~cfio_parseinttime proc~cfio_sputvar->proc~diffdate proc~diffdate->proc~cfio_parseinttime proc~esmf_cfiosdffilecreate ESMF_CFIOSdfMod::ESMF_CFIOSdfFileCreate proc~esmf_cfiosdffilecreate->proc~cfio_parseinttime proc~getbegdatetime ESMF_CFIOUtilMod::GetBegDateTime proc~getbegdatetime->proc~cfio_parseinttime interface~getdate ESMF_CFIOUtilMod::GetDate proc~getbegdatetime->interface~getdate proc~getdateint8 ESMF_CFIOUtilMod::GetDateInt8 proc~getdateint8->proc~cfio_parseinttime interface~getdate->proc~getdateint8 proc~getdateint4 ESMF_CFIOUtilMod::GetDateInt4 interface~getdate->proc~getdateint4 proc~cfio_getvar ESMF_CFIOUtilMod::CFIO_GetVar proc~cfio_getvar->proc~diffdate proc~getdatetimevec ESMF_CFIOUtilMod::GetDateTimeVec proc~cfio_getvar->proc~getdatetimevec proc~cfio_sgetvar ESMF_CFIOUtilMod::CFIO_SGetVar proc~cfio_sgetvar->proc~diffdate proc~cfio_sgetvar->proc~getdatetimevec proc~esmf_cfiofilecreate ESMF_CFIOMod::ESMF_CFIOFileCreate proc~esmf_cfiofilecreate->proc~esmf_cfiosdffilecreate proc~esmf_cfiosdffileopen ESMF_CFIOSdfMod::ESMF_CFIOSdfFileOpen proc~esmf_cfiosdffileopen->proc~getbegdatetime proc~getdateint4->proc~getdateint8 proc~esmf_cfiofileopen ESMF_CFIOMod::ESMF_CFIOFileOpen proc~esmf_cfiofileopen->proc~esmf_cfiosdffileopen proc~getdatetimevec->interface~getdate proc~mapl_cfiocreatewrite MAPL_CFIOMod::MAPL_CFIOCreatewrite proc~mapl_cfiocreatewrite->proc~esmf_cfiofilecreate program~test~10 test program~test~10->proc~esmf_cfiofilecreate program~test~11 test program~test~11->proc~esmf_cfiofilecreate program~test~13 test program~test~13->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~3 test program~test~3->proc~esmf_cfiofilecreate program~test~3->proc~esmf_cfiofileopen program~test~4 test program~test~4->proc~esmf_cfiofilecreate program~test~6 test program~test~6->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~9 ESMF_CFIOCollectionMod::CFIOCollection%find none~find~9->proc~esmf_cfiofileopen proc~mapl_cfioopenwrite MAPL_CFIOMod::MAPL_CFIOOpenWrite proc~mapl_cfioopenwrite->proc~esmf_cfiofileopen program~test test program~test->proc~esmf_cfiofileopen program~test~12 test program~test~12->proc~esmf_cfiofileopen program~test~5 test program~test~5->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