get_int_time Subroutine

public subroutine get_int_time(datetime, n, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Time), intent(in) :: datetime
integer, intent(inout) :: n(NF)
integer, intent(out), optional :: rc

Calls

proc~~get_int_time~~CallsGraph proc~get_int_time get_int_time ESMF_TimeGet ESMF_TimeGet proc~get_int_time->ESMF_TimeGet proc~mapl_return MAPL_Return proc~get_int_time->proc~mapl_return proc~mapl_verify MAPL_Verify proc~get_int_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

Called by

proc~~get_int_time~~CalledByGraph proc~get_int_time get_int_time proc~test_get_adjusted_time test_get_adjusted_time proc~test_get_adjusted_time->proc~get_int_time

Source Code

   subroutine get_int_time(datetime, n, rc)
      type(ESMF_Time), intent(in) :: datetime
      integer, intent(inout) :: n(NF)
      integer, optional, intent(out) :: rc
      integer :: status

      status = 0
      n = -1
      call ESMF_TimeGet(datetime, yy=n(1), mm=n(2), dd=n(3), h=n(4), m=n(5), s=n(6), _RC)

      _RETURN(_SUCCESS)

   end subroutine get_int_time