make_esmf_time Subroutine

public subroutine make_esmf_time(f, datetime, rc)

Arguments

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

Calls

proc~~make_esmf_time~~CallsGraph proc~make_esmf_time make_esmf_time ESMF_TimeSet ESMF_TimeSet proc~make_esmf_time->ESMF_TimeSet proc~mapl_return MAPL_Return proc~make_esmf_time->proc~mapl_return proc~mapl_verify MAPL_Verify proc~make_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

Called by

proc~~make_esmf_time~~CalledByGraph proc~make_esmf_time make_esmf_time proc~set_up~2 set_up proc~set_up~2->proc~make_esmf_time

Source Code

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

      status = 0
      call ESMF_TimeSet(datetime, yy=f(1), mm=f(2), dd=f(3), h=f(4), m=f(5), s=f(6), _RC)
      _RETURN(_SUCCESS)
         
   end subroutine make_esmf_time