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

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

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

revision 1.6 by jmc, Wed Nov 9 19:50:03 2005 UTC revision 1.7 by dimitri, Thu Oct 19 06:54:23 2006 UTC
# Line 65  C--   Process 0 fills-in its local data Line 65  C--   Process 0 fills-in its local data
65    
66  C--   Process 0 polls and receives data from each process in turn  C--   Process 0 polls and receives data from each process in turn
67           DO npe = 1, numberOfProcs-1           DO npe = 1, numberOfProcs-1
68    #ifndef DISABLE_MPI_READY_TO_RECEIVE
69              CALL MPI_SEND (ready_to_receive, 1, MPI_INTEGER,              CALL MPI_SEND (ready_to_receive, 1, MPI_INTEGER,
70       &           npe, itag, MPI_COMM_MODEL, ierr)       &           npe, itag, MPI_COMM_MODEL, ierr)
71    #endif
72              CALL MPI_RECV (temp, lbuff, MPI_DOUBLE_PRECISION,              CALL MPI_RECV (temp, lbuff, MPI_DOUBLE_PRECISION,
73       &           npe, itag, MPI_COMM_MODEL, istatus, ierr)       &           npe, itag, MPI_COMM_MODEL, istatus, ierr)
74    
# Line 87  C--   Process 0 gathers the local arrays Line 89  C--   Process 0 gathers the local arrays
89        ELSE        ELSE
90    
91  C--   All proceses except 0 wait to be polled then send local array  C--   All proceses except 0 wait to be polled then send local array
92    #ifndef DISABLE_MPI_READY_TO_RECEIVE
93           CALL MPI_RECV (ready_to_receive, 1, MPI_INTEGER,           CALL MPI_RECV (ready_to_receive, 1, MPI_INTEGER,
94       &        idest, itag, MPI_COMM_MODEL, istatus, ierr)       &        idest, itag, MPI_COMM_MODEL, istatus, ierr)
95    #endif
96           CALL MPI_SEND (local, lbuff, MPI_DOUBLE_PRECISION,           CALL MPI_SEND (local, lbuff, MPI_DOUBLE_PRECISION,
97       &        idest, itag, MPI_COMM_MODEL, ierr)       &        idest, itag, MPI_COMM_MODEL, ierr)
98    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22