From d885a2ce25800be36a23bf6df5a4f44d68284708 Mon Sep 17 00:00:00 2001 From: Daniel Peter Date: Tue, 1 Oct 2024 15:48:00 +0200 Subject: [PATCH] adds array deallocation --- src/generate_databases/setup_mesh_adjacency.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/generate_databases/setup_mesh_adjacency.f90 b/src/generate_databases/setup_mesh_adjacency.f90 index a53391f28..2587cd9d4 100644 --- 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