AdditionalFree_LinearEuler2D_PML_t Subroutine

  1. SELF_LinearEuler2D_PML_t.f90
  2. self_LinearEuler2D_PML_t
  3. AdditionalFree_LinearEuler2D_PML_t

public subroutine AdditionalFree_LinearEuler2D_PML_t(this)

Arguments

TypeIntentOptionalAttributesName
class(LinearEuler2D_PML_t), intent(inout) :: this

Contents

Source Code

AdditionalFree_LinearEuler2D_PML_t

Source Code

  subroutine AdditionalFree_LinearEuler2D_PML_t(this)
    implicit none
    class(LinearEuler2D_PML_t),intent(inout) :: this

    call this%sigma_x%Free()
    call this%sigma_y%Free()

  endsubroutine AdditionalFree_LinearEuler2D_PML_t