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

Diff of /MITgcm/eesupp/src/exch_rx_recv_get_y.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 157  C--   iii. Set data read flag + memory s Line 157  C--   iii. Set data read flag + memory s
157           theSize = sNx*exchWidthY*myNz           theSize = sNx*exchWidthY*myNz
158           IF ( theCornerMode .EQ. EXCH_UPDATE_CORNERS )           IF ( theCornerMode .EQ. EXCH_UPDATE_CORNERS )
159       &    theSize = (sNx+2*exchWidthX)*exchWidthY*myNz       &    theSize = (sNx+2*exchWidthX)*exchWidthY*myNz
160  # ifndef ALLOW_AUTODIFF_OPENAD  # ifndef ALLOW_AUTODIFF_OPENAD_AMPI
161           CALL MPI_Recv( southRecvBuf_RX(1,eBl,bi,bj), theSize, theType,           CALL MPI_Recv( southRecvBuf_RX(1,eBl,bi,bj), theSize, theType,
162       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
163       &                  mpiStatus, mpiRc )       &                  mpiStatus, mpiRc )
# Line 174  C--   iii. Set data read flag + memory s Line 174  C--   iii. Set data read flag + memory s
174       & exchNReqsY(1,bi,bj),       & exchNReqsY(1,bi,bj),
175       & mpiStatus ,       & mpiStatus ,
176       & mpiRc )       & mpiRc )
177  # endif /* ALLOW_AUTODIFF_OPENAD */  # endif /* ALLOW_AUTODIFF_OPENAD_AMPI */
178  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
179          ENDIF                          ENDIF                
180  #endif  #endif
# Line 191  C--   iii. Set data read flag + memory s Line 191  C--   iii. Set data read flag + memory s
191           theSize = sNx*exchWidthY*myNz           theSize = sNx*exchWidthY*myNz
192           IF ( theCornerMode .EQ. EXCH_UPDATE_CORNERS )           IF ( theCornerMode .EQ. EXCH_UPDATE_CORNERS )
193       &    theSize = (sNx+2*exchWidthX)*exchWidthY*myNz       &    theSize = (sNx+2*exchWidthX)*exchWidthY*myNz
194  # ifndef ALLOW_AUTODIFF_OPENAD  # ifndef ALLOW_AUTODIFF_OPENAD_AMPI
195           CALL MPI_Recv( northRecvBuf_RX(1,eBl,bi,bj), theSize, theType,           CALL MPI_Recv( northRecvBuf_RX(1,eBl,bi,bj), theSize, theType,
196       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
197       &                  mpiStatus, mpiRc )       &                  mpiStatus, mpiRc )
# Line 208  C--   iii. Set data read flag + memory s Line 208  C--   iii. Set data read flag + memory s
208       & exchNReqsY(1,bi,bj),       & exchNReqsY(1,bi,bj),
209       & mpiStatus ,       & mpiStatus ,
210       & mpiRc )       & mpiRc )
211  # endif /* ALLOW_AUTODIFF_OPENAD */  # endif /* ALLOW_AUTODIFF_OPENAD_AMPI */
212  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
213          ENDIF                          ENDIF                
214  #endif  #endif
# Line 230  C        i.e. we only lock waiting for d Line 230  C        i.e. we only lock waiting for d
230           southCommMode = _tileCommModeS(bi,bj)           southCommMode = _tileCommModeS(bi,bj)
231           northCommMode = _tileCommModeN(bi,bj)           northCommMode = _tileCommModeN(bi,bj)
232           spinCount = 0           spinCount = 0
233  # ifndef ALLOW_AUTODIFF_OPENAD  # ifndef ALLOW_AUTODIFF_OPENAD_AMPI
234     10    CONTINUE     10    CONTINUE
235            CALL FOOL_THE_COMPILER( spinCount )            CALL FOOL_THE_COMPILER( spinCount )
236            spinCount = spinCount+1            spinCount = spinCount+1
# Line 246  C         ENDIF Line 246  C         ENDIF
246            CALL FOOL_THE_COMPILER( spinCount )            CALL FOOL_THE_COMPILER( spinCount )
247            spinCount = spinCount+1            spinCount = spinCount+1
248           end do           end do
249  # endif /* ALLOW_AUTODIFF_OPENAD */  # endif /* ALLOW_AUTODIFF_OPENAD_AMPI */
250  C        Clear requests  C        Clear requests
251           southRecvAck(eBl,bi,bj) = 0           southRecvAck(eBl,bi,bj) = 0
252           northRecvAck(eBl,bi,bj) = 0           northRecvAck(eBl,bi,bj) = 0
# Line 267  C        Update statistics Line 267  C        Update statistics
267  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
268           IF ( usingMPI ) THEN           IF ( usingMPI ) THEN
269  #endif  #endif
270  # ifndef ALLOW_AUTODIFF_OPENAD  # ifndef ALLOW_AUTODIFF_OPENAD_AMPI
271            CALL MPI_Waitall( exchNReqsY(1,bi,bj), exchReqIdY(1,1,bi,bj),            CALL MPI_Waitall( exchNReqsY(1,bi,bj), exchReqIdY(1,1,bi,bj),
272       &                      mpiStatus, mpiRC )       &                      mpiStatus, mpiRC )
273  # else  # else
# Line 276  C        Update statistics Line 276  C        Update statistics
276       & exchReqIdY(1,1,bi,bj),       & exchReqIdY(1,1,bi,bj),
277       & mpiStatus,       & mpiStatus,
278       & mpiRC )       & mpiRC )
279  # endif /* ALLOW_AUTODIFF_OPENAD */  # endif /* ALLOW_AUTODIFF_OPENAD_AMPI */
280  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
281          ENDIF                          ENDIF                
282  #endif  #endif
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22