Free_Vector3D_t Subroutine

  1. SELF_Vector_3D_t.f90
  2. SELF_Vector_3D_t
  3. Free_Vector3D_t

public subroutine Free_Vector3D_t(this)

Arguments

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

Contents

Source Code

Free_Vector3D_t

Source Code

  subroutine Free_Vector3D_t(this)
    implicit none
    class(Vector3D_t),intent(inout) :: this

    this%interp => null()
    this%nVar = 0
    this%nElem = 0

    deallocate(this%interior)
    deallocate(this%boundary)
    deallocate(this%boundaryNormal)
    deallocate(this%extBoundary)
    deallocate(this%avgBoundary)

    deallocate(this%meta)
    deallocate(this%eqn)

  endsubroutine Free_Vector3D_t