bc_set_Final Subroutine

    pure subroutine bc_set_Final(this)
      !> Finalizes bc_set and frees memory.
      class(bc_set), intent(inout) :: this                                     !! Boundary conditions utility
      ! Work variables
      integer :: n

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

      ! Clear regions
      if (allocated(this%region)) then
        do n=1,this%count
          call this%region(n)%Finalize
        end do

        deallocate(this%region)
        this%count = 0
      end if

      ! Clear hash table
      call this%tbl%Finalize

      return
    end subroutine bc_set_Final