gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EVOLUTION: Fix time step estimation with OpenMP.

Browse Source 
The variable um should be also thread private in initialize_time_step()
and new_time_step().

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2022-01-09 17:24:56 -03:00
parent a634d9bed5
commit 124ad01eca
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sources/evolution.F90
View File

@ -1205,7 +1205,7 @@ module evolution
m = 1 m = 1
n = get_dblocks() n = get_dblocks()
!$omp parallel do default(shared) private(pdata,cm) !$omp parallel do default(shared) private(pdata,um,cm)
do l = 1, n do l = 1, n
pdata => data_blocks(l)%ptr pdata => data_blocks(l)%ptr
@ -1425,7 +1425,7 @@ module evolution
m = 1 m = 1
n = get_dblocks() n = get_dblocks()
!$omp parallel do default(shared) private(pdata,cm) !$omp parallel do default(shared) private(pdata,um,cm)
do l = 1, n do l = 1, n
pdata => data_blocks(l)%ptr pdata => data_blocks(l)%ptr