ESMF_XGridEQ Function

private impure elemental function ESMF_XGridEQ(xgrid1, xgrid2)

Arguments

Type IntentOptional Attributes Name
type(ESMF_XGrid), intent(in) :: xgrid1
type(ESMF_XGrid), intent(in) :: xgrid2

Return Value logical


Calls

proc~~esmf_xgrideq~~CallsGraph proc~esmf_xgrideq ESMF_XGridEQ proc~esmf_xgridgetinit ESMF_XGridGetInit proc~esmf_xgrideq->proc~esmf_xgridgetinit

Called by

proc~~esmf_xgrideq~~CalledByGraph proc~esmf_xgrideq ESMF_XGridEQ interface~operator(==)~22 operator(==) interface~operator(==)~22->proc~esmf_xgrideq proc~esmf_xgridne ESMF_XGridNE proc~esmf_xgridne->proc~esmf_xgrideq interface~operator(SLASH=)~22 operator(/=) interface~operator(SLASH=)~22->proc~esmf_xgridne

Source Code

  impure elemental function ESMF_XGridEQ(xgrid1, xgrid2)
! 
! !RETURN VALUE:
    logical :: ESMF_XGridEQ

! !ARGUMENTS:
    type(ESMF_XGrid), intent(in) :: xgrid1
    type(ESMF_XGrid), intent(in) :: xgrid2

! !DESCRIPTION:
!   Test if both {\tt xgrid1} and {\tt xgrid2} alias the same ESMF XGrid 
!   object.
!
!EOPI
!-------------------------------------------------------------------------------

    ESMF_INIT_TYPE xginit1, xginit2
    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
    xginit1 = ESMF_XGridGetInit(xgrid1)
    xginit2 = ESMF_XGridGetInit(xgrid2)

    ! TODO: this line must remain split in two for SunOS f90 8.3 127000-03
    if (xginit1 .eq. ESMF_INIT_CREATED .and. &
      xginit2 .eq. ESMF_INIT_CREATED) then
      ESMF_XGridEQ = associated(xgrid1%xgtypep,xgrid2%xgtypep)
    else
      ESMF_XGridEQ = ESMF_FALSE
    endif

  end function ESMF_XGridEQ