adds array deallocation

SPECFEM · Oct 1, 2024 · d885a2c · d885a2c
1 parent b5635a5
commit d885a2c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/generate_databases/setup_mesh_adjacency.f90 b/src/generate_databases/setup_mesh_adjacency.f90
@@ -354,6 +354,7 @@ subroutine setup_mesh_adjacency()
 
   ! frees temporary array
   deallocate(ibool_corner)
+  deallocate(node_to_elem,node_to_elem_count)
 
   ! debug: for vtk output
   if (DEBUG_VTK_OUTPUT) then