/[MITgcm]/MITgcm/eesupp/src/ini_procs.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/ini_procs.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.15 by dimitri, Tue Feb 18 05:33:53 2003 UTC revision 1.16 by adcroft, Mon May 12 16:32:27 2003 UTC
# Line 66  C--   Variables needed for mpi gather sc Line 66  C--   Variables needed for mpi gather sc
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
# Line 188  C     and myYGlobalLo from each process Line 189  C     and myYGlobalLo from each process
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
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22