EVOLUTION: Synchronize status among processes in update_variables().
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
parent
89bc706673
commit
380e4c8d7e
@ -3625,6 +3625,9 @@ module evolution
|
||||
use boundaries, only : boundary_variables
|
||||
use equations , only : update_primitive_variables
|
||||
use equations , only : fix_unphysical_cells, correct_unphysical_states
|
||||
#ifdef MPI
|
||||
use mpitools , only : reduce_maximum
|
||||
#endif /* MPI */
|
||||
use shapes , only : update_shapes
|
||||
|
||||
implicit none
|
||||
@ -3655,6 +3658,12 @@ module evolution
|
||||
pdata => pdata%next
|
||||
end do
|
||||
|
||||
100 continue
|
||||
#ifdef MPI
|
||||
call reduce_maximum(status)
|
||||
#endif /* MPI */
|
||||
if (status /= 0) go to 200
|
||||
|
||||
call boundary_variables(tm, dtm)
|
||||
|
||||
pdata => list_data
|
||||
@ -3694,7 +3703,7 @@ module evolution
|
||||
end do
|
||||
end if
|
||||
|
||||
100 continue
|
||||
200 continue
|
||||
|
||||
#ifdef PROFILE
|
||||
call stop_timer(imv)
|
||||
|
Loading…
x
Reference in New Issue
Block a user