ESMF_VMNE Function

private impure elemental function ESMF_VMNE(vm1, vm2)

Arguments

Type IntentOptional Attributes Name
type(ESMF_VM), intent(in) :: vm1
type(ESMF_VM), intent(in) :: vm2

Return Value logical


Source Code

  impure elemental function ESMF_VMNE(vm1, vm2)
! 
! !RETURN VALUE:
    logical :: ESMF_VMNE

! !ARGUMENTS:
    type(ESMF_VM), intent(in) :: vm1
    type(ESMF_VM), intent(in) :: vm2

! !DESCRIPTION:
!   Test if both {\tt vm1} and {\tt vm2} alias the same ESMF VM 
!   object.
!
!EOPI
!-------------------------------------------------------------------------------

    ESMF_VMNE = .not.ESMF_VMEQ(vm1, vm2)

  end function ESMF_VMNE