339 |
#ifdef ALLOW_USE_MPI |
#ifdef ALLOW_USE_MPI |
340 |
C Setup MPI stuff here |
C Setup MPI stuff here |
341 |
theTag1 = (thisTile-1)*MAX_NEIGHBOURS*2 + nN-1 |
theTag1 = (thisTile-1)*MAX_NEIGHBOURS*2 + nN-1 |
|
& + 10000*( |
|
|
& (tt-1)*MAX_NEIGHBOURS*2 + nN-1 |
|
|
& ) |
|
342 |
theTag2 = (thisTile-1)*MAX_NEIGHBOURS*2 + MAX_NEIGHBOURS + nN-1 |
theTag2 = (thisTile-1)*MAX_NEIGHBOURS*2 + MAX_NEIGHBOURS + nN-1 |
|
& + 10000*( |
|
|
& (tt-1)*MAX_NEIGHBOURS*2 + MAX_NEIGHBOURS + nN-1 |
|
|
& ) |
|
343 |
tProc = exch2_tProc(tt)-1 |
tProc = exch2_tProc(tt)-1 |
344 |
sProc = exch2_tProc(thisTile)-1 |
sProc = exch2_tProc(thisTile)-1 |
345 |
theType = MPI_REAL8 |
theType = MPI_REAL8 |