ESMF_RouteHandleSetInitCreated Subroutine

public subroutine ESMF_RouteHandleSetInitCreated(rh, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_RouteHandle), intent(inout) :: rh
integer, intent(out), optional :: rc

Called by

ESMF_ArrayBundleHaloStorewESMF_RouteHandleSetInitCreated
w
ESMF_ArrayBundleRedistStoreI4w
w
ESMF_ArrayBundleRedistStoreI8w
w
ESMF_ArrayBundleRedistStoreNFw
w
ESMF_ArrayBundleRedistStoreR4w
w
ESMF_ArrayBundleRedistStoreR8w
w
ESMF_ArrayBundleSMMStoreI4w
w
ESMF_ArrayBundleSMMStoreI8w
w
ESMF_ArrayBundleSMMStoreNFw
w
ESMF_ArrayBundleSMMStoreR4w
w
ESMF_ArrayBundleSMMStoreR8w
w
ESMF_ArrayHaloStorew
w
ESMF_ArrayRedistStoreI4w
w
ESMF_ArrayRedistStoreI4TPw
w
ESMF_ArrayRedistStoreI8w
w
ESMF_ArrayRedistStoreI8TPw
w
ESMF_ArrayRedistStoreNFw
w
ESMF_ArrayRedistStoreNFTPw
w
ESMF_ArrayRedistStoreR4w
w
ESMF_ArrayRedistStoreR4TPw
w
ESMF_ArrayRedistStoreR8w
w
ESMF_ArrayRedistStoreR8TPw
w
ESMF_ArraySMMStoreInd4I4w
w
ESMF_ArraySMMStoreInd4I4TPw
w
ESMF_ArraySMMStoreInd4I8w
w
ESMF_ArraySMMStoreInd4I8TPw
w
ESMF_ArraySMMStoreInd4R4w
w
ESMF_ArraySMMStoreInd4R4TPw
w
ESMF_ArraySMMStoreInd4R8w
w
ESMF_ArraySMMStoreInd4R8TPw
w
ESMF_ArraySMMStoreInd8I4w
w
ESMF_ArraySMMStoreInd8I4TPw
w
ESMF_ArraySMMStoreInd8I8w
w
ESMF_ArraySMMStoreInd8I8TPw
w
ESMF_ArraySMMStoreInd8R4w
w
ESMF_ArraySMMStoreInd8R4TPw
w
ESMF_ArraySMMStoreInd8R8w
w
ESMF_ArraySMMStoreInd8R8TPw
w
ESMF_ArraySMMStoreNFw
w
ESMF_ArraySMMStoreNFTPw
w
ESMF_RegridStorew
w
f_esmf_regridw
w
f_esmf_regridreleasew
w

Source Code

  subroutine ESMF_RouteHandleSetInitCreated(rh, rc)
!
! !ARGUMENTS:
    type(ESMF_RouteHandle), intent(inout)           :: rh
    integer,                intent(out),  optional  :: rc
!
!
! !DESCRIPTION:
!   Set init code in RouteHandle object to "CREATED".
!
!   The arguments are:
!   \begin{description}
!   \item[rh]
!     Specified {\tt ESMF\_RouteHandle} object.
!   \item[{[rc]}]
!     Return code; equals {\tt ESMF\_SUCCESS} if there are no errors.
!   \end{description}
!
!EOPI
!------------------------------------------------------------------------------
    ! initialize return code; assume routine not implemented
    if (present(rc)) rc = ESMF_RC_NOT_IMPL

    ! Set init code
    ESMF_INIT_SET_CREATED(rh)

    ! Return successfully
    if (present(rc)) rc = ESMF_SUCCESS

  end subroutine ESMF_RouteHandleSetInitCreated