diff --git a/src/gs/gather_scatter.f90 b/src/gs/gather_scatter.f90 index 9dc6c8803086..26f8330a30a0 100644 --- 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 !