/[MITgcm]/MITgcm/eesupp/src/exch_rx_recv_get_y.template
ViewVC logotype

Diff of /MITgcm/eesupp/src/exch_rx_recv_get_y.template

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

revision 1.10 by utke, Fri Mar 28 18:39:54 2008 UTC revision 1.11 by utke, Fri Apr 4 20:18:34 2008 UTC
# Line 78  C     mpiStatus                  :: MPI Line 78  C     mpiStatus                  :: MPI
78        INTEGER northCommMode        INTEGER northCommMode
79        INTEGER spinCount        INTEGER spinCount
80  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
81        INTEGER theProc, theTag, theType, theSize        INTEGER theProc, theTag, theType, theSize, pReqI
82        INTEGER mpiStatus(MPI_STATUS_SIZE,4), mpiRc        INTEGER mpiStatus(MPI_STATUS_SIZE,4), mpiRc
83  #endif  #endif
84  CEOP  CEOP
# Line 162  C--   iii. Set data read flag + memory s Line 162  C--   iii. Set data read flag + memory s
162       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
163       &                  mpiStatus, mpiRc )       &                  mpiStatus, mpiRc )
164  # else  # else
165             pReqI=exchNReqsY(1,bi,bj)+1
166           CALL ampi_recv_RX(           CALL ampi_recv_RX(
167       & southRecvBuf_RX(1,eBl,bi,bj) ,       & southRecvBuf_RX(1,eBl,bi,bj) ,
168       & theSize ,       & theSize ,
# Line 169  C--   iii. Set data read flag + memory s Line 170  C--   iii. Set data read flag + memory s
170       & theProc ,       & theProc ,
171       & theTag ,       & theTag ,
172       & MPI_COMM_MODEL ,       & MPI_COMM_MODEL ,
173       & exchReqIdY(exchNReqsY(1,bi,bj)+1,1,bi,bj),       & exchReqIdY(pReqI,1,bi,bj),
174       & exchNReqsY(1,bi,bj),       & exchNReqsY(1,bi,bj),
175       & mpiStatus ,       & mpiStatus ,
176       & mpiRc )       & mpiRc )
# Line 195  C--   iii. Set data read flag + memory s Line 196  C--   iii. Set data read flag + memory s
196       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
197       &                  mpiStatus, mpiRc )       &                  mpiStatus, mpiRc )
198  # else  # else
199             pReqI=exchNReqsY(1,bi,bj)+1
200           CALL ampi_recv_RX(           CALL ampi_recv_RX(
201       & northRecvBuf_RX(1,eBl,bi,bj) ,       & northRecvBuf_RX(1,eBl,bi,bj) ,
202       & theSize ,       & theSize ,
# Line 202  C--   iii. Set data read flag + memory s Line 204  C--   iii. Set data read flag + memory s
204       & theProc ,       & theProc ,
205       & theTag ,       & theTag ,
206       & MPI_COMM_MODEL ,       & MPI_COMM_MODEL ,
207       & exchReqIdY(exchNReqsY(1,bi,bj)+1,1,bi,bj),       & exchReqIdY(pReqI,1,bi,bj),
208       & exchNReqsY(1,bi,bj),       & exchNReqsY(1,bi,bj),
209       & mpiStatus ,       & mpiStatus ,
210       & mpiRc )       & mpiRc )
# Line 265  C        Update statistics Line 267  C        Update statistics
267  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
268           IF ( usingMPI ) THEN           IF ( usingMPI ) THEN
269  #endif  #endif
270    # ifndef ALLOW_AUTODIFF_OPENAD
271            CALL MPI_Waitall( exchNReqsY(1,bi,bj), exchReqIdY(1,1,bi,bj),            CALL MPI_Waitall( exchNReqsY(1,bi,bj), exchReqIdY(1,1,bi,bj),
272       &                      mpiStatus, mpiRC )       &                      mpiStatus, mpiRC )
273    # else
274              CALL ampi_waitall(
275         & exchNReqsY(1,bi,bj),
276         & exchReqIdY(1,1,bi,bj),
277         & mpiStatus,
278         & mpiRC )
279    # endif /* ALLOW_AUTODIFF_OPENAD */
280  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
281          ENDIF                          ENDIF                
282  #endif  #endif
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22