/[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.11 by utke, Fri Apr 4 20:18:34 2008 UTC revision 1.12 by utke, Tue Jul 15 04:00:33 2008 UTC
# Line 154  C--   iii. Set data read flag + memory s Line 154  C--   iii. Set data read flag + memory s
154           theTag  = _tileTagRecvW(bi,bj)           theTag  = _tileTagRecvW(bi,bj)
155           theType = _MPI_TYPE_RX           theType = _MPI_TYPE_RX
156           theSize = sNy*exchWidthX*myNz           theSize = sNy*exchWidthX*myNz
157  # ifndef ALLOW_AUTODIFF_OPENAD  # ifndef ALLOW_AUTODIFF_OPENAD_AMPI
158           CALL MPI_Recv( westRecvBuf_RX(1,eBl,bi,bj), theSize, theType,           CALL MPI_Recv( westRecvBuf_RX(1,eBl,bi,bj), theSize, theType,
159       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
160       &                  mpiStatus, mpiRc )       &                  mpiStatus, mpiRc )
# Line 171  C--   iii. Set data read flag + memory s Line 171  C--   iii. Set data read flag + memory s
171       & exchNReqsX(1,bi,bj),       & exchNReqsX(1,bi,bj),
172       & mpiStatus ,       & mpiStatus ,
173       & mpiRc )       & mpiRc )
174  # endif /* ALLOW_AUTODIFF_OPENAD */  # endif /* ALLOW_AUTODIFF_OPENAD_AMPI */
175  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
176          ENDIF                          ENDIF                
177  #endif  #endif
# Line 186  C--   iii. Set data read flag + memory s Line 186  C--   iii. Set data read flag + memory s
186           theTag  = _tileTagRecvE(bi,bj)           theTag  = _tileTagRecvE(bi,bj)
187           theType = _MPI_TYPE_RX           theType = _MPI_TYPE_RX
188           theSize = sNy*exchWidthX*myNz           theSize = sNy*exchWidthX*myNz
189  # ifndef ALLOW_AUTODIFF_OPENAD  # ifndef ALLOW_AUTODIFF_OPENAD_AMPI
190           CALL MPI_Recv( eastRecvBuf_RX(1,eBl,bi,bj), theSize, theType,           CALL MPI_Recv( eastRecvBuf_RX(1,eBl,bi,bj), theSize, theType,
191       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
192       &                  mpiStatus, mpiRc )       &                  mpiStatus, mpiRc )
# Line 203  C--   iii. Set data read flag + memory s Line 203  C--   iii. Set data read flag + memory s
203       & exchNReqsX(1,bi,bj),       & exchNReqsX(1,bi,bj),
204       & mpiStatus ,       & mpiStatus ,
205       & mpiRc )       & mpiRc )
206  # endif /* ALLOW_AUTODIFF_OPENAD */  # endif /* ALLOW_AUTODIFF_OPENAD_AMPI */
207  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
208          ENDIF                          ENDIF                
209  #endif  #endif
# Line 225  C        i.e. we only lock waiting for d Line 225  C        i.e. we only lock waiting for d
225           ebL = exchangeBufLevel(1,bi,bj)           ebL = exchangeBufLevel(1,bi,bj)
226           westCommMode = _tileCommModeW(bi,bj)           westCommMode = _tileCommModeW(bi,bj)
227           eastCommMode = _tileCommModeE(bi,bj)           eastCommMode = _tileCommModeE(bi,bj)
228  # ifndef ALLOW_AUTODIFF_OPENAD  # ifndef ALLOW_AUTODIFF_OPENAD_AMPI
229     10    CONTINUE     10    CONTINUE
230            CALL FOOL_THE_COMPILER( spinCount )            CALL FOOL_THE_COMPILER( spinCount )
231            spinCount = spinCount+1            spinCount = spinCount+1
# Line 242  C         ENDIF Line 242  C         ENDIF
242            CALL FOOL_THE_COMPILER( spinCount )            CALL FOOL_THE_COMPILER( spinCount )
243            spinCount = spinCount+1            spinCount = spinCount+1
244           end do           end do
245  # endif /* ALLOW_AUTODIFF_OPENAD */  # endif /* ALLOW_AUTODIFF_OPENAD_AMPI */
246  C        Clear outstanding requests  C        Clear outstanding requests
247           westRecvAck(eBl,bi,bj) = 0           westRecvAck(eBl,bi,bj) = 0
248           eastRecvAck(eBl,bi,bj) = 0           eastRecvAck(eBl,bi,bj) = 0
# Line 252  C        Clear outstanding requests Line 252  C        Clear outstanding requests
252  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
253           IF ( usingMPI ) THEN           IF ( usingMPI ) THEN
254  #endif  #endif
255  # ifndef ALLOW_AUTODIFF_OPENAD  # ifndef ALLOW_AUTODIFF_OPENAD_AMPI
256            CALL MPI_Waitall( exchNReqsX(1,bi,bj), exchReqIdX(1,1,bi,bj),            CALL MPI_Waitall( exchNReqsX(1,bi,bj), exchReqIdX(1,1,bi,bj),
257       &                      mpiStatus, mpiRC )       &                      mpiStatus, mpiRC )
258  # else  # else
# Line 261  C        Clear outstanding requests Line 261  C        Clear outstanding requests
261       & exchReqIdX(1,1,bi,bj),       & exchReqIdX(1,1,bi,bj),
262       & mpiStatus,       & mpiStatus,
263       & mpiRC )       & mpiRC )
264  # endif /* ALLOW_AUTODIFF_OPENAD */  # endif /* ALLOW_AUTODIFF_OPENAD_AMPI */
265  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
266          ENDIF                          ENDIF                
267  #endif  #endif
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22