Free_Tensor3D_t Subroutine

public subroutine Free_Tensor3D_t(this)

Arguments

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

Contents

Source Code


Source Code

  subroutine Free_Tensor3D_t(this)
    implicit none
    class(Tensor3D_t),intent(inout) :: this

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

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

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

  endsubroutine Free_Tensor3D_t