Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_Mesh), | intent(in) | :: | mesh | |||
integer, | intent(out), | optional | :: | rc |
subroutine ESMF_MeshTurnOffNodeMask(mesh, rc) ! ! !ARGUMENTS: type(ESMF_Mesh), intent(in) :: mesh integer, intent(out) , optional :: rc ! ! !DESCRIPTION: ! Turn on mesh masking ! ! \begin{description} ! \item [mesh] ! The mesh to turn on masking for ! \item [{[rc]}] ! Return code; equals {\tt ESMF\_SUCCESS} if there are no errors. ! \end{description} ! !EOPI !------------------------------------------------------------------------------ integer :: localrc ! Init localrc localrc = ESMF_SUCCESS call c_esmc_meshturnoffnodemask(mesh, localrc) if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, & ESMF_CONTEXT, rcToReturn=rc)) return if (present(rc)) rc = ESMF_SUCCESS end subroutine ESMF_MeshTurnOffNodeMask