BOUNDARIES: Replace nprocs-1 with npmax.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2014-01-07 10:59:18 -02:00
parent a1fcff9a66
commit a108108822

View File

@ -358,7 +358,7 @@ module boundaries
use coordinates , only : ibl, ie, jbl, je, kbl, ke use coordinates , only : ibl, ie, jbl, je, kbl, ke
#ifdef MPI #ifdef MPI
use equations , only : nv use equations , only : nv
use mpitools , only : nprocs, nproc use mpitools , only : nprocs, nproc, npmax
use mpitools , only : send_real_array, receive_real_array use mpitools , only : send_real_array, receive_real_array
#endif /* MPI */ #endif /* MPI */
@ -415,8 +415,8 @@ module boundaries
! nullify pointers to blocks which need to be exchanged between processes ! nullify pointers to blocks which need to be exchanged between processes
! !
do irecv = 0, nprocs - 1 do irecv = 0, npmax
do isend = 0, nprocs - 1 do isend = 0, npmax
do idir = 1, ndims do idir = 1, ndims
nullify(block_array(idir,irecv,isend)%ptr) nullify(block_array(idir,irecv,isend)%ptr)
end do ! idir end do ! idir
@ -580,8 +580,8 @@ module boundaries
#ifdef MPI #ifdef MPI
! iterate over sending and receiving processes ! iterate over sending and receiving processes
! !
do irecv = 0, nprocs - 1 do irecv = 0, npmax
do isend = 0, nprocs - 1 do isend = 0, npmax
do idir = 1, ndims do idir = 1, ndims
! process only pairs which have anything to exchange ! process only pairs which have anything to exchange