Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_MeshLoc), | intent(in) | :: | MeshLoc1 | |||
type(ESMF_MeshLoc), | intent(in) | :: | MeshLoc2 |
impure elemental function ESMF_MeshLocEqual(MeshLoc1, MeshLoc2) ! !RETURN VALUE: logical :: ESMF_MeshLocEqual ! !ARGUMENTS: type (ESMF_MeshLoc), intent(in) :: & MeshLoc1, &! Two igrid MeshLocs to compare for MeshLoc2 ! equality ! !DESCRIPTION: ! This routine compares two MeshLocs to see if ! they are equivalent. ! ! The arguments are: ! \begin{description} ! \item[MeshLoc1, MeshLoc2] ! Two igrid MeshLocs to compare for equality ! \end{description} ! !EOPI ESMF_MeshLocEqual = (MeshLoc1%meshloc == & MeshLoc2%meshloc) end function ESMF_MeshLocEqual