EVOLUTION: Synchronize status among processes in update_variables().

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2021-11-09 15:59:34 -03:00
parent 89bc706673
commit 380e4c8d7e

View File

@ -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)