Free_Scalar3D_t Subroutine

public subroutine Free_Scalar3D_t(this)

Arguments

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

Contents

Source Code


Source Code

  subroutine Free_Scalar3D_t(this)
    implicit none
    class(Scalar3D_t),intent(inout) :: this

    this%nVar = 0
    this%nElem = 0
    this%interp => null()
    deallocate(this%interior)
    deallocate(this%boundary)
    deallocate(this%extBoundary)
    deallocate(this%avgBoundary)
    deallocate(this%boundarynormal)
    deallocate(this%meta)
    deallocate(this%eqn)

  endsubroutine Free_Scalar3D_t