imexQ_destroy Subroutine

public subroutine imexQ_destroy(this, lev)

Subroutine to deallocate sweeper

Arguments

Type IntentOptional AttributesName
class(pf_imexQ_t), intent(inout) :: this
class(pf_level_t), intent(inout) :: lev

Current level


Contents

Source Code


Source Code

  subroutine imexQ_destroy(this, lev)
    class(pf_imexQ_t),  intent(inout) :: this
    class(pf_level_t), intent(inout) :: lev   !!  Current level

    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_destroy