ESMF_MeshEQ Function

private impure elemental function ESMF_MeshEQ(mesh1, mesh2)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Mesh), intent(in) :: mesh1
type(ESMF_Mesh), intent(in) :: mesh2

Return Value logical


Calls

proc~~esmf_mesheq~~CallsGraph proc~esmf_mesheq ESMF_MeshEQ proc~esmf_meshgetinit ESMF_MeshGetInit proc~esmf_mesheq->proc~esmf_meshgetinit

Called by

proc~~esmf_mesheq~~CalledByGraph proc~esmf_mesheq ESMF_MeshEQ interface~operator(==)~20 operator(==) interface~operator(==)~20->proc~esmf_mesheq proc~esmf_meshne ESMF_MeshNE proc~esmf_meshne->proc~esmf_mesheq interface~operator(SLASH=)~20 operator(/=) interface~operator(SLASH=)~20->proc~esmf_meshne

Source Code

  impure elemental function ESMF_MeshEQ(mesh1, mesh2)
!
! !RETURN VALUE:
    logical :: ESMF_MeshEQ

! !ARGUMENTS:
    type(ESMF_Mesh), intent(in) :: mesh1
    type(ESMF_Mesh), intent(in) :: mesh2

! !DESCRIPTION:
!   Test if both {\tt mesh1} and {\tt mesh2} alias the same ESMF Mesh
!   object.
!
!EOPI
!-------------------------------------------------------------------------------

    ESMF_INIT_TYPE minit1, minit2
    integer :: localrc1, localrc2
    logical :: lval1, lval2

    ! Use the following logic, rather than "ESMF-INIT-CHECK-DEEP", to gain
    ! init checks on both args, and in the case where both are uninitialized,
    ! to distinguish equality based on uninitialized type (uncreated,
    ! deleted).

    ! TODO: Consider moving this logic to C++: use Base class? status?
    !       Or replicate logic for C interface also.

    ! check inputs
    minit1 = ESMF_MeshGetInit(mesh1)
    minit2 = ESMF_MeshGetInit(mesh2)

    ! TODO: this line must remain split in two for SunOS f90 8.3 127000-03
    if (minit1 .eq. ESMF_INIT_CREATED .and. &
      minit2 .eq. ESMF_INIT_CREATED) then
      ESMF_MeshEQ = mesh1%this .eq. mesh2%this
    else
      ESMF_MeshEQ = ESMF_FALSE
    endif

  end function ESMF_MeshEQ