/[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.12 by utke, Tue Jul 15 04:00:33 2008 UTC revision 1.13 by jmc, Fri Jan 9 22:51:12 2009 UTC
# Line 119  CEOP Line 119  CEOP
119        IF ( usingMPI ) THEN        IF ( usingMPI ) THEN
120  #endif  #endif
121  C      Set default behavior to have MPI comms done by a single thread.  C      Set default behavior to have MPI comms done by a single thread.
122  C      Most MPI implementations don't support concurrent comms from  C      Most MPI implementations do not support concurrent comms from
123  C      several threads.  C      several threads.
124         IF ( nThreads .GT. 1 ) THEN         IF ( nThreads .GT. 1 ) THEN
125          _BARRIER          _BARRIER
# Line 215  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           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 276  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           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 ,
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22