From 4cba96943135c0f8eace77dbb0dc3c91b779e9dd Mon Sep 17 00:00:00 2001
From: loganoz <g.rubio@upm.es>
Date: Wed, 11 Dec 2024 13:19:55 +0100
Subject: [PATCH] Deleted MPI barriers in computeQdot

---
 .../SpatialDiscretization.f90                 | 24 +++++++++----------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/Solver/src/NavierStokesSolver/SpatialDiscretization.f90 b/Solver/src/NavierStokesSolver/SpatialDiscretization.f90
index bf52177db..f239a2b8d 100644
--- a/Solver/src/NavierStokesSolver/SpatialDiscretization.f90
+++ b/Solver/src/NavierStokesSolver/SpatialDiscretization.f90
@@ -529,12 +529,12 @@ subroutine TimeDerivative_ComputeQDot( mesh , particles, t)
                end associate
             end do
 !$omp end do
-!
-!           Add an MPI Barrier
-!           ------------------
-!$omp single
-            call mpi_barrier(MPI_COMM_WORLD, ierr)
-!$omp end single
+! !
+! !           Add an MPI Barrier
+! !           ------------------
+! !$omp single
+!             call mpi_barrier(MPI_COMM_WORLD, ierr)
+! !$omp end single
          end if
 #endif
 !
@@ -844,12 +844,12 @@ subroutine TimeDerivative_ComputeQDotHO( mesh , particles, t)
                end associate
             end do
 !$omp end do
-!
-!           Add an MPI Barrier
-!           ------------------
-!$omp single
-            call mpi_barrier(MPI_COMM_WORLD, ierr)
-!$omp end single
+! !
+! !           Add an MPI Barrier
+! !           ------------------
+! !$omp single
+!             call mpi_barrier(MPI_COMM_WORLD, ierr)
+! !$omp end single
          end if
 #endif
 !