Cleanup DESC%FREE()

pizdaint-runs
Salvatore Filippone 5 years ago
parent f499ffb203
commit 98349319e8

@ -934,6 +934,9 @@ contains
if (allocated(desc%halo_index)) & if (allocated(desc%halo_index)) &
& deallocate(desc%halo_index,stat=info) & deallocate(desc%halo_index,stat=info)
if (allocated(desc%ext_index)) &
& deallocate(desc%ext_index,stat=info)
if (allocated(desc%bnd_elem)) & if (allocated(desc%bnd_elem)) &
& deallocate(desc%bnd_elem,stat=info) & deallocate(desc%bnd_elem,stat=info)
@ -942,11 +945,13 @@ contains
if (allocated(desc%ovrlap_elem)) & if (allocated(desc%ovrlap_elem)) &
& deallocate(desc%ovrlap_elem,stat=info) & deallocate(desc%ovrlap_elem,stat=info)
if (allocated(desc%ovr_mst_idx)) & if (allocated(desc%ovr_mst_idx)) &
& deallocate(desc%ovr_mst_idx,stat=info) & deallocate(desc%ovr_mst_idx,stat=info)
if (allocated(desc%lprm)) & if (allocated(desc%lprm)) &
& deallocate(desc%lprm,stat=info) & deallocate(desc%lprm,stat=info)
if (allocated(desc%idx_space)) & if (allocated(desc%idx_space)) &
& deallocate(desc%idx_space,stat=info) & deallocate(desc%idx_space,stat=info)

Loading…
Cancel
Save