marker_set_Final Subroutine

    impure subroutine marker_set_Final(this)
      !> Finalizes the marker_set type.
      ! This subourtine replaces the inheritted lagrangian_final.
      class(marker_set), intent(inout) :: this                                 !! A collection of tessellation elements

      ! Remove all objects and deallocate
      this%count_= 0
      this%count = 0
      ! Deallocate arrays
      if(allocated(this%p))          deallocate(this%p)
      if(allocated(this%count_proc)) deallocate(this%count_proc)

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

      ! Free MPI Type
      call this%FreeMPIType()

      ! Turn off flag
      this%is_initialized = .false.

      return
    end subroutine marker_set_Final