From 124ad01eca6ebb0446205574c435a9f4698bb7ca Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Sun, 9 Jan 2022 17:24:56 -0300 Subject: [PATCH] EVOLUTION: Fix time step estimation with OpenMP. The variable um should be also thread private in initialize_time_step() and new_time_step(). Signed-off-by: Grzegorz Kowal --- sources/evolution.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sources/evolution.F90 b/sources/evolution.F90 index 4751661..1728a10 100644 --- a/sources/evolution.F90 +++ b/sources/evolution.F90 @@ -1205,7 +1205,7 @@ module evolution m = 1 n = get_dblocks() -!$omp parallel do default(shared) private(pdata,cm) +!$omp parallel do default(shared) private(pdata,um,cm) do l = 1, n pdata => data_blocks(l)%ptr @@ -1425,7 +1425,7 @@ module evolution m = 1 n = get_dblocks() -!$omp parallel do default(shared) private(pdata,cm) +!$omp parallel do default(shared) private(pdata,um,cm) do l = 1, n pdata => data_blocks(l)%ptr