BOUNDARIES: Replace nprocs-1 with npmax.
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
parent
a1fcff9a66
commit
a108108822
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user