convert_twostring_2_esmfinterval Subroutine

public subroutine convert_twostring_2_esmfinterval(symd, shms, interval, rc)

Arguments

Type IntentOptional Attributes Name
character(len=*) :: symd
character(len=*) :: shms
type(ESMF_TimeInterval), intent(out) :: interval
integer, intent(out), optional :: rc

Calls

proc~~convert_twostring_2_esmfinterval~~CallsGraph proc~convert_twostring_2_esmfinterval convert_twostring_2_esmfinterval ESMF_TimeIntervalSet ESMF_TimeIntervalSet proc~convert_twostring_2_esmfinterval->ESMF_TimeIntervalSet proc~mapl_return MAPL_Return proc~convert_twostring_2_esmfinterval->proc~mapl_return proc~mapl_verify MAPL_Verify proc~convert_twostring_2_esmfinterval->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

Source Code

  subroutine convert_twostring_2_esmfinterval(symd, shms, interval, rc)
    character(len=*) :: symd
    character(len=*) :: shms
    type(ESMF_TimeInterval), intent(out) :: interval
    integer, optional, intent(out) :: rc
    character(len=20) :: s1, s2
    integer :: y, m, d, hh, mm, ss
    integer :: status

    s1=trim(symd)
    read(s1, '(3i2)') y, m, d
    s2=trim(shms)
    read(s2, '(3i2)') hh, mm, ss

    call ESMF_TimeIntervalSet(interval, yy=y, mm=m, d=d, h=hh, m=mm, s=ss, _RC)

    _RETURN(_SUCCESS)

  end subroutine convert_twostring_2_esmfinterval