two_integer_to_ESMF_time Subroutine

public subroutine two_integer_to_ESMF_time(time, itime, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Time), intent(out) :: time
integer, intent(in) :: itime(2)
integer, intent(out), optional :: rc

Calls

proc~~two_integer_to_esmf_time~~CallsGraph proc~two_integer_to_esmf_time two_integer_to_ESMF_time ESMF_TimeSet ESMF_TimeSet proc~two_integer_to_esmf_time->ESMF_TimeSet proc~mapl_return MAPL_Return proc~two_integer_to_esmf_time->proc~mapl_return proc~mapl_verify MAPL_Verify proc~two_integer_to_esmf_time->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 two_integer_to_ESMF_time(time, itime, rc)
    type(ESMF_Time), intent(out) ::   time
    integer, intent(in) :: itime(2)
    integer, intent(out), optional :: rc
    integer :: i1, i2
    integer :: yy, mm, dd, h, m, s
    integer :: status

    i1= itime(1)
    yy= i1/10000
    mm= mod(i1, 10000)/100
    dd= mod(i1, 100)

    i2= itime(2)
    h= i2/10000
    m= mod(i2, 10000)/100
    s= mod(i2, 100)

    call ESMF_TimeSet(time, yy=yy, mm=mm, dd=dd, h=h, m=m, s=s, _RC)

    _RETURN(_SUCCESS)

  end subroutine two_integer_to_ESMF_time