ReleaseActive Subroutine

  1. SELF_AMRController_Extruded.f90
  2. SELF_AMRController_Extruded
  3. ReleaseActive

public subroutine ReleaseActive(this)

Free the active meshes and geometries if this controller emitted them.

Arguments

TypeIntentOptionalAttributesName
type(ExtrudedAMRController), intent(inout) :: this

Called by

proc~~releaseactive~~CalledByGraph proc~releaseactive ReleaseActive proc~adapt_extrudedamrcontroller Adapt_ExtrudedAMRController proc~adapt_extrudedamrcontroller->proc~releaseactive proc~free_extrudedamrcontroller Free_ExtrudedAMRController proc~free_extrudedamrcontroller->proc~releaseactive

Contents

Source Code

ReleaseActive

Source Code

  subroutine ReleaseActive(this)
    !! Free the active meshes and geometries if this controller emitted them.
    implicit none
    type(ExtrudedAMRController),intent(inout) :: this

    if(.not. this%ownsActive) return
    call this%activeGeom%Free()
    deallocate(this%activeGeom)
    call this%activeMesh%Free()
    deallocate(this%activeMesh)
    if(this%hasModel2D) then
      call this%activeGeom2%Free()
      deallocate(this%activeGeom2)
    endif
    call this%activeSurf%Free()
    deallocate(this%activeSurf)
    this%ownsActive = .false.

  endsubroutine ReleaseActive