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, |
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, |