ESMF_time_to_two_integer Subroutine

public subroutine ESMF_time_to_two_integer(time, itime, rc)

Arguments

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

Calls

proc~~esmf_time_to_two_integer~~CallsGraph proc~esmf_time_to_two_integer Plain_netCDF_Time::ESMF_time_to_two_integer ESMF_TimeGet ESMF::ESMF_TimeGet proc~esmf_time_to_two_integer->ESMF_TimeGet proc~mapl_return MAPL_ErrorHandlingMod::MAPL_Return proc~esmf_time_to_two_integer->proc~mapl_return proc~mapl_verify MAPL_ErrorHandlingMod::MAPL_Verify proc~esmf_time_to_two_integer->proc~mapl_verify at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_ThrowMod::MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

  subroutine ESMF_time_to_two_integer(time, itime, rc)
    type(ESMF_Time), intent(in) ::   time
    integer, intent(out) :: itime(2)
    integer, intent(out), optional :: rc
    integer :: i1, i2
    integer :: yy, mm, dd, h, m, s
    integer :: status

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

    i2=h*10000 + m*100 + s
    i1=yy*10000 + mm*100 + dd
    itime(1)=i1
    itime(2)=i2

    _RETURN(_SUCCESS)

  end subroutine ESMF_time_to_two_integer