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

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

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

revision 1.9 by utke, Fri Mar 28 18:39:54 2008 UTC revision 1.10 by utke, Fri Apr 4 20:18:34 2008 UTC
# Line 79  C                                   tile Line 79  C                                   tile
79        INTEGER theProc, theTag, theType, theSize, mpiRc        INTEGER theProc, theTag, theType, theSize, mpiRc
80  # ifdef ALLOW_AUTODIFF_OPENAD  # ifdef ALLOW_AUTODIFF_OPENAD
81        INTEGER mpiStatus(MPI_STATUS_SIZE)        INTEGER mpiStatus(MPI_STATUS_SIZE)
82          INTEGER pReqI
83  # endif  # endif
84  #endif  #endif
85  C--   Write data to exchange buffer  C--   Write data to exchange buffer
# Line 214  C        Send the data Line 215  C        Send the data
215       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
216       &                  exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), mpiRc )       &                  exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), mpiRc )
217  # else  # else
218             pReqI=exchNReqsX(1,bi,bj)+1
219           CALL ampi_isend_RX(           CALL ampi_isend_RX(
220       & westSendBuf_RX(1,eBl,bi,bj),       & westSendBuf_RX(1,eBl,bi,bj),
221       & theSize,       & theSize,
# Line 221  C        Send the data Line 223  C        Send the data
223       & theProc,       & theProc,
224       & theTag,       & theTag,
225       & MPI_COMM_MODEL,       & MPI_COMM_MODEL,
226       & exchReqIdX(exchNReqsX(1,bi,bj)+1,1,bi,bj),       & exchReqIdX(pReqI,1,bi,bj),
227       & exchNReqsX(1,bi,bj),       & exchNReqsX(1,bi,bj),
228       & mpiStatus ,       & mpiStatus ,
229       & mpiRc )       & mpiRc )
# Line 274  C        Send the data Line 276  C        Send the data
276       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
277       &                  exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), mpiRc )       &                  exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), mpiRc )
278  # else  # else
279             pReqI=exchNReqsX(1,bi,bj)+1
280           CALL ampi_isend_RX(           CALL ampi_isend_RX(
281       & eastSendBuf_RX(1,eBl,bi,bj) ,       & eastSendBuf_RX(1,eBl,bi,bj) ,
282       & theSize ,       & theSize ,
# Line 281  C        Send the data Line 284  C        Send the data
284       & theProc ,       & theProc ,
285       & theTag ,       & theTag ,
286       & MPI_COMM_MODEL ,       & MPI_COMM_MODEL ,
287       & exchReqIdX(exchNReqsX(1,bi,bj)+1,1,bi,bj) ,       & exchReqIdX(pReqI,1,bi,bj) ,
288       & exchNReqsX(1,bi,bj),       & exchNReqsX(1,bi,bj),
289       & mpiStatus ,       & mpiStatus ,
290       & mpiRc  )       & mpiRc  )
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22