Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_GridComp), | intent(in) | :: | gridcomp | |||
type(ESMF_Method_Flag), | intent(in) | :: | methodflag | |||
integer, | intent(out) | :: | phaseCount | |||
logical, | intent(out), | optional | :: | phaseZeroFlag | ||
integer, | intent(out), | optional | :: | rc |
subroutine ESMF_GridCompGetEPPhaseCount(gridcomp, methodflag, phaseCount, & phaseZeroFlag, rc) ! !ARGUMENTS: type(ESMF_GridComp), intent(in) :: gridcomp type(ESMF_Method_Flag), intent(in) :: methodflag integer, intent(out) :: phaseCount logical, intent(out), optional :: phaseZeroFlag integer, intent(out), optional :: rc ! ! !DESCRIPTION: ! Get phaseCount ! ! The arguments are: ! \begin{description} ! \item[gridcomp] ! An {\tt ESMF\_GridComp} object. ! \item[methodflag] ! \begin{sloppypar} ! One of a set of predefined Component methods - e.g. ! {\tt ESMF\_METHOD\_INITIALIZE}, {\tt ESMF\_METHOD\_RUN}, ! {\tt ESMF\_METHOD\_FINALIZE}. See section \ref{const:method} ! for a complete list of valid method options. ! \end{sloppypar} ! \item[phaseCount] ! The number of phases for {\tt methodflag}. The method has 1..phaseCount phases. ! \item[phaseZeroFlag] ! Return .true. if a "zero" phase was registered for {\tt methodflag}. Otherwise ! return .false.. ! \item[{[rc]}] ! Return code; equals {\tt ESMF\_SUCCESS} if there are no errors. ! \end{description} ! !EOPI !------------------------------------------------------------------------------ integer :: localrc ! local error status type(ESMF_Logical):: phaseZeroFlagHelp ! initialize return code; assume routine not implemented if (present(rc)) rc = ESMF_RC_NOT_IMPL localrc = ESMF_RC_NOT_IMPL ESMF_INIT_CHECK_DEEP(ESMF_GridCompGetInit, gridcomp, rc) call c_ESMC_GetEntryPointPhaseCount(gridcomp, methodflag, phaseCount, & phaseZeroFlagHelp, localrc) if (ESMF_LogFoundError(localrc, & ESMF_ERR_PASSTHRU, & ESMF_CONTEXT, rcToReturn=rc)) return ! translate ESMF_Logical -> logical if (present(phaseZeroFlag)) then phaseZeroFlag = phaseZeroFlagHelp endif ! return successfully if (present(rc)) rc = ESMF_SUCCESS end subroutine ESMF_GridCompGetEPPhaseCount