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

Diff of /MITgcm/eesupp/src/exch_rx_recv_get_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 93  CEOP Line 93  CEOP
93        IF ( usingMPI ) THEN        IF ( usingMPI ) THEN
94  #endif  #endif
95  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.
96  C      Most MPI implementations don't support concurrent comms from  C      Most MPI implementations do not support concurrent comms from
97  C      several threads.  C      several threads.
98         IF ( nThreads .GT. 1 ) THEN         IF ( nThreads .GT. 1 ) THEN
99          _BARRIER          _BARRIER
# Line 159  C--   iii. Set data read flag + memory s Line 159  C--   iii. Set data read flag + memory s
159       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
160       &                  mpiStatus, mpiRc )       &                  mpiStatus, mpiRc )
161  # else  # else
162           pReqI=exchNReqsX(1,bi,bj)+1           pReqI=exchNReqsX(1,bi,bj)+1
163           CALL ampi_recv_RX(           CALL ampi_recv_RX(
164       & westRecvBuf_RX(1,eBl,bi,bj) ,       & westRecvBuf_RX(1,eBl,bi,bj) ,
165       & theSize ,       & theSize ,
# Line 191  C--   iii. Set data read flag + memory s Line 191  C--   iii. Set data read flag + memory s
191       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
192       &                  mpiStatus, mpiRc )       &                  mpiStatus, mpiRc )
193  # else  # else
194           pReqI=exchNReqsX(1,bi,bj)+1           pReqI=exchNReqsX(1,bi,bj)+1
195           CALL ampi_recv_RX(           CALL ampi_recv_RX(
196       & eastRecvBuf_RX(1,eBl,bi,bj) ,       & eastRecvBuf_RX(1,eBl,bi,bj) ,
197       & theSize ,       & theSize ,
# Line 236  C         ENDIF Line 236  C         ENDIF
236            IF ( westRecvAck(eBl,bi,bj) .EQ. 0 ) GOTO 10            IF ( westRecvAck(eBl,bi,bj) .EQ. 0 ) GOTO 10
237            IF ( eastRecvAck(eBl,bi,bj) .EQ. 0 ) GOTO 10            IF ( eastRecvAck(eBl,bi,bj) .EQ. 0 ) GOTO 10
238  # else  # else
239           do while ((westRecvAck(eBl,bi,bj) .EQ. 0.           do while ((westRecvAck(eBl,bi,bj) .EQ. 0.
240       &             .or.       &             .or.
241       &              eastRecvAck(eBl,bi,bj) .EQ. 0. ))       &              eastRecvAck(eBl,bi,bj) .EQ. 0. ))
242            CALL FOOL_THE_COMPILER( spinCount )            CALL FOOL_THE_COMPILER( spinCount )
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22