Free_Tensor2D_t Subroutine

  1. SELF_Tensor_2D_t.f90
  2. SELF_Tensor_2D_t
  3. Free_Tensor2D_t

public subroutine Free_Tensor2D_t(this)

Arguments

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

Called by

proc~~free_tensor2d_t~~CalledByGraph proc~free_tensor2d_t Free_Tensor2D_t proc~free_tensor2d Free_Tensor2D proc~free_tensor2d->proc~free_tensor2d_t

Contents

Source Code

Free_Tensor2D_t

Source Code

  subroutine Free_Tensor2D_t(this)
    implicit none
    class(Tensor2D_t),intent(inout) :: this

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

    ! The public arrays point into the pools rather than owning storage (Stage 6b/6c), so they
    ! are nullified and the pools released.
    this%interior => null()
    this%boundary => null()
    this%extBoundary => 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)

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

  endsubroutine Free_Tensor2D_t