misdcQ_destroy Subroutine

  1. pf_misdcQ.f90
  2. pf_mod_misdcQ
  3. misdcQ_destroy

public subroutine misdcQ_destroy(this, lev)

Arguments

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

Contents

Source Code

misdcQ_destroy

Source Code

  subroutine misdcQ_destroy(this, lev)
    class(pf_misdcQ_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_array(this%I3,lev%nnodes-1,lev%index,lev%shape)
    call lev%ulevel%factory%destroy_single(this%rhs, lev%index,  lev%shape)
  end subroutine misdcQ_destroy