/[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.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 109  C--   iii. Set data read flag + memory s Line 109  C--   iii. Set data read flag + memory s
109  #endif  #endif
110           theProc = tilePidW(bi,bj)           theProc = tilePidW(bi,bj)
111           theTag  = _tileTagRecvW(bi,bj)           theTag  = _tileTagRecvW(bi,bj)
112           theType = MPI_DOUBLE_PRECISION           theType = _MPI_TYPE_RX
113           theSize = sNy*exchWidthX*myNz           theSize = sNy*exchWidthX*myNz
114           CALL MPI_Recv( westRecvBuf_RX(1,eBl,bi,bj), theSize, theType,           CALL MPI_Recv( westRecvBuf_RX(1,eBl,bi,bj), theSize, theType,
115       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
# Line 126  C--   iii. Set data read flag + memory s Line 126  C--   iii. Set data read flag + memory s
126  #endif  #endif
127           theProc = tilePidE(bi,bj)           theProc = tilePidE(bi,bj)
128           theTag  = _tileTagRecvE(bi,bj)           theTag  = _tileTagRecvE(bi,bj)
129           theType = MPI_DOUBLE_PRECISION           theType = _MPI_TYPE_RX
130           theSize = sNy*exchWidthX*myNz           theSize = sNy*exchWidthX*myNz
131           CALL MPI_Recv( eastRecvBuf_RX(1,eBl,bi,bj), theSize, theType,           CALL MPI_Recv( eastRecvBuf_RX(1,eBl,bi,bj), theSize, theType,
132       &                  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