Merge branch 'devel' into HypreEvol

ElmerCSC · Nov 12, 2024 · 816b213 · 816b213
2 parents 685d957 + 4202809
commit 816b213
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/fem/src/SolverUtils.F90 b/fem/src/SolverUtils.F90
@@ -1940,9 +1940,16 @@ SUBROUTINE DetermineContact( Solver )
      END IF     
 
      pContact = IsPelement(Mesh % Elements(1) )
+     IF( pContact ) THEN
+       ! We only have to deal with the middle dofs if they are not condensated away!
+       IF( .NOT. ListGetLogical( Params,'Bubbles in Global System',Found ) ) THEN
+         IF(Found) pContact = .FALSE.   
+       END IF
+     END IF
      IF( ListGetLogical( Params,'Contact Linear Basis',Found ) ) THEN
        pContact = .FALSE.
      END IF
+
      IF( pContact ) THEN
        CALL Info(Caller,'Using p-elements for contact, if available in projector!',Level=8)
      END IF