Free_Scalar3D_t Subroutine

  1. SELF_Scalar_3D_t.f90
  2. SELF_Scalar_3D_t
  3. Free_Scalar3D_t

public subroutine Free_Scalar3D_t(this)

Arguments

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

Called by

proc~~free_scalar3d_t~~CalledByGraph proc~free_scalar3d_t Free_Scalar3D_t proc~free_mappedscalar3d Free_MappedScalar3D proc~free_mappedscalar3d->proc~free_scalar3d_t proc~free_scalar3d Free_Scalar3D proc~free_scalar3d->proc~free_scalar3d_t

Contents

Source Code

Free_Scalar3D_t

Source Code

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

    this%nVar = 0
    this%nElem = 0
    this%interp => null()
    ! The public arrays point into the pools rather than owning their storage, so they are
    ! nullified and the pools are released (AMR Stage 6b).
    this%interior => null()
    this%boundary => null()
    this%extBoundary => null()
    this%avgBoundary => null()
    this%boundarynormal => null()
    if(associated(this%pool_interior)) deallocate(this%pool_interior)
    if(associated(this%pool_boundary)) deallocate(this%pool_boundary)
    if(associated(this%pool_extBoundary)) deallocate(this%pool_extBoundary)
    if(associated(this%pool_avgBoundary)) deallocate(this%pool_avgBoundary)
    if(associated(this%pool_boundarynormal)) deallocate(this%pool_boundarynormal)
    deallocate(this%meta)
    deallocate(this%eqn)

  endsubroutine Free_Scalar3D_t