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 ESMF_time_to_two_integer ESMF_TimeGet ESMF_TimeGet proc~esmf_time_to_two_integer->ESMF_TimeGet proc~mapl_return MAPL_Return proc~esmf_time_to_two_integer->proc~mapl_return proc~mapl_verify 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_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Called by

proc~~esmf_time_to_two_integer~~CalledByGraph proc~esmf_time_to_two_integer ESMF_time_to_two_integer proc~get_filename_from_template get_filename_from_template proc~get_filename_from_template->proc~esmf_time_to_two_integer proc~get_filename_from_template_use_index get_filename_from_template_use_index proc~get_filename_from_template_use_index->proc~esmf_time_to_two_integer proc~find_m_files_for_currtime Find_M_files_for_currTime proc~find_m_files_for_currtime->proc~get_filename_from_template_use_index

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