Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_StaggerLoc), | intent(in) | :: | staggerloc | |||
type(ESMF_KeywordEnforcer), | optional | :: | keywordEnforcer | |||
integer, | intent(out), | optional | :: | rc |
subroutine ESMF_StaggerLocPrint(staggerloc, keywordEnforcer, rc) ! ! !ARGUMENTS: type (ESMF_StaggerLoc), intent(in) :: staggerloc type(ESMF_KeywordEnforcer), optional:: keywordEnforcer ! must use keywords below integer, optional, intent(out) :: rc ! !STATUS: ! \begin{itemize} ! \item\apiStatusCompatibleVersion{5.2.0r} ! \end{itemize} ! ! !DESCRIPTION: ! Print the internal data members of an {\tt ESMF\_StaggerLoc} object. \\ ! ! The arguments are: ! \begin{description} ! \item[staggerloc] ! ESMF\_StaggerLoc object as the method input ! \item[{[rc]}] ! Return code; equals {\tt ESMF\_SUCCESS} if there are no errors. ! \end{description} ! !EOP ! Initialize return code; assume routine not implemented if (present(rc)) rc = ESMF_RC_NOT_IMPL write(ESMF_UtilIOStdout, *) "StaggerLoc Print Begins =====>" write(ESMF_UtilIOStdout, *) " staggerloc = ", staggerloc%staggerloc write(ESMF_UtilIOStdout, *) "StaggerLoc Print Ends =====>" rc = ESMF_SUCCESS end subroutine ESMF_StaggerLocPrint