dealloc_state_coarse Subroutine

private subroutine dealloc_state_coarse(igrid, s)

Uses

  • proc~~dealloc_state_coarse~~UsesGraph proc~dealloc_state_coarse dealloc_state_coarse module~mod_global_parameters mod_global_parameters proc~dealloc_state_coarse->module~mod_global_parameters module~mod_basic_types mod_basic_types module~mod_global_parameters->module~mod_basic_types module~mod_connectivity mod_connectivity module~mod_global_parameters->module~mod_connectivity module~mod_constants mod_constants module~mod_global_parameters->module~mod_constants module~mod_physicaldata mod_physicaldata module~mod_global_parameters->module~mod_physicaldata module~mod_variables mod_variables module~mod_global_parameters->module~mod_variables mpi mpi module~mod_global_parameters->mpi module~mod_variables->module~mod_basic_types

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: igrid
type(state) :: s

Called by

proc~~dealloc_state_coarse~~CalledByGraph proc~dealloc_state_coarse dealloc_state_coarse proc~dealloc_node dealloc_node proc~dealloc_node->proc~dealloc_state_coarse

Source Code

  subroutine dealloc_state_coarse(igrid, s)
    use mod_global_parameters
    integer, intent(in) :: igrid
    type(state) :: s
  
    deallocate(s%w)
    if(stagger_grid) then
      deallocate(s%ws)
    end if
    if(B0fieldAllocCoarse) then
      deallocate(s%B0)
    end if
    ! the geometry in bgeoc outlives the block, only drop the views on it
    nullify(s%x,s%ds,s%dvolume,s%surfaceC,s%dx)
    deallocate(s%is_physical_boundary)
  end subroutine dealloc_state_coarse