fix openmp race condition

xcompact3d · Feb 19, 2024 · 33345c0 · 33345c0
1 parent e97c287
commit 33345c0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/omp/exec_dist.f90 b/src/omp/exec_dist.f90
@@ -108,7 +108,7 @@ subroutine exec_dist_transeq_compact(&
       allocate(ud_recv_e(SZ, n_halo))
       allocate(ud_recv_s(SZ, n_halo))
 
-      !$omp parallel do
+      !$omp parallel do private(ud, ud_recv_e, ud_recv_s)
       do k = 1, n_block
          call der_univ_dist( &
             du(:, :, k), du_send_s(:, :, k), du_send_e(:, :, k), u(:, :, k), &