eulerian_set_Final Subroutine

    pure subroutine eulerian_set_Final(this)
      !> Finalizes object and frees up memory.
      implicit none
      class(eulerian_set), intent(inout) :: this                               !! An Eulerian Set
      ! Work variables
      integer :: n

      ! Nullify pointers
      this%parallel => null()
      this%block    => null()

      ! Finalize each Eulerian object
      if (allocated(this%field)) then
        do n=1,size(this%field)
          call this%field(n)%p%Finalize
        end do
        deallocate(this%field)
      end if

      ! Clear hash table
      call this%tbl%Finalize

      return
    end subroutine eulerian_set_Final