/[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.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 76  C                                   tile Line 76  C                                   tile
76        INTEGER eastCommMode        INTEGER eastCommMode
77        INTEGER spinCount        INTEGER spinCount
78  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
79        INTEGER theProc, theTag, theType, theSize        INTEGER theProc, theTag, theType, theSize, pReqI
80        INTEGER mpiStatus(MPI_STATUS_SIZE,4), mpiRc        INTEGER mpiStatus(MPI_STATUS_SIZE,4), mpiRc
81  #endif  #endif
82  CEOP  CEOP
# 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
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 166  C--   iii. Set data read flag + memory s Line 167  C--   iii. Set data read flag + memory s
167       & theProc ,       & theProc ,
168       & theTag ,       & theTag ,
169       & MPI_COMM_MODEL ,       & MPI_COMM_MODEL ,
170       & exchReqIdX(exchNReqsX(1,bi,bj)+1,1,bi,bj),       & exchReqIdX(pReqI,1,bi,bj),
171       & exchNReqsX(1,bi,bj),       & exchNReqsX(1,bi,bj),
172       & mpiStatus ,       & mpiStatus ,
173       & mpiRc )       & mpiRc )
174  # endif /* ALLOW_AUTODIFF_OPENAD */  # endif /* ALLOW_AUTODIFF_OPENAD */
# Line 190  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
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 197  C--   iii. Set data read flag + memory s Line 199  C--   iii. Set data read flag + memory s
199       & theProc ,       & theProc ,
200       & theTag ,       & theTag ,
201       & MPI_COMM_MODEL ,       & MPI_COMM_MODEL ,
202       & exchReqIdX(exchNReqsX(1,bi,bj)+1,1,bi,bj),       & exchReqIdX(pReqI,1,bi,bj),
203       & exchNReqsX(1,bi,bj),       & exchNReqsX(1,bi,bj),
204       & mpiStatus ,       & mpiStatus ,
205       & mpiRc )       & mpiRc )
206  # endif /* ALLOW_AUTODIFF_OPENAD */  # endif /* ALLOW_AUTODIFF_OPENAD */
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22