diff --git a/fem/src/MeshUtils.F90 b/fem/src/MeshUtils.F90 index 71949052a2..7e31d24dfc 100644 --- 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