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

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

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

revision 1.1 by heimbach, Wed Jun 7 21:29:15 2006 UTC revision 1.2 by dimitri, Thu Oct 19 06:54:23 2006 UTC
# Line 61  C--   Process 0 fills-in its local data Line 61  C--   Process 0 fills-in its local data
61    
62  C--   Process 0 polls and receives data from each process in turn  C--   Process 0 polls and receives data from each process in turn
63           DO npe = 1, numberOfProcs-1           DO npe = 1, numberOfProcs-1
64    #ifndef DISABLE_MPI_READY_TO_RECEIVE
65              CALL MPI_SEND (ready_to_receive, 1, MPI_INTEGER,              CALL MPI_SEND (ready_to_receive, 1, MPI_INTEGER,
66       &           npe, itag, MPI_COMM_MODEL, ierr)       &           npe, itag, MPI_COMM_MODEL, ierr)
67    #endif
68              CALL MPI_RECV (temp, lbuff, MPI_DOUBLE_PRECISION,              CALL MPI_RECV (temp, lbuff, MPI_DOUBLE_PRECISION,
69       &           npe, itag, MPI_COMM_MODEL, istatus, ierr)       &           npe, itag, MPI_COMM_MODEL, istatus, ierr)
70    
# Line 80  C--   Process 0 gathers the local arrays Line 82  C--   Process 0 gathers the local arrays
82        ELSE        ELSE
83    
84  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
85    #ifndef DISABLE_MPI_READY_TO_RECEIVE
86           CALL MPI_RECV (ready_to_receive, 1, MPI_INTEGER,           CALL MPI_RECV (ready_to_receive, 1, MPI_INTEGER,
87       &        idest, itag, MPI_COMM_MODEL, istatus, ierr)       &        idest, itag, MPI_COMM_MODEL, istatus, ierr)
88    #endif
89           CALL MPI_SEND (local, lbuff, MPI_DOUBLE_PRECISION,           CALL MPI_SEND (local, lbuff, MPI_DOUBLE_PRECISION,
90       &        idest, itag, MPI_COMM_MODEL, ierr)       &        idest, itag, MPI_COMM_MODEL, ierr)
91    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22