ESMF_GridNE Function

private impure elemental function ESMF_GridNE(grid1, grid2)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Grid), intent(in) :: grid1
type(ESMF_Grid), intent(in) :: grid2

Return Value logical


Calls

proc~~esmf_gridne~~CallsGraph proc~esmf_gridne ESMF_GridNE proc~esmf_grideq ESMF_GridEQ proc~esmf_gridne->proc~esmf_grideq proc~esmf_gridgetinit ESMF_GridGetInit proc~esmf_grideq->proc~esmf_gridgetinit

Called by

proc~~esmf_gridne~~CalledByGraph proc~esmf_gridne ESMF_GridNE interface~operator(SLASH=)~21 operator(/=) interface~operator(SLASH=)~21->proc~esmf_gridne

Source Code

  impure elemental function ESMF_GridNE(grid1, grid2)
!
! !RETURN VALUE:
    logical :: ESMF_GridNE

! !ARGUMENTS:
    type(ESMF_Grid), intent(in) :: grid1
    type(ESMF_Grid), intent(in) :: grid2

! !DESCRIPTION:
!   Test if both {\tt grid1} and {\tt grid2} alias the same ESMF Grid
!   object.
!
!EOPI
!-------------------------------------------------------------------------------

    ESMF_INIT_TYPE ginit1, ginit2
    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).

    ESMF_GridNE = .not.ESMF_GridEQ(grid1, grid2)

  end function ESMF_GridNE