27 |
#include "SIZE.h" |
#include "SIZE.h" |
28 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
29 |
#include "EESUPPORT.h" |
#include "EESUPPORT.h" |
30 |
|
#include "W2_EXCH2_SIZE.h" |
31 |
#include "W2_EXCH2_TOPOLOGY.h" |
#include "W2_EXCH2_TOPOLOGY.h" |
32 |
|
|
33 |
C === Routine arguments === |
C === Routine arguments === |
339 |
ELSEIF ( commSetting .EQ. 'M' ) THEN |
ELSEIF ( commSetting .EQ. 'M' ) THEN |
340 |
#ifdef ALLOW_USE_MPI |
#ifdef ALLOW_USE_MPI |
341 |
C Setup MPI stuff here |
C Setup MPI stuff here |
342 |
theTag1 = (thisTile-1)*MAX_NEIGHBOURS*2 + nN-1 |
theTag1 = (thisTile-1)*W2_maxNeighbours*2 + nN-1 |
343 |
theTag2 = (thisTile-1)*MAX_NEIGHBOURS*2 + MAX_NEIGHBOURS + nN-1 |
theTag2 = (thisTile-1)*W2_maxNeighbours*2 |
344 |
|
& + W2_maxNeighbours + nN-1 |
345 |
tProc = exch2_tProc(tt)-1 |
tProc = exch2_tProc(tt)-1 |
346 |
sProc = exch2_tProc(thisTile)-1 |
sProc = exch2_tProc(thisTile)-1 |
347 |
theType = MPI_REAL8 |
theType = _MPI_TYPE_RX |
348 |
#ifdef W2_E2_DEBUG_ON |
#ifdef W2_E2_DEBUG_ON |
349 |
WRITE(messageBuffer,'(A,I4,A,I4,A)') ' SEND FROM TILE=',thisTile, |
WRITE(messageBuffer,'(A,I4,A,I4,A)') ' SEND FROM TILE=',thisTile, |
350 |
& ' (proc = ',sProc,')' |
& ' (proc = ',sProc,')' |