strToInt Subroutine

public subroutine strToInt(timeString, date, begTime)

strToInt - convert timeString to integer date and time

This function attempts to identify a coordiante variable from the name or units of the variable. It does so by attempting to match the units specified in the COARDS conventions or by checking the name against commonly used names.

History

  • 2004.10.04 B. Yin first version.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: timeString

string expression of data and time
integer, intent(out) :: date
integer, intent(out) :: begTime

Called by

proc~~strtoint~~CalledByGraph proc~strtoint ESMF_CFIOUtilMod::strToInt proc~esmf_cfioset ESMF_CFIOFileMod::ESMF_CFIOSet proc~esmf_cfioset->proc~strtoint proc~mapl_cfiowritebundlewrite MAPL_CFIOMod::MAPL_CFIOWriteBundleWrite proc~mapl_cfiowritebundlewrite->proc~strtoint proc~mapl_getcurrentfile MAPL_CFIOMod::MAPL_GetCurrentFile proc~mapl_getcurrentfile->proc~strtoint none~find~9 ESMF_CFIOCollectionMod::CFIOCollection%find none~find~9->proc~esmf_cfioset proc~esmf_cfiofileopen ESMF_CFIOMod::ESMF_CFIOFileOpen none~find~9->proc~esmf_cfiofileopen proc~esmf_cfiofilecreate ESMF_CFIOMod::ESMF_CFIOFileCreate proc~esmf_cfiofilecreate->proc~esmf_cfioset proc~esmf_cfiosdffilecreate ESMF_CFIOSdfMod::ESMF_CFIOSdfFileCreate proc~esmf_cfiofilecreate->proc~esmf_cfiosdffilecreate proc~esmf_cfiofileopen->proc~esmf_cfioset proc~esmf_cfiosdffilecreate->proc~esmf_cfioset proc~mapl_cfiocreatewrite MAPL_CFIOMod::MAPL_CFIOCreatewrite proc~mapl_cfiocreatewrite->proc~esmf_cfioset proc~mapl_cfiocreatewrite->proc~esmf_cfiofilecreate program~test test program~test->proc~esmf_cfioset program~test->proc~esmf_cfiofileopen program~test~11 test program~test~11->proc~esmf_cfioset program~test~11->proc~esmf_cfiofilecreate program~test~12 test program~test~12->proc~esmf_cfioset program~test~12->proc~esmf_cfiofileopen program~test~13 test program~test~13->proc~esmf_cfioset program~test~13->proc~esmf_cfiofilecreate program~test~14 test program~test~14->proc~esmf_cfioset program~test~14->proc~esmf_cfiofilecreate program~test~2 test program~test~2->proc~esmf_cfioset program~test~2->proc~esmf_cfiofilecreate program~test~3 test program~test~3->proc~esmf_cfioset program~test~3->proc~esmf_cfiofilecreate program~test~3->proc~esmf_cfiofileopen program~test~4 test program~test~4->proc~esmf_cfioset program~test~4->proc~esmf_cfiofilecreate program~test~5 test program~test~5->proc~esmf_cfioset program~test~5->proc~esmf_cfiofileopen program~test~6 test program~test~6->proc~esmf_cfioset program~test~6->proc~esmf_cfiofilecreate program~test~8 test program~test~8->proc~esmf_cfioset program~test~8->proc~esmf_cfiofilecreate program~test~9 test program~test~9->proc~esmf_cfioset program~test~9->proc~esmf_cfiofilecreate proc~mapl_cfiocreatefromfile MAPL_CFIOMod::MAPL_CFIOCreateFromFile proc~mapl_cfiocreatefromfile->none~find~9 proc~mapl_cfioopenwrite MAPL_CFIOMod::MAPL_CFIOOpenWrite proc~mapl_cfioopenwrite->proc~esmf_cfiofileopen proc~mapl_cfioreadbundleread MAPL_CFIOMod::MAPL_CFIOReadBundleRead proc~mapl_cfioreadbundleread->none~find~9 program~test~10 test program~test~10->proc~esmf_cfiofilecreate

Source Code

        subroutine strToInt(timeString, date, begTime)
!
! !USES:
!
      Implicit NONE
!
! !INPUT PARAMETERS:
!
      character(len=*), intent(in) :: timeString !! string expression of data and time
!
! !OUTPUT PARAMETERS:
!
      integer, intent(out) :: date
      integer, intent(out) :: begTime
!
!-------------------------------------------------------------------------
       integer :: iCnt, jCnt, dLen
       character(len=MVARLEN) :: sDate, sTime
       character(len=MVARLEN) :: strDate, strTime
       character :: char

       dLen = index(timeString, 'T' )
       sDate = timeString(1:dLen-1)
       sTime = timeString(dLen+1:len(trim(timeString)))
       jCnt = 1
       strDate = ''
       do iCnt = 1, len(sDate)
          char = sDate(iCnt:iCnt)
          if (char .ne. ':' .and. char .ne. '-') then
             strDate(jCnt:jCnt) = char
             jCnt = jCnt + 1
          end if
       end do
       jCnt = 1
       strTime = ''
       do iCnt = 1, len(sTime)
          char = sTime(iCnt:iCnt)
          if (char .ne. ':' .and. char .ne. '-') then
             strTime(jCnt:jCnt) = char
             jCnt = jCnt + 1
          end if
       end do
       read(strDate,*) date
       read(strTime,*) begTime
       return
     end subroutine strToInt