tem_cleanupDependencyArrays Subroutine

public subroutine tem_cleanupDependencyArrays(levelDesc)

deallocate all dispensable dynamic data structures and arrays

Arguments

Type IntentOptional Attributes Name
type(tem_levelDesc_type), intent(inout) :: levelDesc(:)

the level descriptor

Calls

proc~~tem_cleanupdependencyarrays~~CallsGraph proc~tem_cleanupdependencyarrays tem_cleanupDependencyArrays proc~tem_halo_destroy tem_halo_destroy proc~tem_cleanupdependencyarrays->proc~tem_halo_destroy interface~destroy~22 destroy proc~tem_cleanupdependencyarrays->interface~destroy~22 interface~destroy~2 destroy proc~tem_halo_destroy->interface~destroy~2 proc~destroy_ga2d_real destroy_ga2d_real interface~destroy~22->proc~destroy_ga2d_real proc~destroy_ga_dynlong destroy_ga_dynlong interface~destroy~2->proc~destroy_ga_dynlong

Called by

proc~~tem_cleanupdependencyarrays~~CalledByGraph proc~tem_cleanupdependencyarrays tem_cleanupDependencyArrays proc~tem_find_allelements tem_find_allElements proc~tem_find_allelements->proc~tem_cleanupdependencyarrays proc~tem_create_leveldesc tem_create_levelDesc proc~tem_create_leveldesc->proc~tem_cleanupdependencyarrays proc~tem_create_leveldesc->proc~tem_find_allelements proc~tem_dimbydim_construction tem_dimByDim_construction proc~tem_dimbydim_construction->proc~tem_create_leveldesc proc~tem_build_face_info tem_build_face_info proc~tem_build_face_info->proc~tem_dimbydim_construction

Contents

Source Code

tem_cleanupDependencyArrays

Source Code

  subroutine tem_cleanupDependencyArrays( levelDesc )
    ! ---------------------------------------------------------------------------
    !> the level descriptor
    type(tem_levelDesc_type) , intent(inout) :: levelDesc(:)
    ! ---------------------------------------------------------------------------
    integer :: iLevel
    ! ---------------------------------------------------------------------------

    do iLevel = 1,size(levelDesc)
      ! Kill empty fluid, ghost and halo lists
      call tem_halo_destroy( levelDesc(iLevel)%haloList )
      call destroy( levelDesc(iLevel)%require )
    end do

  end subroutine tem_cleanupDependencyArrays