/[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.2 by cnh, Fri Sep 21 03:55:50 2001 UTC revision 1.3 by dimitri, Wed Nov 12 00:02:44 2003 UTC
# Line 140  C        Send the data Line 140  C        Send the data
140           theProc = tilePidW(bi,bj)           theProc = tilePidW(bi,bj)
141           theTag  = _tileTagSendW(bi,bj)           theTag  = _tileTagSendW(bi,bj)
142           theSize = iB           theSize = iB
143           theType = MPI_DOUBLE_PRECISION           theType = _MPI_TYPE_RX
144           exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1           exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1
145           CALL MPI_Isend(westSendBuf_RX(1,eBl,bi,bj), theSize, theType,           CALL MPI_Isend(westSendBuf_RX(1,eBl,bi,bj), theSize, theType,
146       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
# Line 186  C        Send the data Line 186  C        Send the data
186           theProc = tilePidE(bi,bj)           theProc = tilePidE(bi,bj)
187           theTag  = _tileTagSendE(bi,bj)           theTag  = _tileTagSendE(bi,bj)
188           theSize = iB           theSize = iB
189           theType = MPI_DOUBLE_PRECISION           theType = _MPI_TYPE_RX
190           exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1           exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1
191           CALL MPI_Isend(eastSendBuf_RX(1,eBl,bi,bj), theSize, theType,           CALL MPI_Isend(eastSendBuf_RX(1,eBl,bi,bj), theSize, theType,
192       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
# Line 235  C        Send the data Line 235  C        Send the data
235           theProc = tilePidW(bi,bj)           theProc = tilePidW(bi,bj)
236           theTag  = _tileTagSendW(bi,bj)           theTag  = _tileTagSendW(bi,bj)
237           theSize = iB           theSize = iB
238           theType = MPI_DOUBLE_PRECISION           theType = _MPI_TYPE_RX
239           exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1           exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1
240           CALL MPI_Isend(westSendBuf_RX(1,eBl,bi,bj), theSize, theType,           CALL MPI_Isend(westSendBuf_RX(1,eBl,bi,bj), theSize, theType,
241       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
# Line 283  C        Send the data Line 283  C        Send the data
283           theProc = tilePidE(bi,bj)           theProc = tilePidE(bi,bj)
284           theTag  = _tileTagSendE(bi,bj)           theTag  = _tileTagSendE(bi,bj)
285           theSize = iB           theSize = iB
286           theType = MPI_DOUBLE_PRECISION           theType = _MPI_TYPE_RX
287           exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1           exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1
288           CALL MPI_Isend(eastSendBuf_RX(1,eBl,bi,bj), theSize, theType,           CALL MPI_Isend(eastSendBuf_RX(1,eBl,bi,bj), theSize, theType,
289       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22