ESMF_RouteHandleGetInit Function

public function ESMF_RouteHandleGetInit(d)

Arguments

Type IntentOptional Attributes Name
type(ESMF_RouteHandle), intent(in), optional :: d

Return Value integer(kind=ESMF_KIND_I8)


Called by

ESMF_ArrayBundleHalowESMF_RouteHandleGetInit
w
ESMF_ArrayBundleHaloReleasew
w
ESMF_ArrayBundleRedistw
w
ESMF_ArrayBundleRedistReleasew
w
ESMF_ArrayBundleSMMw
w
ESMF_ArrayBundleSMMReleasew
w
ESMF_ArrayHalow
w
ESMF_ArrayHaloReleasew
w
ESMF_ArrayRedistw
w
ESMF_ArrayRedistReleasew
w
ESMF_ArraySMMw
w
ESMF_ArraySMMReleasew
w
ESMF_FieldHalow
w
ESMF_FieldHaloReleasew
w
ESMF_FieldRedistw
w
ESMF_FieldRedistReleasew
w
ESMF_FieldSMMw
w
ESMF_FieldSMMReleasew
w
ESMF_GridRedistw
w
ESMF_RouteHandleAppendw
w
ESMF_RouteHandleDestroyw
w
ESMF_RouteHandleGetIw
w
ESMF_RouteHandleGetPw
w
ESMF_RouteHandleIsCreatedw
w
ESMF_RouteHandleOptimizew
w
ESMF_RouteHandlePrepXXEw
w
ESMF_RouteHandlePrintw
w
ESMF_RouteHandleReleasew
w
ESMF_RouteHandleSetIw
w
ESMF_RouteHandleSetPw
w
ESMF_RouteHandleValidatew
w
ESMF_RouteHandleWritew
w

Source Code

  function ESMF_RouteHandleGetInit(d)
!
! !RETURN VALUE:
    ESMF_INIT_TYPE :: ESMF_RouteHandleGetInit
!
! !ARGUMENTS:
    type(ESMF_RouteHandle), intent(in),optional :: d
!
! !DESCRIPTION:
!   Get the init status
!
!   The arguments are:
!   \begin{description}
!   \item[d]
!     The class to be queried
!   \end{description}
!
!EOPI
!------------------------------------------------------------------------------
    if (present(d)) then
      ESMF_RouteHandleGetInit=ESMF_INIT_GET(d)
    else
      ESMF_RouteHandleGetInit=ESMF_INIT_CREATED
    endif
  end function ESMF_RouteHandleGetInit