solid_set_Final Subroutine

    impure subroutine solid_set_Final(this)
      !> Finalizes object and frees memory.
      implicit none
      class(solid_set), intent(inout) :: this                                  !! A collection of solids
      ! Work variable
      integer :: n

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

      ! Finalize all solid_obj
      if (allocated(this%p)) then
        do n=1,this%count
          call this%p(n)%Finalize
        end do
        deallocate(this%p)
      end if

      return
    end subroutine solid_set_Final