Merge pull request #1644 from ExtremeFLOW/fix/gs_number_local_htable_…

…size Speedup gs numbering, flush local table when possible
ExtremeFLOW · Dec 17, 2024 · 1f6b815 · 1f6b815
2 parents c5d24f6 + 262c313
commit 1f6b815
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/gs/gather_scatter.f90 b/src/gs/gather_scatter.f90
@@ -450,6 +450,10 @@ subroutine gs_init_mapping(gs)
           end if
        end if
     end do
+
+    ! Clear local dofmap table
+    call dm%clear()
+
     if (lz .gt. 1) then
        !
        ! Setup mapping for dofs on edges
@@ -654,6 +658,10 @@ subroutine gs_init_mapping(gs)
           end if
        end do
     end if
+
+    ! Clear local dofmap table
+    call dm%clear()
+
     !
     ! Setup mapping for dofs on facets
     !