continue debugging on github

ElmerCSC · Aug 3, 2024 · 8b70b07 · 8b70b07
1 parent c255b51
commit 8b70b07
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/fem/src/MeshUtils.F90 b/fem/src/MeshUtils.F90
@@ -14102,14 +14102,14 @@ SUBROUTINE CylinderFit(PMesh, PParams, BCind, dim, FitParams)
     CircleCoord = -HUGE(CircleCoord)
     DO j=1,2    
       i = CircleInd(j)
-
-      IF( BCMode ) THEN
+      
+      IF( BCMode .AND. ParEnv % PEs > 1 ) THEN
         IF(j==1) THEN
           Dist = ParallelReduction( MinDist, 1 )
-          IF(ABS(MinDist-Dist) > 1.0e-10) CYCLE
+          IF(ABS(MinDist-Dist) > 1.0e-8) CYCLE
         ELSE IF(j==2) THEN
           Dist = ParallelReduction( MaxDist, 2)
-          IF(ABS(MaxDist-Dist) > 1.0e-10) CYCLE
+          IF(ABS(MaxDist-Dist) > 1.0e-8) CYCLE
         END IF
       END IF
 
@@ -14165,7 +14165,7 @@ SUBROUTINE CylinderFit(PMesh, PParams, BCind, dim, FitParams)
 
     ! Ok, we have found the point now set the circle coordinates 
     DoIt = .TRUE.
-    IF( BCMode ) THEN
+    IF( BCMode .AND. ParEnv % PEs > 1 ) THEN
       Dist = ParallelReduction( MaxDist, 2 )
       DoIt = ( ABS(MaxDist-Dist) < 1.0e-8 )
     END IF