Deleted MPI barriers in computeQdot

loganoz · Dec 11, 2024 · 4cba969 · 4cba969
1 parent f5d0be5
commit 4cba969
Showing 1 changed file with 12 additions and 12 deletions.
diff --git 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
 !