Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_RouteHandle), | intent(in) | :: | routehandle | |||
type(ESMF_KeywordEnforcer), | optional | :: | keywordEnforcer | |||
character(len=*), | intent(out), | optional | :: | name | ||
type(ESMF_VM), | intent(out), | optional | :: | vm | ||
integer, | intent(out), | optional | :: | rc |
subroutine ESMF_RouteHandleGetP(routehandle, keywordEnforcer, name, vm, rc) ! ! !ARGUMENTS: type(ESMF_RouteHandle), intent(in) :: routehandle type(ESMF_KeywordEnforcer), optional:: keywordEnforcer ! must use keywords below character(len=*), intent(out), optional :: name type(ESMF_VM), intent(out), optional :: vm integer, intent(out), optional :: rc ! ! !DESCRIPTION: ! Returns information about an {\tt ESMF\_RouteHandle}. ! ! The arguments are: ! \begin{description} ! \item[routehandle] ! {\tt ESMF\_RouteHandle} to be queried. ! \item [{[name]}] ! Name of the RouteHandle object. ! \item [{[vm}] ! The VM on which the RouteHandle object was created. ! \item[{[rc]}] ! Return code; equals {\tt ESMF\_SUCCESS} if there are no errors. ! \end{description} ! !EOP !------------------------------------------------------------------------------ integer :: localrc ! local return code ! initialize return code; assume routine not implemented localrc = ESMF_RC_NOT_IMPL if (present(rc)) rc = ESMF_RC_NOT_IMPL ESMF_INIT_CHECK_DEEP(ESMF_RouteHandleGetInit,routehandle,rc) if (present(name)) then call c_ESMC_GetName(routehandle, name, localrc) if (ESMF_LogFoundError(localrc, & ESMF_ERR_PASSTHRU, & ESMF_CONTEXT, rcToReturn=rc)) return endif if (present(vm)) then call c_ESMC_GetVM(routehandle, vm, localrc) if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, & ESMF_CONTEXT, rcToReturn=rc)) return ! Set init code on the VM object before returning call ESMF_VMSetInitCreated(vm, rc=localrc) if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, & ESMF_CONTEXT, rcToReturn=rc)) return endif ! Return successfully if (present(rc)) rc = ESMF_SUCCESS end subroutine ESMF_RouteHandleGetP