anchor.diff:      call this%polyGrid%clear()
       if(allocated(this%iEP)) deallocate(this%iEP)
       if(allocated(this%neib)) deallocate(this%neib)
  +    if(allocated(this%near)) deallocate(this%near)
       if(allocated(this%aP)) deallocate(this%aP)
       if(allocated(this%normP)) deallocate(this%normP)
       if(allocated(this%pP)) deallocate(this%pP)
  
positive.code:     deallocate(normP)
    end subroutine
    
    !> destructor of polyGrid
    elemental subroutine purgePolyFvGrid(this)
      type(polyFvGrid),intent(inout)::this !< this polyFvGrid
  
negative.code:     if(.not.this%isUp)then
        call this%polyGrid%up()
        call getNeibPolyFvGrid(this)
        call getNearPolyFvGrid(this)
      end if
    end subroutine
    
  