66 |
INTEGER mpi_myXGlobalLo(nPx*nPy) |
INTEGER mpi_myXGlobalLo(nPx*nPy) |
67 |
INTEGER mpi_myYGlobalLo(nPx*nPy) |
INTEGER mpi_myYGlobalLo(nPx*nPy) |
68 |
INTEGER npe,itemp,ierr,istatus(MPI_STATUS_SIZE) |
INTEGER npe,itemp,ierr,istatus(MPI_STATUS_SIZE) |
69 |
|
INTEGER mpiBufSize,mpiRequest |
70 |
|
|
71 |
#endif /* ALLOW_USE_MPI */ |
#endif /* ALLOW_USE_MPI */ |
72 |
INTEGER myThid |
INTEGER myThid |
189 |
C a common block array. This allows process 0 to know |
C a common block array. This allows process 0 to know |
190 |
C the location of the domains controlled by each process. |
C the location of the domains controlled by each process. |
191 |
DO npe = 0, numberOfProcs-1 |
DO npe = 0, numberOfProcs-1 |
192 |
CALL MPI_SEND (myXGlobalLo, 1, MPI_INTEGER, |
mpiBufSize=1 |
193 |
& npe, mpiMyId, MPI_COMM_MODEL, ierr) |
mpiRequest=0 |
194 |
|
CALL MPI_ISEND (myXGlobalLo, mpiBufSize, MPI_INTEGER, |
195 |
|
& npe, mpiMyId, MPI_COMM_MODEL, mpiRequest, ierr) |
196 |
ENDDO |
ENDDO |
197 |
DO npe = 0, numberOfProcs-1 |
DO npe = 0, numberOfProcs-1 |
198 |
CALL MPI_RECV (itemp, 1, MPI_INTEGER, |
mpiBufSize=1 |
199 |
|
CALL MPI_RECV (itemp, mpiBufSize, MPI_INTEGER, |
200 |
& npe, npe, MPI_COMM_MODEL, istatus, ierr) |
& npe, npe, MPI_COMM_MODEL, istatus, ierr) |
201 |
mpi_myXGlobalLo(npe+1) = itemp |
mpi_myXGlobalLo(npe+1) = itemp |
202 |
ENDDO |
ENDDO |
203 |
DO npe = 0, numberOfProcs-1 |
DO npe = 0, numberOfProcs-1 |
204 |
CALL MPI_SEND (myYGlobalLo, 1, MPI_INTEGER, |
mpiBufSize=1 |
205 |
& npe, mpiMyId, MPI_COMM_MODEL, ierr) |
mpiRequest=0 |
206 |
|
CALL MPI_ISEND (myYGlobalLo, mpiBufSize, MPI_INTEGER, |
207 |
|
& npe, mpiMyId, MPI_COMM_MODEL, mpiRequest, ierr) |
208 |
ENDDO |
ENDDO |
209 |
DO npe = 0, numberOfProcs-1 |
DO npe = 0, numberOfProcs-1 |
210 |
CALL MPI_RECV (itemp, 1, MPI_INTEGER, |
mpiBufSize=1 |
211 |
|
CALL MPI_RECV (itemp, mpiBufSize, MPI_INTEGER, |
212 |
& npe, npe, MPI_COMM_MODEL, istatus, ierr) |
& npe, npe, MPI_COMM_MODEL, istatus, ierr) |
213 |
mpi_myYGlobalLo(npe+1) = itemp |
mpi_myYGlobalLo(npe+1) = itemp |
214 |
ENDDO |
ENDDO |