Subroutine to deallocate sweeper
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(pf_imexQ_t), | intent(inout) | :: | this | |||
class(pf_level_t), | intent(inout) | :: | lev | Current level |
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