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 <grzegorz@amuncode.org>
This commit is contained in:
parent
a634d9bed5
commit
124ad01eca
@ -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
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user