From 33345c0de1711773ec7889e2d80bc8b2d130203a Mon Sep 17 00:00:00 2001 From: Sebastien Lemaire Date: Mon, 19 Feb 2024 14:22:07 +0000 Subject: [PATCH] fix openmp race condition --- src/omp/exec_dist.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/omp/exec_dist.f90 b/src/omp/exec_dist.f90 index 0b6b8644..e713c08a 100644 --- 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), &