132 |
mb = nN |
mb = nN |
133 |
ir = 2 |
ir = 2 |
134 |
theTag1 = (tt-1)*MAX_NEIGHBOURS*2 + oN-1 |
theTag1 = (tt-1)*MAX_NEIGHBOURS*2 + oN-1 |
|
& + 10000*( |
|
|
& (thisTile-1)*MAX_NEIGHBOURS*2 + oN-1 |
|
|
& ) |
|
135 |
theTag2 = (tt-1)*MAX_NEIGHBOURS*2 + MAX_NEIGHBOURS + oN-1 |
theTag2 = (tt-1)*MAX_NEIGHBOURS*2 + MAX_NEIGHBOURS + oN-1 |
|
& + 10000*( |
|
|
& (thisTile-1)*MAX_NEIGHBOURS*2 + MAX_NEIGHBOURS + oN-1 |
|
|
& ) |
|
136 |
tProc = exch2_tProc(thisTile)-1 |
tProc = exch2_tProc(thisTile)-1 |
137 |
sProc = exch2_tProc(tt)-1 |
sProc = exch2_tProc(tt)-1 |
138 |
theType = MPI_REAL8 |
theType = MPI_REAL8 |