imexQ_oc_destroy Subroutine

  subroutine imexQ_oc_destroy(this, lev)
    !!  deallocate
    class(pf_imexQ_oc_t),  intent(inout) :: this
    class(pf_level_t), intent(inout) :: lev
    
    deallocate(this%QdiffE)
    deallocate(this%QdiffI)
    deallocate(this%QtilE)
    deallocate(this%QtilI)
    deallocate(this%dtsdc)

    call lev%ulevel%factory%destroy_single(this%rhs, lev%index, lev%shape)
  end subroutine imexQ_oc_destroy