From 028121471b7bfe3b7da95670b2dfc9f7f612e136 Mon Sep 17 00:00:00 2001 From: Dhueper Date: Mon, 2 Dec 2024 11:29:16 +0100 Subject: [PATCH] Sensor OpenMP bug fixed --- Solver/src/libs/monitors/VolumeIntegrals.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Solver/src/libs/monitors/VolumeIntegrals.f90 b/Solver/src/libs/monitors/VolumeIntegrals.f90 index 3ea1e947b..bc175dda8 100644 --- 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)