87 |
theTag1 = (thisTile-1)*W2_maxNeighbours*2 + nN-1 |
theTag1 = (thisTile-1)*W2_maxNeighbours*2 + nN-1 |
88 |
theTag2 = (thisTile-1)*W2_maxNeighbours*2 |
theTag2 = (thisTile-1)*W2_maxNeighbours*2 |
89 |
& + W2_maxNeighbours + nN-1 |
& + W2_maxNeighbours + nN-1 |
90 |
tProc = exch2_tProc(tgT)-1 |
tProc = W2_tileProc(tgT)-1 |
91 |
sProc = exch2_tProc(thisTile)-1 |
sProc = W2_tileProc(thisTile)-1 |
92 |
theType = _MPI_TYPE_RX |
theType = _MPI_TYPE_RX |
93 |
#ifdef W2_E2_DEBUG_ON |
#ifdef W2_E2_DEBUG_ON |
94 |
WRITE(msgBuf,'(A,I5,A,I5,A)') |
WRITE(msgBuf,'(A,I5,A,I5,A)') |