Sensor OpenMP bug fixed

loganoz · Dec 2, 2024 · 0281214 · 0281214
1 parent d22204a
commit 0281214
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Solver/src/libs/monitors/VolumeIntegrals.f90 b/Solver/src/libs/monitors/VolumeIntegrals.f90
@@ -766,12 +766,12 @@ subroutine GetSensorRange(mesh, minSensor, maxSensor)
          minSensor =  huge(1.0_RP)/10.0_RP
          maxSensor = -huge(1.0_RP)/10.0_RP
 
-!$omp parallel do schedule(static) private(ielem)
+!! !$omp parallel do schedule(static) private(ielem)
          do ielem = 1, mesh % no_of_elements
             minSensor = min(minSensor, mesh % elements(ielem) % storage % sensor)
             maxSensor = max(maxSensor, mesh % elements(ielem) % storage % sensor)
          end do
-!$omp end parallel do
+!! !$omp end parallel do
 
 #ifdef _HAS_MPI_
          call MPI_MinMax(minSensor, maxSensor)