imk_destroy Subroutine

  subroutine imk_destroy(this, lev)
      class(pf_imk_t),   intent(inout) :: this
      class(pf_level_t), intent(inout) :: lev

      deallocate(this%QtilE, this%QdiffE)
      deallocate(this%dtsdc)
      deallocate(this%tsdc)

      call lev%ulevel%factory%destroy_array(this%A, lev%nnodes, &
           lev%index,   lev%shape)
  end subroutine imk_destroy