Allow for giving Conforming BC on the boundary of a 1-D body

ElmerCSC · Apr 11, 2024 · 7a16645 · 7a16645
1 parent 3407bff
commit 7a16645
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/fem/src/MeshUtils.F90 b/fem/src/MeshUtils.F90
@@ -5222,7 +5222,7 @@ SUBROUTINE CreateInterfaceMeshes( Model, Mesh, This, Trgt, BMesh1, BMesh2, &
     DO i=1, Mesh % NumberOfBoundaryElements
       Element => Elements(i)
       ElemCode = Element % Type % ElementCode 
-      IF (ElemCode<=200) CYCLE
+!      IF (ElemCode<=200) CYCLE
 
       nSplit = 1
       IF( SplitQuadratic ) THEN
@@ -5328,7 +5328,7 @@ SUBROUTINE CreateInterfaceMeshes( Model, Mesh, This, Trgt, BMesh1, BMesh2, &
       Element => Elements(i)
 
       ElemCode = Element % Type % ElementCode 
-      IF (ElemCode <= 200) CYCLE
+!      IF (ElemCode <= 200) CYCLE
 
       IF( TagNormalFlip ) THEN            
         n = Element % TYPE % NumberOfNodes