MESH: Make MPI tag in redistribute_blocks() consistent.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2014-09-11 20:00:06 -03:00
parent 5eecf860ef
commit 557abc5b82

View File

@ -923,7 +923,7 @@ module mesh
! generate a tag for communication
!
itag = pmeta%process * nprocs + np + nprocs + 1
itag = 16 * (np * nprocs + pmeta%process)
! sends the block to the right process
!