magpicard_destroy Subroutine

  1. pf_magnus_picard.f90
  2. pf_mod_magnus_picard
  3. magpicard_destroy

public subroutine magpicard_destroy(this, lev)

Arguments

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

Contents

Source Code

magpicard_destroy

Source Code

  subroutine magpicard_destroy(this, lev)
      class(pf_magpicard_t),  intent(inout) :: this
      class(pf_level_t),    intent(inout) :: lev

      deallocate(this%dtsdc, this%commutators)

      call lev%ulevel%factory%destroy_array(this%omega, lev%nnodes-1, &
           lev%index,  lev%shape)
      call lev%ulevel%factory%destroy_array(this%time_ev_op, lev%nnodes-1, &
           lev%index,  lev%shape)

  end subroutine magpicard_destroy