bc_set_Final Subroutine

private pure subroutine bc_set_Final(this)

Finalizes bc_set and frees memory.

Type Bound

bc_set

Arguments

Type IntentOptional Attributes Name
class(bc_set), intent(inout) :: this

Boundary conditions utility

Calls

proc~~bc_set_final~~CallsGraph proc~bc_set_final bc_set%bc_set_Final proc~region_obj_final region_obj%region_obj_Final proc~bc_set_final->proc~region_obj_final proc~hashtbl_obj_final hashtbl_obj%hashtbl_obj_Final proc~region_obj_final->proc~hashtbl_obj_final

Called by

proc~~bc_set_final~~CalledByGraph proc~bc_set_final bc_set%bc_set_Final proc~setupcasebcs SetUpCaseBCS proc~setupcasebcs->proc~bc_set_final proc~setupcasebcs~10 SetUpCaseBCS proc~setupcasebcs~10->proc~bc_set_final proc~setupcasebcs~11 SetUpCaseBCS proc~setupcasebcs~11->proc~bc_set_final proc~setupcasebcs~12 SetUpCaseBCS proc~setupcasebcs~12->proc~bc_set_final proc~setupcasebcs~13 SetUpCaseBCS proc~setupcasebcs~13->proc~bc_set_final proc~setupcasebcs~14 SetUpCaseBCS proc~setupcasebcs~14->proc~bc_set_final proc~setupcasebcs~2 SetUpCaseBCS proc~setupcasebcs~2->proc~bc_set_final proc~setupcasebcs~3 SetUpCaseBCS proc~setupcasebcs~3->proc~bc_set_final proc~setupcasebcs~4 SetUpCaseBCS proc~setupcasebcs~4->proc~bc_set_final proc~setupcasebcs~5 SetUpCaseBCS proc~setupcasebcs~5->proc~bc_set_final proc~setupcasebcs~6 SetUpCaseBCS proc~setupcasebcs~6->proc~bc_set_final proc~setupcasebcs~7 SetUpCaseBCS proc~setupcasebcs~7->proc~bc_set_final proc~setupcasebcs~8 SetUpCaseBCS proc~setupcasebcs~8->proc~bc_set_final proc~setupcasebcs~9 SetUpCaseBCS proc~setupcasebcs~9->proc~bc_set_final program~main main program~main->proc~setupcasebcs program~main~10 main program~main~10->proc~setupcasebcs~10 program~main~11 main program~main~11->proc~setupcasebcs~11 program~main~12 main program~main~12->proc~setupcasebcs~12 program~main~13 main program~main~13->proc~setupcasebcs~13 program~main~14 main program~main~14->proc~setupcasebcs~14 program~main~2 main program~main~2->proc~setupcasebcs~2 program~main~3 main program~main~3->proc~setupcasebcs~3 program~main~4 main program~main~4->proc~setupcasebcs~4 program~main~5 main program~main~5->proc~setupcasebcs~5 program~main~6 main program~main~6->proc~setupcasebcs~6 program~main~7 main program~main~7->proc~setupcasebcs~7 program~main~8 main program~main~8->proc~setupcasebcs~8 program~main~9 main program~main~9->proc~setupcasebcs~9

Source Code

    pure subroutine bc_set_Final(this)
      !> Finalizes bc_set and frees memory.
      class(bc_set), intent(inout) :: this                                     !! Boundary conditions utility
      ! Work variables
      integer :: n

      ! Nullify pointers
      this%parallel => null()
      this%block    => null()
      this%hdf5     => null()

      ! Clear regions
      if (allocated(this%region)) then
        do n=1,this%count
          call this%region(n)%Finalize
        end do

        deallocate(this%region)
        this%count = 0
      end if

      ! Clear hash table
      call this%tbl%Finalize

      return
    end subroutine bc_set_Final