/[MITgcm]/MITgcm/utils/exch2/code-mods/s192t_8x4/w2_e2setup.F
ViewVC logotype

Contents of /MITgcm/utils/exch2/code-mods/s192t_8x4/w2_e2setup.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.2 - (show annotations) (download)
Sat Oct 20 17:31:48 2012 UTC (10 years, 3 months ago) by jmc
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +1 -1 lines
FILE REMOVED
remove far out of date code (not working since the switch to fortran code
 to define exch2 topology in May 2009)

1 C $Header: /u/gcmpack/MITgcm/utils/exch2/code-mods/s192t_8x4/w2_e2setup.F,v 1.1 2008/08/01 21:20:35 jmc Exp $
2 C $Name: $
3
4 C *** THIS FILE IS AUTOMATICALLY GENERATED ***
5 SUBROUTINE W2_E2SETUP
6
7 C Tile toplogy settings data structures
8 #include "W2_EXCH2_TOPOLOGY.h"
9
10 C Tile settings table
11 CALL W2_E2SETUP_1
12 CALL W2_E2SETUP_2
13 CALL W2_E2SETUP_3
14 CALL W2_E2SETUP_4
15 CALL W2_E2SETUP_5
16 CALL W2_E2SETUP_6
17 CALL W2_E2SETUP_7
18 CALL W2_E2SETUP_8
19 CALL W2_E2SETUP_9
20 CALL W2_E2SETUP_10
21 CALL W2_E2SETUP_11
22 CALL W2_E2SETUP_12
23 CALL W2_E2SETUP_13
24 CALL W2_E2SETUP_14
25 CALL W2_E2SETUP_15
26 CALL W2_E2SETUP_16
27 CALL W2_E2SETUP_17
28 CALL W2_E2SETUP_18
29 CALL W2_E2SETUP_19
30 CALL W2_E2SETUP_20
31 CALL W2_E2SETUP_21
32 CALL W2_E2SETUP_22
33 CALL W2_E2SETUP_23
34 CALL W2_E2SETUP_24
35 CALL W2_E2SETUP_25
36 CALL W2_E2SETUP_26
37 CALL W2_E2SETUP_27
38 CALL W2_E2SETUP_28
39 CALL W2_E2SETUP_29
40 CALL W2_E2SETUP_30
41 CALL W2_E2SETUP_31
42 CALL W2_E2SETUP_32
43 CALL W2_E2SETUP_33
44 CALL W2_E2SETUP_34
45 CALL W2_E2SETUP_35
46 CALL W2_E2SETUP_36
47 CALL W2_E2SETUP_37
48 CALL W2_E2SETUP_38
49 CALL W2_E2SETUP_39
50 CALL W2_E2SETUP_40
51 CALL W2_E2SETUP_41
52 CALL W2_E2SETUP_42
53 CALL W2_E2SETUP_43
54 CALL W2_E2SETUP_44
55 CALL W2_E2SETUP_45
56 CALL W2_E2SETUP_46
57 CALL W2_E2SETUP_47
58 CALL W2_E2SETUP_48
59 CALL W2_E2SETUP_49
60 CALL W2_E2SETUP_50
61 CALL W2_E2SETUP_51
62 CALL W2_E2SETUP_52
63 CALL W2_E2SETUP_53
64 CALL W2_E2SETUP_54
65 CALL W2_E2SETUP_55
66 CALL W2_E2SETUP_56
67 CALL W2_E2SETUP_57
68 CALL W2_E2SETUP_58
69 CALL W2_E2SETUP_59
70 CALL W2_E2SETUP_60
71 CALL W2_E2SETUP_61
72 CALL W2_E2SETUP_62
73 CALL W2_E2SETUP_63
74 CALL W2_E2SETUP_64
75 CALL W2_E2SETUP_65
76 CALL W2_E2SETUP_66
77 CALL W2_E2SETUP_67
78 CALL W2_E2SETUP_68
79 CALL W2_E2SETUP_69
80 CALL W2_E2SETUP_70
81 CALL W2_E2SETUP_71
82 CALL W2_E2SETUP_72
83 CALL W2_E2SETUP_73
84 CALL W2_E2SETUP_74
85 CALL W2_E2SETUP_75
86 CALL W2_E2SETUP_76
87 CALL W2_E2SETUP_77
88 CALL W2_E2SETUP_78
89 CALL W2_E2SETUP_79
90 CALL W2_E2SETUP_80
91 CALL W2_E2SETUP_81
92 CALL W2_E2SETUP_82
93 CALL W2_E2SETUP_83
94 CALL W2_E2SETUP_84
95 CALL W2_E2SETUP_85
96 CALL W2_E2SETUP_86
97 CALL W2_E2SETUP_87
98 CALL W2_E2SETUP_88
99 CALL W2_E2SETUP_89
100 CALL W2_E2SETUP_90
101 CALL W2_E2SETUP_91
102 CALL W2_E2SETUP_92
103 CALL W2_E2SETUP_93
104 CALL W2_E2SETUP_94
105 CALL W2_E2SETUP_95
106 CALL W2_E2SETUP_96
107 CALL W2_E2SETUP_97
108 CALL W2_E2SETUP_98
109 CALL W2_E2SETUP_99
110 CALL W2_E2SETUP_100
111 CALL W2_E2SETUP_101
112 CALL W2_E2SETUP_102
113 CALL W2_E2SETUP_103
114 CALL W2_E2SETUP_104
115 CALL W2_E2SETUP_105
116 CALL W2_E2SETUP_106
117 CALL W2_E2SETUP_107
118 CALL W2_E2SETUP_108
119 CALL W2_E2SETUP_109
120 CALL W2_E2SETUP_110
121 CALL W2_E2SETUP_111
122 CALL W2_E2SETUP_112
123 CALL W2_E2SETUP_113
124 CALL W2_E2SETUP_114
125 CALL W2_E2SETUP_115
126 CALL W2_E2SETUP_116
127 CALL W2_E2SETUP_117
128 CALL W2_E2SETUP_118
129 CALL W2_E2SETUP_119
130 CALL W2_E2SETUP_120
131 CALL W2_E2SETUP_121
132 CALL W2_E2SETUP_122
133 CALL W2_E2SETUP_123
134 CALL W2_E2SETUP_124
135 CALL W2_E2SETUP_125
136 CALL W2_E2SETUP_126
137 CALL W2_E2SETUP_127
138 CALL W2_E2SETUP_128
139 CALL W2_E2SETUP_129
140 CALL W2_E2SETUP_130
141 CALL W2_E2SETUP_131
142 CALL W2_E2SETUP_132
143 CALL W2_E2SETUP_133
144 CALL W2_E2SETUP_134
145 CALL W2_E2SETUP_135
146 CALL W2_E2SETUP_136
147 CALL W2_E2SETUP_137
148 CALL W2_E2SETUP_138
149 CALL W2_E2SETUP_139
150 CALL W2_E2SETUP_140
151 CALL W2_E2SETUP_141
152 CALL W2_E2SETUP_142
153 CALL W2_E2SETUP_143
154 CALL W2_E2SETUP_144
155 CALL W2_E2SETUP_145
156 CALL W2_E2SETUP_146
157 CALL W2_E2SETUP_147
158 CALL W2_E2SETUP_148
159 CALL W2_E2SETUP_149
160 CALL W2_E2SETUP_150
161 CALL W2_E2SETUP_151
162 CALL W2_E2SETUP_152
163 CALL W2_E2SETUP_153
164 CALL W2_E2SETUP_154
165 CALL W2_E2SETUP_155
166 CALL W2_E2SETUP_156
167 CALL W2_E2SETUP_157
168 CALL W2_E2SETUP_158
169 CALL W2_E2SETUP_159
170 CALL W2_E2SETUP_160
171 CALL W2_E2SETUP_161
172 CALL W2_E2SETUP_162
173 CALL W2_E2SETUP_163
174 CALL W2_E2SETUP_164
175 CALL W2_E2SETUP_165
176 CALL W2_E2SETUP_166
177 CALL W2_E2SETUP_167
178 CALL W2_E2SETUP_168
179 CALL W2_E2SETUP_169
180 CALL W2_E2SETUP_170
181 CALL W2_E2SETUP_171
182 CALL W2_E2SETUP_172
183 CALL W2_E2SETUP_173
184 CALL W2_E2SETUP_174
185 CALL W2_E2SETUP_175
186 CALL W2_E2SETUP_176
187 CALL W2_E2SETUP_177
188 CALL W2_E2SETUP_178
189 CALL W2_E2SETUP_179
190 CALL W2_E2SETUP_180
191 CALL W2_E2SETUP_181
192 CALL W2_E2SETUP_182
193 CALL W2_E2SETUP_183
194 CALL W2_E2SETUP_184
195 CALL W2_E2SETUP_185
196 CALL W2_E2SETUP_186
197 CALL W2_E2SETUP_187
198 CALL W2_E2SETUP_188
199 CALL W2_E2SETUP_189
200 CALL W2_E2SETUP_190
201 CALL W2_E2SETUP_191
202 CALL W2_E2SETUP_192
203 RETURN
204 END
205
206 SUBROUTINE W2_E2SETUP_1
207 C Topology for tile 1
208 #include "W2_EXCH2_TOPOLOGY.h"
209 exch2_tNx(1)=8
210 exch2_tNy(1)=4
211 exch2_tBasex(1)=0
212 exch2_tBasey(1)=0
213 exch2_txGlobalo(1)=1
214 exch2_tyGlobalo(1)=1
215 exch2_isWedge(1)=1
216 exch2_isNedge(1)=0
217 exch2_isEedge(1)=0
218 exch2_isSedge(1)=1
219 exch2_myFace(1)=1
220 exch2_mydNx(1)=32
221 exch2_mydNy(1)=32
222 exch2_nNeighbours(1)=4
223
224 exch2_neighbourId(1,1)=5
225 exch2_iLo(1,1)=0
226 exch2_iHi(1,1)=9
227 exch2_jLo(1,1)=5
228 exch2_jHi(1,1)=5
229 exch2_opposingSend(1,1)=2
230 exch2_pij(1,1,1)=1
231 exch2_pij(2,1,1)=0
232 exch2_pij(3,1,1)=0
233 exch2_pij(4,1,1)=1
234 exch2_oi(1,1)=0
235 exch2_oj(1,1)=0
236
237 exch2_neighbourId(2,1)=189
238 exch2_iLo(2,1)=0
239 exch2_iHi(2,1)=9
240 exch2_jLo(2,1)=0
241 exch2_jHi(2,1)=0
242 exch2_opposingSend(2,1)=1
243 exch2_pij(1,2,1)=1
244 exch2_pij(2,2,1)=0
245 exch2_pij(3,2,1)=0
246 exch2_pij(4,2,1)=1
247 exch2_oi(2,1)=0
248 exch2_oj(2,1)=-32
249
250 exch2_neighbourId(3,1)=2
251 exch2_iLo(3,1)=9
252 exch2_iHi(3,1)=9
253 exch2_jLo(3,1)=0
254 exch2_jHi(3,1)=5
255 exch2_opposingSend(3,1)=4
256 exch2_pij(1,3,1)=1
257 exch2_pij(2,3,1)=0
258 exch2_pij(3,3,1)=0
259 exch2_pij(4,3,1)=1
260 exch2_oi(3,1)=0
261 exch2_oj(3,1)=0
262
263 exch2_neighbourId(4,1)=160
264 exch2_iLo(4,1)=0
265 exch2_iHi(4,1)=0
266 exch2_jLo(4,1)=0
267 exch2_jHi(4,1)=5
268 exch2_opposingSend(4,1)=1
269 exch2_pij(1,4,1)=0
270 exch2_pij(2,4,1)=1
271 exch2_pij(3,4,1)=-1
272 exch2_pij(4,4,1)=0
273 exch2_oi(4,1)=-32
274 exch2_oj(4,1)=33
275 RETURN
276 END
277
278 SUBROUTINE W2_E2SETUP_2
279 C Topology for tile 2
280 #include "W2_EXCH2_TOPOLOGY.h"
281 exch2_tNx(2)=8
282 exch2_tNy(2)=4
283 exch2_tBasex(2)=8
284 exch2_tBasey(2)=0
285 exch2_txGlobalo(2)=9
286 exch2_tyGlobalo(2)=1
287 exch2_isWedge(2)=0
288 exch2_isNedge(2)=0
289 exch2_isEedge(2)=0
290 exch2_isSedge(2)=1
291 exch2_myFace(2)=1
292 exch2_mydNx(2)=32
293 exch2_mydNy(2)=32
294 exch2_nNeighbours(2)=4
295
296 exch2_neighbourId(1,2)=6
297 exch2_iLo(1,2)=0
298 exch2_iHi(1,2)=9
299 exch2_jLo(1,2)=5
300 exch2_jHi(1,2)=5
301 exch2_opposingSend(1,2)=2
302 exch2_pij(1,1,2)=1
303 exch2_pij(2,1,2)=0
304 exch2_pij(3,1,2)=0
305 exch2_pij(4,1,2)=1
306 exch2_oi(1,2)=0
307 exch2_oj(1,2)=0
308
309 exch2_neighbourId(2,2)=190
310 exch2_iLo(2,2)=0
311 exch2_iHi(2,2)=9
312 exch2_jLo(2,2)=0
313 exch2_jHi(2,2)=0
314 exch2_opposingSend(2,2)=1
315 exch2_pij(1,2,2)=1
316 exch2_pij(2,2,2)=0
317 exch2_pij(3,2,2)=0
318 exch2_pij(4,2,2)=1
319 exch2_oi(2,2)=0
320 exch2_oj(2,2)=-32
321
322 exch2_neighbourId(3,2)=3
323 exch2_iLo(3,2)=9
324 exch2_iHi(3,2)=9
325 exch2_jLo(3,2)=0
326 exch2_jHi(3,2)=5
327 exch2_opposingSend(3,2)=4
328 exch2_pij(1,3,2)=1
329 exch2_pij(2,3,2)=0
330 exch2_pij(3,3,2)=0
331 exch2_pij(4,3,2)=1
332 exch2_oi(3,2)=0
333 exch2_oj(3,2)=0
334
335 exch2_neighbourId(4,2)=1
336 exch2_iLo(4,2)=0
337 exch2_iHi(4,2)=0
338 exch2_jLo(4,2)=0
339 exch2_jHi(4,2)=5
340 exch2_opposingSend(4,2)=3
341 exch2_pij(1,4,2)=1
342 exch2_pij(2,4,2)=0
343 exch2_pij(3,4,2)=0
344 exch2_pij(4,4,2)=1
345 exch2_oi(4,2)=0
346 exch2_oj(4,2)=0
347 RETURN
348 END
349
350 SUBROUTINE W2_E2SETUP_3
351 C Topology for tile 3
352 #include "W2_EXCH2_TOPOLOGY.h"
353 exch2_tNx(3)=8
354 exch2_tNy(3)=4
355 exch2_tBasex(3)=16
356 exch2_tBasey(3)=0
357 exch2_txGlobalo(3)=17
358 exch2_tyGlobalo(3)=1
359 exch2_isWedge(3)=0
360 exch2_isNedge(3)=0
361 exch2_isEedge(3)=0
362 exch2_isSedge(3)=1
363 exch2_myFace(3)=1
364 exch2_mydNx(3)=32
365 exch2_mydNy(3)=32
366 exch2_nNeighbours(3)=4
367
368 exch2_neighbourId(1,3)=7
369 exch2_iLo(1,3)=0
370 exch2_iHi(1,3)=9
371 exch2_jLo(1,3)=5
372 exch2_jHi(1,3)=5
373 exch2_opposingSend(1,3)=2
374 exch2_pij(1,1,3)=1
375 exch2_pij(2,1,3)=0
376 exch2_pij(3,1,3)=0
377 exch2_pij(4,1,3)=1
378 exch2_oi(1,3)=0
379 exch2_oj(1,3)=0
380
381 exch2_neighbourId(2,3)=191
382 exch2_iLo(2,3)=0
383 exch2_iHi(2,3)=9
384 exch2_jLo(2,3)=0
385 exch2_jHi(2,3)=0
386 exch2_opposingSend(2,3)=1
387 exch2_pij(1,2,3)=1
388 exch2_pij(2,2,3)=0
389 exch2_pij(3,2,3)=0
390 exch2_pij(4,2,3)=1
391 exch2_oi(2,3)=0
392 exch2_oj(2,3)=-32
393
394 exch2_neighbourId(3,3)=4
395 exch2_iLo(3,3)=9
396 exch2_iHi(3,3)=9
397 exch2_jLo(3,3)=0
398 exch2_jHi(3,3)=5
399 exch2_opposingSend(3,3)=4
400 exch2_pij(1,3,3)=1
401 exch2_pij(2,3,3)=0
402 exch2_pij(3,3,3)=0
403 exch2_pij(4,3,3)=1
404 exch2_oi(3,3)=0
405 exch2_oj(3,3)=0
406
407 exch2_neighbourId(4,3)=2
408 exch2_iLo(4,3)=0
409 exch2_iHi(4,3)=0
410 exch2_jLo(4,3)=0
411 exch2_jHi(4,3)=5
412 exch2_opposingSend(4,3)=3
413 exch2_pij(1,4,3)=1
414 exch2_pij(2,4,3)=0
415 exch2_pij(3,4,3)=0
416 exch2_pij(4,4,3)=1
417 exch2_oi(4,3)=0
418 exch2_oj(4,3)=0
419 RETURN
420 END
421
422 SUBROUTINE W2_E2SETUP_4
423 C Topology for tile 4
424 #include "W2_EXCH2_TOPOLOGY.h"
425 exch2_tNx(4)=8
426 exch2_tNy(4)=4
427 exch2_tBasex(4)=24
428 exch2_tBasey(4)=0
429 exch2_txGlobalo(4)=25
430 exch2_tyGlobalo(4)=1
431 exch2_isWedge(4)=0
432 exch2_isNedge(4)=0
433 exch2_isEedge(4)=1
434 exch2_isSedge(4)=1
435 exch2_myFace(4)=1
436 exch2_mydNx(4)=32
437 exch2_mydNy(4)=32
438 exch2_nNeighbours(4)=4
439
440 exch2_neighbourId(1,4)=8
441 exch2_iLo(1,4)=0
442 exch2_iHi(1,4)=9
443 exch2_jLo(1,4)=5
444 exch2_jHi(1,4)=5
445 exch2_opposingSend(1,4)=2
446 exch2_pij(1,1,4)=1
447 exch2_pij(2,1,4)=0
448 exch2_pij(3,1,4)=0
449 exch2_pij(4,1,4)=1
450 exch2_oi(1,4)=0
451 exch2_oj(1,4)=0
452
453 exch2_neighbourId(2,4)=192
454 exch2_iLo(2,4)=0
455 exch2_iHi(2,4)=9
456 exch2_jLo(2,4)=0
457 exch2_jHi(2,4)=0
458 exch2_opposingSend(2,4)=1
459 exch2_pij(1,2,4)=1
460 exch2_pij(2,2,4)=0
461 exch2_pij(3,2,4)=0
462 exch2_pij(4,2,4)=1
463 exch2_oi(2,4)=0
464 exch2_oj(2,4)=-32
465
466 exch2_neighbourId(3,4)=33
467 exch2_iLo(3,4)=9
468 exch2_iHi(3,4)=9
469 exch2_jLo(3,4)=0
470 exch2_jHi(3,4)=5
471 exch2_opposingSend(3,4)=5
472 exch2_pij(1,3,4)=1
473 exch2_pij(2,3,4)=0
474 exch2_pij(3,3,4)=0
475 exch2_pij(4,3,4)=1
476 exch2_oi(3,4)=32
477 exch2_oj(3,4)=0
478
479 exch2_neighbourId(4,4)=3
480 exch2_iLo(4,4)=0
481 exch2_iHi(4,4)=0
482 exch2_jLo(4,4)=0
483 exch2_jHi(4,4)=5
484 exch2_opposingSend(4,4)=3
485 exch2_pij(1,4,4)=1
486 exch2_pij(2,4,4)=0
487 exch2_pij(3,4,4)=0
488 exch2_pij(4,4,4)=1
489 exch2_oi(4,4)=0
490 exch2_oj(4,4)=0
491 RETURN
492 END
493
494 SUBROUTINE W2_E2SETUP_5
495 C Topology for tile 5
496 #include "W2_EXCH2_TOPOLOGY.h"
497 exch2_tNx(5)=8
498 exch2_tNy(5)=4
499 exch2_tBasex(5)=0
500 exch2_tBasey(5)=4
501 exch2_txGlobalo(5)=1
502 exch2_tyGlobalo(5)=5
503 exch2_isWedge(5)=1
504 exch2_isNedge(5)=0
505 exch2_isEedge(5)=0
506 exch2_isSedge(5)=0
507 exch2_myFace(5)=1
508 exch2_mydNx(5)=32
509 exch2_mydNy(5)=32
510 exch2_nNeighbours(5)=4
511
512 exch2_neighbourId(1,5)=9
513 exch2_iLo(1,5)=0
514 exch2_iHi(1,5)=9
515 exch2_jLo(1,5)=5
516 exch2_jHi(1,5)=5
517 exch2_opposingSend(1,5)=2
518 exch2_pij(1,1,5)=1
519 exch2_pij(2,1,5)=0
520 exch2_pij(3,1,5)=0
521 exch2_pij(4,1,5)=1
522 exch2_oi(1,5)=0
523 exch2_oj(1,5)=0
524
525 exch2_neighbourId(2,5)=1
526 exch2_iLo(2,5)=0
527 exch2_iHi(2,5)=9
528 exch2_jLo(2,5)=0
529 exch2_jHi(2,5)=0
530 exch2_opposingSend(2,5)=1
531 exch2_pij(1,2,5)=1
532 exch2_pij(2,2,5)=0
533 exch2_pij(3,2,5)=0
534 exch2_pij(4,2,5)=1
535 exch2_oi(2,5)=0
536 exch2_oj(2,5)=0
537
538 exch2_neighbourId(3,5)=6
539 exch2_iLo(3,5)=9
540 exch2_iHi(3,5)=9
541 exch2_jLo(3,5)=0
542 exch2_jHi(3,5)=5
543 exch2_opposingSend(3,5)=4
544 exch2_pij(1,3,5)=1
545 exch2_pij(2,3,5)=0
546 exch2_pij(3,3,5)=0
547 exch2_pij(4,3,5)=1
548 exch2_oi(3,5)=0
549 exch2_oj(3,5)=0
550
551 exch2_neighbourId(4,5)=160
552 exch2_iLo(4,5)=0
553 exch2_iHi(4,5)=0
554 exch2_jLo(4,5)=0
555 exch2_jHi(4,5)=5
556 exch2_opposingSend(4,5)=2
557 exch2_pij(1,4,5)=0
558 exch2_pij(2,4,5)=1
559 exch2_pij(3,4,5)=-1
560 exch2_pij(4,4,5)=0
561 exch2_oi(4,5)=-32
562 exch2_oj(4,5)=33
563 RETURN
564 END
565
566 SUBROUTINE W2_E2SETUP_6
567 C Topology for tile 6
568 #include "W2_EXCH2_TOPOLOGY.h"
569 exch2_tNx(6)=8
570 exch2_tNy(6)=4
571 exch2_tBasex(6)=8
572 exch2_tBasey(6)=4
573 exch2_txGlobalo(6)=9
574 exch2_tyGlobalo(6)=5
575 exch2_isWedge(6)=0
576 exch2_isNedge(6)=0
577 exch2_isEedge(6)=0
578 exch2_isSedge(6)=0
579 exch2_myFace(6)=1
580 exch2_mydNx(6)=32
581 exch2_mydNy(6)=32
582 exch2_nNeighbours(6)=4
583
584 exch2_neighbourId(1,6)=10
585 exch2_iLo(1,6)=0
586 exch2_iHi(1,6)=9
587 exch2_jLo(1,6)=5
588 exch2_jHi(1,6)=5
589 exch2_opposingSend(1,6)=2
590 exch2_pij(1,1,6)=1
591 exch2_pij(2,1,6)=0
592 exch2_pij(3,1,6)=0
593 exch2_pij(4,1,6)=1
594 exch2_oi(1,6)=0
595 exch2_oj(1,6)=0
596
597 exch2_neighbourId(2,6)=2
598 exch2_iLo(2,6)=0
599 exch2_iHi(2,6)=9
600 exch2_jLo(2,6)=0
601 exch2_jHi(2,6)=0
602 exch2_opposingSend(2,6)=1
603 exch2_pij(1,2,6)=1
604 exch2_pij(2,2,6)=0
605 exch2_pij(3,2,6)=0
606 exch2_pij(4,2,6)=1
607 exch2_oi(2,6)=0
608 exch2_oj(2,6)=0
609
610 exch2_neighbourId(3,6)=7
611 exch2_iLo(3,6)=9
612 exch2_iHi(3,6)=9
613 exch2_jLo(3,6)=0
614 exch2_jHi(3,6)=5
615 exch2_opposingSend(3,6)=4
616 exch2_pij(1,3,6)=1
617 exch2_pij(2,3,6)=0
618 exch2_pij(3,3,6)=0
619 exch2_pij(4,3,6)=1
620 exch2_oi(3,6)=0
621 exch2_oj(3,6)=0
622
623 exch2_neighbourId(4,6)=5
624 exch2_iLo(4,6)=0
625 exch2_iHi(4,6)=0
626 exch2_jLo(4,6)=0
627 exch2_jHi(4,6)=5
628 exch2_opposingSend(4,6)=3
629 exch2_pij(1,4,6)=1
630 exch2_pij(2,4,6)=0
631 exch2_pij(3,4,6)=0
632 exch2_pij(4,4,6)=1
633 exch2_oi(4,6)=0
634 exch2_oj(4,6)=0
635 RETURN
636 END
637
638 SUBROUTINE W2_E2SETUP_7
639 C Topology for tile 7
640 #include "W2_EXCH2_TOPOLOGY.h"
641 exch2_tNx(7)=8
642 exch2_tNy(7)=4
643 exch2_tBasex(7)=16
644 exch2_tBasey(7)=4
645 exch2_txGlobalo(7)=17
646 exch2_tyGlobalo(7)=5
647 exch2_isWedge(7)=0
648 exch2_isNedge(7)=0
649 exch2_isEedge(7)=0
650 exch2_isSedge(7)=0
651 exch2_myFace(7)=1
652 exch2_mydNx(7)=32
653 exch2_mydNy(7)=32
654 exch2_nNeighbours(7)=4
655
656 exch2_neighbourId(1,7)=11
657 exch2_iLo(1,7)=0
658 exch2_iHi(1,7)=9
659 exch2_jLo(1,7)=5
660 exch2_jHi(1,7)=5
661 exch2_opposingSend(1,7)=2
662 exch2_pij(1,1,7)=1
663 exch2_pij(2,1,7)=0
664 exch2_pij(3,1,7)=0
665 exch2_pij(4,1,7)=1
666 exch2_oi(1,7)=0
667 exch2_oj(1,7)=0
668
669 exch2_neighbourId(2,7)=3
670 exch2_iLo(2,7)=0
671 exch2_iHi(2,7)=9
672 exch2_jLo(2,7)=0
673 exch2_jHi(2,7)=0
674 exch2_opposingSend(2,7)=1
675 exch2_pij(1,2,7)=1
676 exch2_pij(2,2,7)=0
677 exch2_pij(3,2,7)=0
678 exch2_pij(4,2,7)=1
679 exch2_oi(2,7)=0
680 exch2_oj(2,7)=0
681
682 exch2_neighbourId(3,7)=8
683 exch2_iLo(3,7)=9
684 exch2_iHi(3,7)=9
685 exch2_jLo(3,7)=0
686 exch2_jHi(3,7)=5
687 exch2_opposingSend(3,7)=4
688 exch2_pij(1,3,7)=1
689 exch2_pij(2,3,7)=0
690 exch2_pij(3,3,7)=0
691 exch2_pij(4,3,7)=1
692 exch2_oi(3,7)=0
693 exch2_oj(3,7)=0
694
695 exch2_neighbourId(4,7)=6
696 exch2_iLo(4,7)=0
697 exch2_iHi(4,7)=0
698 exch2_jLo(4,7)=0
699 exch2_jHi(4,7)=5
700 exch2_opposingSend(4,7)=3
701 exch2_pij(1,4,7)=1
702 exch2_pij(2,4,7)=0
703 exch2_pij(3,4,7)=0
704 exch2_pij(4,4,7)=1
705 exch2_oi(4,7)=0
706 exch2_oj(4,7)=0
707 RETURN
708 END
709
710 SUBROUTINE W2_E2SETUP_8
711 C Topology for tile 8
712 #include "W2_EXCH2_TOPOLOGY.h"
713 exch2_tNx(8)=8
714 exch2_tNy(8)=4
715 exch2_tBasex(8)=24
716 exch2_tBasey(8)=4
717 exch2_txGlobalo(8)=25
718 exch2_tyGlobalo(8)=5
719 exch2_isWedge(8)=0
720 exch2_isNedge(8)=0
721 exch2_isEedge(8)=1
722 exch2_isSedge(8)=0
723 exch2_myFace(8)=1
724 exch2_mydNx(8)=32
725 exch2_mydNy(8)=32
726 exch2_nNeighbours(8)=4
727
728 exch2_neighbourId(1,8)=12
729 exch2_iLo(1,8)=0
730 exch2_iHi(1,8)=9
731 exch2_jLo(1,8)=5
732 exch2_jHi(1,8)=5
733 exch2_opposingSend(1,8)=2
734 exch2_pij(1,1,8)=1
735 exch2_pij(2,1,8)=0
736 exch2_pij(3,1,8)=0
737 exch2_pij(4,1,8)=1
738 exch2_oi(1,8)=0
739 exch2_oj(1,8)=0
740
741 exch2_neighbourId(2,8)=4
742 exch2_iLo(2,8)=0
743 exch2_iHi(2,8)=9
744 exch2_jLo(2,8)=0
745 exch2_jHi(2,8)=0
746 exch2_opposingSend(2,8)=1
747 exch2_pij(1,2,8)=1
748 exch2_pij(2,2,8)=0
749 exch2_pij(3,2,8)=0
750 exch2_pij(4,2,8)=1
751 exch2_oi(2,8)=0
752 exch2_oj(2,8)=0
753
754 exch2_neighbourId(3,8)=37
755 exch2_iLo(3,8)=9
756 exch2_iHi(3,8)=9
757 exch2_jLo(3,8)=0
758 exch2_jHi(3,8)=5
759 exch2_opposingSend(3,8)=4
760 exch2_pij(1,3,8)=1
761 exch2_pij(2,3,8)=0
762 exch2_pij(3,3,8)=0
763 exch2_pij(4,3,8)=1
764 exch2_oi(3,8)=32
765 exch2_oj(3,8)=0
766
767 exch2_neighbourId(4,8)=7
768 exch2_iLo(4,8)=0
769 exch2_iHi(4,8)=0
770 exch2_jLo(4,8)=0
771 exch2_jHi(4,8)=5
772 exch2_opposingSend(4,8)=3
773 exch2_pij(1,4,8)=1
774 exch2_pij(2,4,8)=0
775 exch2_pij(3,4,8)=0
776 exch2_pij(4,4,8)=1
777 exch2_oi(4,8)=0
778 exch2_oj(4,8)=0
779 RETURN
780 END
781
782 SUBROUTINE W2_E2SETUP_9
783 C Topology for tile 9
784 #include "W2_EXCH2_TOPOLOGY.h"
785 exch2_tNx(9)=8
786 exch2_tNy(9)=4
787 exch2_tBasex(9)=0
788 exch2_tBasey(9)=8
789 exch2_txGlobalo(9)=1
790 exch2_tyGlobalo(9)=9
791 exch2_isWedge(9)=1
792 exch2_isNedge(9)=0
793 exch2_isEedge(9)=0
794 exch2_isSedge(9)=0
795 exch2_myFace(9)=1
796 exch2_mydNx(9)=32
797 exch2_mydNy(9)=32
798 exch2_nNeighbours(9)=4
799
800 exch2_neighbourId(1,9)=13
801 exch2_iLo(1,9)=0
802 exch2_iHi(1,9)=9
803 exch2_jLo(1,9)=5
804 exch2_jHi(1,9)=5
805 exch2_opposingSend(1,9)=2
806 exch2_pij(1,1,9)=1
807 exch2_pij(2,1,9)=0
808 exch2_pij(3,1,9)=0
809 exch2_pij(4,1,9)=1
810 exch2_oi(1,9)=0
811 exch2_oj(1,9)=0
812
813 exch2_neighbourId(2,9)=5
814 exch2_iLo(2,9)=0
815 exch2_iHi(2,9)=9
816 exch2_jLo(2,9)=0
817 exch2_jHi(2,9)=0
818 exch2_opposingSend(2,9)=1
819 exch2_pij(1,2,9)=1
820 exch2_pij(2,2,9)=0
821 exch2_pij(3,2,9)=0
822 exch2_pij(4,2,9)=1
823 exch2_oi(2,9)=0
824 exch2_oj(2,9)=0
825
826 exch2_neighbourId(3,9)=10
827 exch2_iLo(3,9)=9
828 exch2_iHi(3,9)=9
829 exch2_jLo(3,9)=0
830 exch2_jHi(3,9)=5
831 exch2_opposingSend(3,9)=4
832 exch2_pij(1,3,9)=1
833 exch2_pij(2,3,9)=0
834 exch2_pij(3,3,9)=0
835 exch2_pij(4,3,9)=1
836 exch2_oi(3,9)=0
837 exch2_oj(3,9)=0
838
839 exch2_neighbourId(4,9)=159
840 exch2_iLo(4,9)=0
841 exch2_iHi(4,9)=0
842 exch2_jLo(4,9)=0
843 exch2_jHi(4,9)=5
844 exch2_opposingSend(4,9)=1
845 exch2_pij(1,4,9)=0
846 exch2_pij(2,4,9)=1
847 exch2_pij(3,4,9)=-1
848 exch2_pij(4,4,9)=0
849 exch2_oi(4,9)=-32
850 exch2_oj(4,9)=33
851 RETURN
852 END
853
854 SUBROUTINE W2_E2SETUP_10
855 C Topology for tile 10
856 #include "W2_EXCH2_TOPOLOGY.h"
857 exch2_tNx(10)=8
858 exch2_tNy(10)=4
859 exch2_tBasex(10)=8
860 exch2_tBasey(10)=8
861 exch2_txGlobalo(10)=9
862 exch2_tyGlobalo(10)=9
863 exch2_isWedge(10)=0
864 exch2_isNedge(10)=0
865 exch2_isEedge(10)=0
866 exch2_isSedge(10)=0
867 exch2_myFace(10)=1
868 exch2_mydNx(10)=32
869 exch2_mydNy(10)=32
870 exch2_nNeighbours(10)=4
871
872 exch2_neighbourId(1,10)=14
873 exch2_iLo(1,10)=0
874 exch2_iHi(1,10)=9
875 exch2_jLo(1,10)=5
876 exch2_jHi(1,10)=5
877 exch2_opposingSend(1,10)=2
878 exch2_pij(1,1,10)=1
879 exch2_pij(2,1,10)=0
880 exch2_pij(3,1,10)=0
881 exch2_pij(4,1,10)=1
882 exch2_oi(1,10)=0
883 exch2_oj(1,10)=0
884
885 exch2_neighbourId(2,10)=6
886 exch2_iLo(2,10)=0
887 exch2_iHi(2,10)=9
888 exch2_jLo(2,10)=0
889 exch2_jHi(2,10)=0
890 exch2_opposingSend(2,10)=1
891 exch2_pij(1,2,10)=1
892 exch2_pij(2,2,10)=0
893 exch2_pij(3,2,10)=0
894 exch2_pij(4,2,10)=1
895 exch2_oi(2,10)=0
896 exch2_oj(2,10)=0
897
898 exch2_neighbourId(3,10)=11
899 exch2_iLo(3,10)=9
900 exch2_iHi(3,10)=9
901 exch2_jLo(3,10)=0
902 exch2_jHi(3,10)=5
903 exch2_opposingSend(3,10)=4
904 exch2_pij(1,3,10)=1
905 exch2_pij(2,3,10)=0
906 exch2_pij(3,3,10)=0
907 exch2_pij(4,3,10)=1
908 exch2_oi(3,10)=0
909 exch2_oj(3,10)=0
910
911 exch2_neighbourId(4,10)=9
912 exch2_iLo(4,10)=0
913 exch2_iHi(4,10)=0
914 exch2_jLo(4,10)=0
915 exch2_jHi(4,10)=5
916 exch2_opposingSend(4,10)=3
917 exch2_pij(1,4,10)=1
918 exch2_pij(2,4,10)=0
919 exch2_pij(3,4,10)=0
920 exch2_pij(4,4,10)=1
921 exch2_oi(4,10)=0
922 exch2_oj(4,10)=0
923 RETURN
924 END
925
926 SUBROUTINE W2_E2SETUP_11
927 C Topology for tile 11
928 #include "W2_EXCH2_TOPOLOGY.h"
929 exch2_tNx(11)=8
930 exch2_tNy(11)=4
931 exch2_tBasex(11)=16
932 exch2_tBasey(11)=8
933 exch2_txGlobalo(11)=17
934 exch2_tyGlobalo(11)=9
935 exch2_isWedge(11)=0
936 exch2_isNedge(11)=0
937 exch2_isEedge(11)=0
938 exch2_isSedge(11)=0
939 exch2_myFace(11)=1
940 exch2_mydNx(11)=32
941 exch2_mydNy(11)=32
942 exch2_nNeighbours(11)=4
943
944 exch2_neighbourId(1,11)=15
945 exch2_iLo(1,11)=0
946 exch2_iHi(1,11)=9
947 exch2_jLo(1,11)=5
948 exch2_jHi(1,11)=5
949 exch2_opposingSend(1,11)=2
950 exch2_pij(1,1,11)=1
951 exch2_pij(2,1,11)=0
952 exch2_pij(3,1,11)=0
953 exch2_pij(4,1,11)=1
954 exch2_oi(1,11)=0
955 exch2_oj(1,11)=0
956
957 exch2_neighbourId(2,11)=7
958 exch2_iLo(2,11)=0
959 exch2_iHi(2,11)=9
960 exch2_jLo(2,11)=0
961 exch2_jHi(2,11)=0
962 exch2_opposingSend(2,11)=1
963 exch2_pij(1,2,11)=1
964 exch2_pij(2,2,11)=0
965 exch2_pij(3,2,11)=0
966 exch2_pij(4,2,11)=1
967 exch2_oi(2,11)=0
968 exch2_oj(2,11)=0
969
970 exch2_neighbourId(3,11)=12
971 exch2_iLo(3,11)=9
972 exch2_iHi(3,11)=9
973 exch2_jLo(3,11)=0
974 exch2_jHi(3,11)=5
975 exch2_opposingSend(3,11)=4
976 exch2_pij(1,3,11)=1
977 exch2_pij(2,3,11)=0
978 exch2_pij(3,3,11)=0
979 exch2_pij(4,3,11)=1
980 exch2_oi(3,11)=0
981 exch2_oj(3,11)=0
982
983 exch2_neighbourId(4,11)=10
984 exch2_iLo(4,11)=0
985 exch2_iHi(4,11)=0
986 exch2_jLo(4,11)=0
987 exch2_jHi(4,11)=5
988 exch2_opposingSend(4,11)=3
989 exch2_pij(1,4,11)=1
990 exch2_pij(2,4,11)=0
991 exch2_pij(3,4,11)=0
992 exch2_pij(4,4,11)=1
993 exch2_oi(4,11)=0
994 exch2_oj(4,11)=0
995 RETURN
996 END
997
998 SUBROUTINE W2_E2SETUP_12
999 C Topology for tile 12
1000 #include "W2_EXCH2_TOPOLOGY.h"
1001 exch2_tNx(12)=8
1002 exch2_tNy(12)=4
1003 exch2_tBasex(12)=24
1004 exch2_tBasey(12)=8
1005 exch2_txGlobalo(12)=25
1006 exch2_tyGlobalo(12)=9
1007 exch2_isWedge(12)=0
1008 exch2_isNedge(12)=0
1009 exch2_isEedge(12)=1
1010 exch2_isSedge(12)=0
1011 exch2_myFace(12)=1
1012 exch2_mydNx(12)=32
1013 exch2_mydNy(12)=32
1014 exch2_nNeighbours(12)=4
1015
1016 exch2_neighbourId(1,12)=16
1017 exch2_iLo(1,12)=0
1018 exch2_iHi(1,12)=9
1019 exch2_jLo(1,12)=5
1020 exch2_jHi(1,12)=5
1021 exch2_opposingSend(1,12)=2
1022 exch2_pij(1,1,12)=1
1023 exch2_pij(2,1,12)=0
1024 exch2_pij(3,1,12)=0
1025 exch2_pij(4,1,12)=1
1026 exch2_oi(1,12)=0
1027 exch2_oj(1,12)=0
1028
1029 exch2_neighbourId(2,12)=8
1030 exch2_iLo(2,12)=0
1031 exch2_iHi(2,12)=9
1032 exch2_jLo(2,12)=0
1033 exch2_jHi(2,12)=0
1034 exch2_opposingSend(2,12)=1
1035 exch2_pij(1,2,12)=1
1036 exch2_pij(2,2,12)=0
1037 exch2_pij(3,2,12)=0
1038 exch2_pij(4,2,12)=1
1039 exch2_oi(2,12)=0
1040 exch2_oj(2,12)=0
1041
1042 exch2_neighbourId(3,12)=41
1043 exch2_iLo(3,12)=9
1044 exch2_iHi(3,12)=9
1045 exch2_jLo(3,12)=0
1046 exch2_jHi(3,12)=5
1047 exch2_opposingSend(3,12)=4
1048 exch2_pij(1,3,12)=1
1049 exch2_pij(2,3,12)=0
1050 exch2_pij(3,3,12)=0
1051 exch2_pij(4,3,12)=1
1052 exch2_oi(3,12)=32
1053 exch2_oj(3,12)=0
1054
1055 exch2_neighbourId(4,12)=11
1056 exch2_iLo(4,12)=0
1057 exch2_iHi(4,12)=0
1058 exch2_jLo(4,12)=0
1059 exch2_jHi(4,12)=5
1060 exch2_opposingSend(4,12)=3
1061 exch2_pij(1,4,12)=1
1062 exch2_pij(2,4,12)=0
1063 exch2_pij(3,4,12)=0
1064 exch2_pij(4,4,12)=1
1065 exch2_oi(4,12)=0
1066 exch2_oj(4,12)=0
1067 RETURN
1068 END
1069
1070 SUBROUTINE W2_E2SETUP_13
1071 C Topology for tile 13
1072 #include "W2_EXCH2_TOPOLOGY.h"
1073 exch2_tNx(13)=8
1074 exch2_tNy(13)=4
1075 exch2_tBasex(13)=0
1076 exch2_tBasey(13)=12
1077 exch2_txGlobalo(13)=1
1078 exch2_tyGlobalo(13)=13
1079 exch2_isWedge(13)=1
1080 exch2_isNedge(13)=0
1081 exch2_isEedge(13)=0
1082 exch2_isSedge(13)=0
1083 exch2_myFace(13)=1
1084 exch2_mydNx(13)=32
1085 exch2_mydNy(13)=32
1086 exch2_nNeighbours(13)=4
1087
1088 exch2_neighbourId(1,13)=17
1089 exch2_iLo(1,13)=0
1090 exch2_iHi(1,13)=9
1091 exch2_jLo(1,13)=5
1092 exch2_jHi(1,13)=5
1093 exch2_opposingSend(1,13)=2
1094 exch2_pij(1,1,13)=1
1095 exch2_pij(2,1,13)=0
1096 exch2_pij(3,1,13)=0
1097 exch2_pij(4,1,13)=1
1098 exch2_oi(1,13)=0
1099 exch2_oj(1,13)=0
1100
1101 exch2_neighbourId(2,13)=9
1102 exch2_iLo(2,13)=0
1103 exch2_iHi(2,13)=9
1104 exch2_jLo(2,13)=0
1105 exch2_jHi(2,13)=0
1106 exch2_opposingSend(2,13)=1
1107 exch2_pij(1,2,13)=1
1108 exch2_pij(2,2,13)=0
1109 exch2_pij(3,2,13)=0
1110 exch2_pij(4,2,13)=1
1111 exch2_oi(2,13)=0
1112 exch2_oj(2,13)=0
1113
1114 exch2_neighbourId(3,13)=14
1115 exch2_iLo(3,13)=9
1116 exch2_iHi(3,13)=9
1117 exch2_jLo(3,13)=0
1118 exch2_jHi(3,13)=5
1119 exch2_opposingSend(3,13)=4
1120 exch2_pij(1,3,13)=1
1121 exch2_pij(2,3,13)=0
1122 exch2_pij(3,3,13)=0
1123 exch2_pij(4,3,13)=1
1124 exch2_oi(3,13)=0
1125 exch2_oj(3,13)=0
1126
1127 exch2_neighbourId(4,13)=159
1128 exch2_iLo(4,13)=0
1129 exch2_iHi(4,13)=0
1130 exch2_jLo(4,13)=0
1131 exch2_jHi(4,13)=5
1132 exch2_opposingSend(4,13)=2
1133 exch2_pij(1,4,13)=0
1134 exch2_pij(2,4,13)=1
1135 exch2_pij(3,4,13)=-1
1136 exch2_pij(4,4,13)=0
1137 exch2_oi(4,13)=-32
1138 exch2_oj(4,13)=33
1139 RETURN
1140 END
1141
1142 SUBROUTINE W2_E2SETUP_14
1143 C Topology for tile 14
1144 #include "W2_EXCH2_TOPOLOGY.h"
1145 exch2_tNx(14)=8
1146 exch2_tNy(14)=4
1147 exch2_tBasex(14)=8
1148 exch2_tBasey(14)=12
1149 exch2_txGlobalo(14)=9
1150 exch2_tyGlobalo(14)=13
1151 exch2_isWedge(14)=0
1152 exch2_isNedge(14)=0
1153 exch2_isEedge(14)=0
1154 exch2_isSedge(14)=0
1155 exch2_myFace(14)=1
1156 exch2_mydNx(14)=32
1157 exch2_mydNy(14)=32
1158 exch2_nNeighbours(14)=4
1159
1160 exch2_neighbourId(1,14)=18
1161 exch2_iLo(1,14)=0
1162 exch2_iHi(1,14)=9
1163 exch2_jLo(1,14)=5
1164 exch2_jHi(1,14)=5
1165 exch2_opposingSend(1,14)=2
1166 exch2_pij(1,1,14)=1
1167 exch2_pij(2,1,14)=0
1168 exch2_pij(3,1,14)=0
1169 exch2_pij(4,1,14)=1
1170 exch2_oi(1,14)=0
1171 exch2_oj(1,14)=0
1172
1173 exch2_neighbourId(2,14)=10
1174 exch2_iLo(2,14)=0
1175 exch2_iHi(2,14)=9
1176 exch2_jLo(2,14)=0
1177 exch2_jHi(2,14)=0
1178 exch2_opposingSend(2,14)=1
1179 exch2_pij(1,2,14)=1
1180 exch2_pij(2,2,14)=0
1181 exch2_pij(3,2,14)=0
1182 exch2_pij(4,2,14)=1
1183 exch2_oi(2,14)=0
1184 exch2_oj(2,14)=0
1185
1186 exch2_neighbourId(3,14)=15
1187 exch2_iLo(3,14)=9
1188 exch2_iHi(3,14)=9
1189 exch2_jLo(3,14)=0
1190 exch2_jHi(3,14)=5
1191 exch2_opposingSend(3,14)=4
1192 exch2_pij(1,3,14)=1
1193 exch2_pij(2,3,14)=0
1194 exch2_pij(3,3,14)=0
1195 exch2_pij(4,3,14)=1
1196 exch2_oi(3,14)=0
1197 exch2_oj(3,14)=0
1198
1199 exch2_neighbourId(4,14)=13
1200 exch2_iLo(4,14)=0
1201 exch2_iHi(4,14)=0
1202 exch2_jLo(4,14)=0
1203 exch2_jHi(4,14)=5
1204 exch2_opposingSend(4,14)=3
1205 exch2_pij(1,4,14)=1
1206 exch2_pij(2,4,14)=0
1207 exch2_pij(3,4,14)=0
1208 exch2_pij(4,4,14)=1
1209 exch2_oi(4,14)=0
1210 exch2_oj(4,14)=0
1211 RETURN
1212 END
1213
1214 SUBROUTINE W2_E2SETUP_15
1215 C Topology for tile 15
1216 #include "W2_EXCH2_TOPOLOGY.h"
1217 exch2_tNx(15)=8
1218 exch2_tNy(15)=4
1219 exch2_tBasex(15)=16
1220 exch2_tBasey(15)=12
1221 exch2_txGlobalo(15)=17
1222 exch2_tyGlobalo(15)=13
1223 exch2_isWedge(15)=0
1224 exch2_isNedge(15)=0
1225 exch2_isEedge(15)=0
1226 exch2_isSedge(15)=0
1227 exch2_myFace(15)=1
1228 exch2_mydNx(15)=32
1229 exch2_mydNy(15)=32
1230 exch2_nNeighbours(15)=4
1231
1232 exch2_neighbourId(1,15)=19
1233 exch2_iLo(1,15)=0
1234 exch2_iHi(1,15)=9
1235 exch2_jLo(1,15)=5
1236 exch2_jHi(1,15)=5
1237 exch2_opposingSend(1,15)=2
1238 exch2_pij(1,1,15)=1
1239 exch2_pij(2,1,15)=0
1240 exch2_pij(3,1,15)=0
1241 exch2_pij(4,1,15)=1
1242 exch2_oi(1,15)=0
1243 exch2_oj(1,15)=0
1244
1245 exch2_neighbourId(2,15)=11
1246 exch2_iLo(2,15)=0
1247 exch2_iHi(2,15)=9
1248 exch2_jLo(2,15)=0
1249 exch2_jHi(2,15)=0
1250 exch2_opposingSend(2,15)=1
1251 exch2_pij(1,2,15)=1
1252 exch2_pij(2,2,15)=0
1253 exch2_pij(3,2,15)=0
1254 exch2_pij(4,2,15)=1
1255 exch2_oi(2,15)=0
1256 exch2_oj(2,15)=0
1257
1258 exch2_neighbourId(3,15)=16
1259 exch2_iLo(3,15)=9
1260 exch2_iHi(3,15)=9
1261 exch2_jLo(3,15)=0
1262 exch2_jHi(3,15)=5
1263 exch2_opposingSend(3,15)=4
1264 exch2_pij(1,3,15)=1
1265 exch2_pij(2,3,15)=0
1266 exch2_pij(3,3,15)=0
1267 exch2_pij(4,3,15)=1
1268 exch2_oi(3,15)=0
1269 exch2_oj(3,15)=0
1270
1271 exch2_neighbourId(4,15)=14
1272 exch2_iLo(4,15)=0
1273 exch2_iHi(4,15)=0
1274 exch2_jLo(4,15)=0
1275 exch2_jHi(4,15)=5
1276 exch2_opposingSend(4,15)=3
1277 exch2_pij(1,4,15)=1
1278 exch2_pij(2,4,15)=0
1279 exch2_pij(3,4,15)=0
1280 exch2_pij(4,4,15)=1
1281 exch2_oi(4,15)=0
1282 exch2_oj(4,15)=0
1283 RETURN
1284 END
1285
1286 SUBROUTINE W2_E2SETUP_16
1287 C Topology for tile 16
1288 #include "W2_EXCH2_TOPOLOGY.h"
1289 exch2_tNx(16)=8
1290 exch2_tNy(16)=4
1291 exch2_tBasex(16)=24
1292 exch2_tBasey(16)=12
1293 exch2_txGlobalo(16)=25
1294 exch2_tyGlobalo(16)=13
1295 exch2_isWedge(16)=0
1296 exch2_isNedge(16)=0
1297 exch2_isEedge(16)=1
1298 exch2_isSedge(16)=0
1299 exch2_myFace(16)=1
1300 exch2_mydNx(16)=32
1301 exch2_mydNy(16)=32
1302 exch2_nNeighbours(16)=4
1303
1304 exch2_neighbourId(1,16)=20
1305 exch2_iLo(1,16)=0
1306 exch2_iHi(1,16)=9
1307 exch2_jLo(1,16)=5
1308 exch2_jHi(1,16)=5
1309 exch2_opposingSend(1,16)=2
1310 exch2_pij(1,1,16)=1
1311 exch2_pij(2,1,16)=0
1312 exch2_pij(3,1,16)=0
1313 exch2_pij(4,1,16)=1
1314 exch2_oi(1,16)=0
1315 exch2_oj(1,16)=0
1316
1317 exch2_neighbourId(2,16)=12
1318 exch2_iLo(2,16)=0
1319 exch2_iHi(2,16)=9
1320 exch2_jLo(2,16)=0
1321 exch2_jHi(2,16)=0
1322 exch2_opposingSend(2,16)=1
1323 exch2_pij(1,2,16)=1
1324 exch2_pij(2,2,16)=0
1325 exch2_pij(3,2,16)=0
1326 exch2_pij(4,2,16)=1
1327 exch2_oi(2,16)=0
1328 exch2_oj(2,16)=0
1329
1330 exch2_neighbourId(3,16)=45
1331 exch2_iLo(3,16)=9
1332 exch2_iHi(3,16)=9
1333 exch2_jLo(3,16)=0
1334 exch2_jHi(3,16)=5
1335 exch2_opposingSend(3,16)=4
1336 exch2_pij(1,3,16)=1
1337 exch2_pij(2,3,16)=0
1338 exch2_pij(3,3,16)=0
1339 exch2_pij(4,3,16)=1
1340 exch2_oi(3,16)=32
1341 exch2_oj(3,16)=0
1342
1343 exch2_neighbourId(4,16)=15
1344 exch2_iLo(4,16)=0
1345 exch2_iHi(4,16)=0
1346 exch2_jLo(4,16)=0
1347 exch2_jHi(4,16)=5
1348 exch2_opposingSend(4,16)=3
1349 exch2_pij(1,4,16)=1
1350 exch2_pij(2,4,16)=0
1351 exch2_pij(3,4,16)=0
1352 exch2_pij(4,4,16)=1
1353 exch2_oi(4,16)=0
1354 exch2_oj(4,16)=0
1355 RETURN
1356 END
1357
1358 SUBROUTINE W2_E2SETUP_17
1359 C Topology for tile 17
1360 #include "W2_EXCH2_TOPOLOGY.h"
1361 exch2_tNx(17)=8
1362 exch2_tNy(17)=4
1363 exch2_tBasex(17)=0
1364 exch2_tBasey(17)=16
1365 exch2_txGlobalo(17)=1
1366 exch2_tyGlobalo(17)=17
1367 exch2_isWedge(17)=1
1368 exch2_isNedge(17)=0
1369 exch2_isEedge(17)=0
1370 exch2_isSedge(17)=0
1371 exch2_myFace(17)=1
1372 exch2_mydNx(17)=32
1373 exch2_mydNy(17)=32
1374 exch2_nNeighbours(17)=4
1375
1376 exch2_neighbourId(1,17)=21
1377 exch2_iLo(1,17)=0
1378 exch2_iHi(1,17)=9
1379 exch2_jLo(1,17)=5
1380 exch2_jHi(1,17)=5
1381 exch2_opposingSend(1,17)=2
1382 exch2_pij(1,1,17)=1
1383 exch2_pij(2,1,17)=0
1384 exch2_pij(3,1,17)=0
1385 exch2_pij(4,1,17)=1
1386 exch2_oi(1,17)=0
1387 exch2_oj(1,17)=0
1388
1389 exch2_neighbourId(2,17)=13
1390 exch2_iLo(2,17)=0
1391 exch2_iHi(2,17)=9
1392 exch2_jLo(2,17)=0
1393 exch2_jHi(2,17)=0
1394 exch2_opposingSend(2,17)=1
1395 exch2_pij(1,2,17)=1
1396 exch2_pij(2,2,17)=0
1397 exch2_pij(3,2,17)=0
1398 exch2_pij(4,2,17)=1
1399 exch2_oi(2,17)=0
1400 exch2_oj(2,17)=0
1401
1402 exch2_neighbourId(3,17)=18
1403 exch2_iLo(3,17)=9
1404 exch2_iHi(3,17)=9
1405 exch2_jLo(3,17)=0
1406 exch2_jHi(3,17)=5
1407 exch2_opposingSend(3,17)=4
1408 exch2_pij(1,3,17)=1
1409 exch2_pij(2,3,17)=0
1410 exch2_pij(3,3,17)=0
1411 exch2_pij(4,3,17)=1
1412 exch2_oi(3,17)=0
1413 exch2_oj(3,17)=0
1414
1415 exch2_neighbourId(4,17)=158
1416 exch2_iLo(4,17)=0
1417 exch2_iHi(4,17)=0
1418 exch2_jLo(4,17)=0
1419 exch2_jHi(4,17)=5
1420 exch2_opposingSend(4,17)=1
1421 exch2_pij(1,4,17)=0
1422 exch2_pij(2,4,17)=1
1423 exch2_pij(3,4,17)=-1
1424 exch2_pij(4,4,17)=0
1425 exch2_oi(4,17)=-32
1426 exch2_oj(4,17)=33
1427 RETURN
1428 END
1429
1430 SUBROUTINE W2_E2SETUP_18
1431 C Topology for tile 18
1432 #include "W2_EXCH2_TOPOLOGY.h"
1433 exch2_tNx(18)=8
1434 exch2_tNy(18)=4
1435 exch2_tBasex(18)=8
1436 exch2_tBasey(18)=16
1437 exch2_txGlobalo(18)=9
1438 exch2_tyGlobalo(18)=17
1439 exch2_isWedge(18)=0
1440 exch2_isNedge(18)=0
1441 exch2_isEedge(18)=0
1442 exch2_isSedge(18)=0
1443 exch2_myFace(18)=1
1444 exch2_mydNx(18)=32
1445 exch2_mydNy(18)=32
1446 exch2_nNeighbours(18)=4
1447
1448 exch2_neighbourId(1,18)=22
1449 exch2_iLo(1,18)=0
1450 exch2_iHi(1,18)=9
1451 exch2_jLo(1,18)=5
1452 exch2_jHi(1,18)=5
1453 exch2_opposingSend(1,18)=2
1454 exch2_pij(1,1,18)=1
1455 exch2_pij(2,1,18)=0
1456 exch2_pij(3,1,18)=0
1457 exch2_pij(4,1,18)=1
1458 exch2_oi(1,18)=0
1459 exch2_oj(1,18)=0
1460
1461 exch2_neighbourId(2,18)=14
1462 exch2_iLo(2,18)=0
1463 exch2_iHi(2,18)=9
1464 exch2_jLo(2,18)=0
1465 exch2_jHi(2,18)=0
1466 exch2_opposingSend(2,18)=1
1467 exch2_pij(1,2,18)=1
1468 exch2_pij(2,2,18)=0
1469 exch2_pij(3,2,18)=0
1470 exch2_pij(4,2,18)=1
1471 exch2_oi(2,18)=0
1472 exch2_oj(2,18)=0
1473
1474 exch2_neighbourId(3,18)=19
1475 exch2_iLo(3,18)=9
1476 exch2_iHi(3,18)=9
1477 exch2_jLo(3,18)=0
1478 exch2_jHi(3,18)=5
1479 exch2_opposingSend(3,18)=4
1480 exch2_pij(1,3,18)=1
1481 exch2_pij(2,3,18)=0
1482 exch2_pij(3,3,18)=0
1483 exch2_pij(4,3,18)=1
1484 exch2_oi(3,18)=0
1485 exch2_oj(3,18)=0
1486
1487 exch2_neighbourId(4,18)=17
1488 exch2_iLo(4,18)=0
1489 exch2_iHi(4,18)=0
1490 exch2_jLo(4,18)=0
1491 exch2_jHi(4,18)=5
1492 exch2_opposingSend(4,18)=3
1493 exch2_pij(1,4,18)=1
1494 exch2_pij(2,4,18)=0
1495 exch2_pij(3,4,18)=0
1496 exch2_pij(4,4,18)=1
1497 exch2_oi(4,18)=0
1498 exch2_oj(4,18)=0
1499 RETURN
1500 END
1501
1502 SUBROUTINE W2_E2SETUP_19
1503 C Topology for tile 19
1504 #include "W2_EXCH2_TOPOLOGY.h"
1505 exch2_tNx(19)=8
1506 exch2_tNy(19)=4
1507 exch2_tBasex(19)=16
1508 exch2_tBasey(19)=16
1509 exch2_txGlobalo(19)=17
1510 exch2_tyGlobalo(19)=17
1511 exch2_isWedge(19)=0
1512 exch2_isNedge(19)=0
1513 exch2_isEedge(19)=0
1514 exch2_isSedge(19)=0
1515 exch2_myFace(19)=1
1516 exch2_mydNx(19)=32
1517 exch2_mydNy(19)=32
1518 exch2_nNeighbours(19)=4
1519
1520 exch2_neighbourId(1,19)=23
1521 exch2_iLo(1,19)=0
1522 exch2_iHi(1,19)=9
1523 exch2_jLo(1,19)=5
1524 exch2_jHi(1,19)=5
1525 exch2_opposingSend(1,19)=2
1526 exch2_pij(1,1,19)=1
1527 exch2_pij(2,1,19)=0
1528 exch2_pij(3,1,19)=0
1529 exch2_pij(4,1,19)=1
1530 exch2_oi(1,19)=0
1531 exch2_oj(1,19)=0
1532
1533 exch2_neighbourId(2,19)=15
1534 exch2_iLo(2,19)=0
1535 exch2_iHi(2,19)=9
1536 exch2_jLo(2,19)=0
1537 exch2_jHi(2,19)=0
1538 exch2_opposingSend(2,19)=1
1539 exch2_pij(1,2,19)=1
1540 exch2_pij(2,2,19)=0
1541 exch2_pij(3,2,19)=0
1542 exch2_pij(4,2,19)=1
1543 exch2_oi(2,19)=0
1544 exch2_oj(2,19)=0
1545
1546 exch2_neighbourId(3,19)=20
1547 exch2_iLo(3,19)=9
1548 exch2_iHi(3,19)=9
1549 exch2_jLo(3,19)=0
1550 exch2_jHi(3,19)=5
1551 exch2_opposingSend(3,19)=4
1552 exch2_pij(1,3,19)=1
1553 exch2_pij(2,3,19)=0
1554 exch2_pij(3,3,19)=0
1555 exch2_pij(4,3,19)=1
1556 exch2_oi(3,19)=0
1557 exch2_oj(3,19)=0
1558
1559 exch2_neighbourId(4,19)=18
1560 exch2_iLo(4,19)=0
1561 exch2_iHi(4,19)=0
1562 exch2_jLo(4,19)=0
1563 exch2_jHi(4,19)=5
1564 exch2_opposingSend(4,19)=3
1565 exch2_pij(1,4,19)=1
1566 exch2_pij(2,4,19)=0
1567 exch2_pij(3,4,19)=0
1568 exch2_pij(4,4,19)=1
1569 exch2_oi(4,19)=0
1570 exch2_oj(4,19)=0
1571 RETURN
1572 END
1573
1574 SUBROUTINE W2_E2SETUP_20
1575 C Topology for tile 20
1576 #include "W2_EXCH2_TOPOLOGY.h"
1577 exch2_tNx(20)=8
1578 exch2_tNy(20)=4
1579 exch2_tBasex(20)=24
1580 exch2_tBasey(20)=16
1581 exch2_txGlobalo(20)=25
1582 exch2_tyGlobalo(20)=17
1583 exch2_isWedge(20)=0
1584 exch2_isNedge(20)=0
1585 exch2_isEedge(20)=1
1586 exch2_isSedge(20)=0
1587 exch2_myFace(20)=1
1588 exch2_mydNx(20)=32
1589 exch2_mydNy(20)=32
1590 exch2_nNeighbours(20)=4
1591
1592 exch2_neighbourId(1,20)=24
1593 exch2_iLo(1,20)=0
1594 exch2_iHi(1,20)=9
1595 exch2_jLo(1,20)=5
1596 exch2_jHi(1,20)=5
1597 exch2_opposingSend(1,20)=2
1598 exch2_pij(1,1,20)=1
1599 exch2_pij(2,1,20)=0
1600 exch2_pij(3,1,20)=0
1601 exch2_pij(4,1,20)=1
1602 exch2_oi(1,20)=0
1603 exch2_oj(1,20)=0
1604
1605 exch2_neighbourId(2,20)=16
1606 exch2_iLo(2,20)=0
1607 exch2_iHi(2,20)=9
1608 exch2_jLo(2,20)=0
1609 exch2_jHi(2,20)=0
1610 exch2_opposingSend(2,20)=1
1611 exch2_pij(1,2,20)=1
1612 exch2_pij(2,2,20)=0
1613 exch2_pij(3,2,20)=0
1614 exch2_pij(4,2,20)=1
1615 exch2_oi(2,20)=0
1616 exch2_oj(2,20)=0
1617
1618 exch2_neighbourId(3,20)=49
1619 exch2_iLo(3,20)=9
1620 exch2_iHi(3,20)=9
1621 exch2_jLo(3,20)=0
1622 exch2_jHi(3,20)=5
1623 exch2_opposingSend(3,20)=4
1624 exch2_pij(1,3,20)=1
1625 exch2_pij(2,3,20)=0
1626 exch2_pij(3,3,20)=0
1627 exch2_pij(4,3,20)=1
1628 exch2_oi(3,20)=32
1629 exch2_oj(3,20)=0
1630
1631 exch2_neighbourId(4,20)=19
1632 exch2_iLo(4,20)=0
1633 exch2_iHi(4,20)=0
1634 exch2_jLo(4,20)=0
1635 exch2_jHi(4,20)=5
1636 exch2_opposingSend(4,20)=3
1637 exch2_pij(1,4,20)=1
1638 exch2_pij(2,4,20)=0
1639 exch2_pij(3,4,20)=0
1640 exch2_pij(4,4,20)=1
1641 exch2_oi(4,20)=0
1642 exch2_oj(4,20)=0
1643 RETURN
1644 END
1645
1646 SUBROUTINE W2_E2SETUP_21
1647 C Topology for tile 21
1648 #include "W2_EXCH2_TOPOLOGY.h"
1649 exch2_tNx(21)=8
1650 exch2_tNy(21)=4
1651 exch2_tBasex(21)=0
1652 exch2_tBasey(21)=20
1653 exch2_txGlobalo(21)=1
1654 exch2_tyGlobalo(21)=21
1655 exch2_isWedge(21)=1
1656 exch2_isNedge(21)=0
1657 exch2_isEedge(21)=0
1658 exch2_isSedge(21)=0
1659 exch2_myFace(21)=1
1660 exch2_mydNx(21)=32
1661 exch2_mydNy(21)=32
1662 exch2_nNeighbours(21)=4
1663
1664 exch2_neighbourId(1,21)=25
1665 exch2_iLo(1,21)=0
1666 exch2_iHi(1,21)=9
1667 exch2_jLo(1,21)=5
1668 exch2_jHi(1,21)=5
1669 exch2_opposingSend(1,21)=2
1670 exch2_pij(1,1,21)=1
1671 exch2_pij(2,1,21)=0
1672 exch2_pij(3,1,21)=0
1673 exch2_pij(4,1,21)=1
1674 exch2_oi(1,21)=0
1675 exch2_oj(1,21)=0
1676
1677 exch2_neighbourId(2,21)=17
1678 exch2_iLo(2,21)=0
1679 exch2_iHi(2,21)=9
1680 exch2_jLo(2,21)=0
1681 exch2_jHi(2,21)=0
1682 exch2_opposingSend(2,21)=1
1683 exch2_pij(1,2,21)=1
1684 exch2_pij(2,2,21)=0
1685 exch2_pij(3,2,21)=0
1686 exch2_pij(4,2,21)=1
1687 exch2_oi(2,21)=0
1688 exch2_oj(2,21)=0
1689
1690 exch2_neighbourId(3,21)=22
1691 exch2_iLo(3,21)=9
1692 exch2_iHi(3,21)=9
1693 exch2_jLo(3,21)=0
1694 exch2_jHi(3,21)=5
1695 exch2_opposingSend(3,21)=4
1696 exch2_pij(1,3,21)=1
1697 exch2_pij(2,3,21)=0
1698 exch2_pij(3,3,21)=0
1699 exch2_pij(4,3,21)=1
1700 exch2_oi(3,21)=0
1701 exch2_oj(3,21)=0
1702
1703 exch2_neighbourId(4,21)=158
1704 exch2_iLo(4,21)=0
1705 exch2_iHi(4,21)=0
1706 exch2_jLo(4,21)=0
1707 exch2_jHi(4,21)=5
1708 exch2_opposingSend(4,21)=2
1709 exch2_pij(1,4,21)=0
1710 exch2_pij(2,4,21)=1
1711 exch2_pij(3,4,21)=-1
1712 exch2_pij(4,4,21)=0
1713 exch2_oi(4,21)=-32
1714 exch2_oj(4,21)=33
1715 RETURN
1716 END
1717
1718 SUBROUTINE W2_E2SETUP_22
1719 C Topology for tile 22
1720 #include "W2_EXCH2_TOPOLOGY.h"
1721 exch2_tNx(22)=8
1722 exch2_tNy(22)=4
1723 exch2_tBasex(22)=8
1724 exch2_tBasey(22)=20
1725 exch2_txGlobalo(22)=9
1726 exch2_tyGlobalo(22)=21
1727 exch2_isWedge(22)=0
1728 exch2_isNedge(22)=0
1729 exch2_isEedge(22)=0
1730 exch2_isSedge(22)=0
1731 exch2_myFace(22)=1
1732 exch2_mydNx(22)=32
1733 exch2_mydNy(22)=32
1734 exch2_nNeighbours(22)=4
1735
1736 exch2_neighbourId(1,22)=26
1737 exch2_iLo(1,22)=0
1738 exch2_iHi(1,22)=9
1739 exch2_jLo(1,22)=5
1740 exch2_jHi(1,22)=5
1741 exch2_opposingSend(1,22)=2
1742 exch2_pij(1,1,22)=1
1743 exch2_pij(2,1,22)=0
1744 exch2_pij(3,1,22)=0
1745 exch2_pij(4,1,22)=1
1746 exch2_oi(1,22)=0
1747 exch2_oj(1,22)=0
1748
1749 exch2_neighbourId(2,22)=18
1750 exch2_iLo(2,22)=0
1751 exch2_iHi(2,22)=9
1752 exch2_jLo(2,22)=0
1753 exch2_jHi(2,22)=0
1754 exch2_opposingSend(2,22)=1
1755 exch2_pij(1,2,22)=1
1756 exch2_pij(2,2,22)=0
1757 exch2_pij(3,2,22)=0
1758 exch2_pij(4,2,22)=1
1759 exch2_oi(2,22)=0
1760 exch2_oj(2,22)=0
1761
1762 exch2_neighbourId(3,22)=23
1763 exch2_iLo(3,22)=9
1764 exch2_iHi(3,22)=9
1765 exch2_jLo(3,22)=0
1766 exch2_jHi(3,22)=5
1767 exch2_opposingSend(3,22)=4
1768 exch2_pij(1,3,22)=1
1769 exch2_pij(2,3,22)=0
1770 exch2_pij(3,3,22)=0
1771 exch2_pij(4,3,22)=1
1772 exch2_oi(3,22)=0
1773 exch2_oj(3,22)=0
1774
1775 exch2_neighbourId(4,22)=21
1776 exch2_iLo(4,22)=0
1777 exch2_iHi(4,22)=0
1778 exch2_jLo(4,22)=0
1779 exch2_jHi(4,22)=5
1780 exch2_opposingSend(4,22)=3
1781 exch2_pij(1,4,22)=1
1782 exch2_pij(2,4,22)=0
1783 exch2_pij(3,4,22)=0
1784 exch2_pij(4,4,22)=1
1785 exch2_oi(4,22)=0
1786 exch2_oj(4,22)=0
1787 RETURN
1788 END
1789
1790 SUBROUTINE W2_E2SETUP_23
1791 C Topology for tile 23
1792 #include "W2_EXCH2_TOPOLOGY.h"
1793 exch2_tNx(23)=8
1794 exch2_tNy(23)=4
1795 exch2_tBasex(23)=16
1796 exch2_tBasey(23)=20
1797 exch2_txGlobalo(23)=17
1798 exch2_tyGlobalo(23)=21
1799 exch2_isWedge(23)=0
1800 exch2_isNedge(23)=0
1801 exch2_isEedge(23)=0
1802 exch2_isSedge(23)=0
1803 exch2_myFace(23)=1
1804 exch2_mydNx(23)=32
1805 exch2_mydNy(23)=32
1806 exch2_nNeighbours(23)=4
1807
1808 exch2_neighbourId(1,23)=27
1809 exch2_iLo(1,23)=0
1810 exch2_iHi(1,23)=9
1811 exch2_jLo(1,23)=5
1812 exch2_jHi(1,23)=5
1813 exch2_opposingSend(1,23)=2
1814 exch2_pij(1,1,23)=1
1815 exch2_pij(2,1,23)=0
1816 exch2_pij(3,1,23)=0
1817 exch2_pij(4,1,23)=1
1818 exch2_oi(1,23)=0
1819 exch2_oj(1,23)=0
1820
1821 exch2_neighbourId(2,23)=19
1822 exch2_iLo(2,23)=0
1823 exch2_iHi(2,23)=9
1824 exch2_jLo(2,23)=0
1825 exch2_jHi(2,23)=0
1826 exch2_opposingSend(2,23)=1
1827 exch2_pij(1,2,23)=1
1828 exch2_pij(2,2,23)=0
1829 exch2_pij(3,2,23)=0
1830 exch2_pij(4,2,23)=1
1831 exch2_oi(2,23)=0
1832 exch2_oj(2,23)=0
1833
1834 exch2_neighbourId(3,23)=24
1835 exch2_iLo(3,23)=9
1836 exch2_iHi(3,23)=9
1837 exch2_jLo(3,23)=0
1838 exch2_jHi(3,23)=5
1839 exch2_opposingSend(3,23)=4
1840 exch2_pij(1,3,23)=1
1841 exch2_pij(2,3,23)=0
1842 exch2_pij(3,3,23)=0
1843 exch2_pij(4,3,23)=1
1844 exch2_oi(3,23)=0
1845 exch2_oj(3,23)=0
1846
1847 exch2_neighbourId(4,23)=22
1848 exch2_iLo(4,23)=0
1849 exch2_iHi(4,23)=0
1850 exch2_jLo(4,23)=0
1851 exch2_jHi(4,23)=5
1852 exch2_opposingSend(4,23)=3
1853 exch2_pij(1,4,23)=1
1854 exch2_pij(2,4,23)=0
1855 exch2_pij(3,4,23)=0
1856 exch2_pij(4,4,23)=1
1857 exch2_oi(4,23)=0
1858 exch2_oj(4,23)=0
1859 RETURN
1860 END
1861
1862 SUBROUTINE W2_E2SETUP_24
1863 C Topology for tile 24
1864 #include "W2_EXCH2_TOPOLOGY.h"
1865 exch2_tNx(24)=8
1866 exch2_tNy(24)=4
1867 exch2_tBasex(24)=24
1868 exch2_tBasey(24)=20
1869 exch2_txGlobalo(24)=25
1870 exch2_tyGlobalo(24)=21
1871 exch2_isWedge(24)=0
1872 exch2_isNedge(24)=0
1873 exch2_isEedge(24)=1
1874 exch2_isSedge(24)=0
1875 exch2_myFace(24)=1
1876 exch2_mydNx(24)=32
1877 exch2_mydNy(24)=32
1878 exch2_nNeighbours(24)=4
1879
1880 exch2_neighbourId(1,24)=28
1881 exch2_iLo(1,24)=0
1882 exch2_iHi(1,24)=9
1883 exch2_jLo(1,24)=5
1884 exch2_jHi(1,24)=5
1885 exch2_opposingSend(1,24)=2
1886 exch2_pij(1,1,24)=1
1887 exch2_pij(2,1,24)=0
1888 exch2_pij(3,1,24)=0
1889 exch2_pij(4,1,24)=1
1890 exch2_oi(1,24)=0
1891 exch2_oj(1,24)=0
1892
1893 exch2_neighbourId(2,24)=20
1894 exch2_iLo(2,24)=0
1895 exch2_iHi(2,24)=9
1896 exch2_jLo(2,24)=0
1897 exch2_jHi(2,24)=0
1898 exch2_opposingSend(2,24)=1
1899 exch2_pij(1,2,24)=1
1900 exch2_pij(2,2,24)=0
1901 exch2_pij(3,2,24)=0
1902 exch2_pij(4,2,24)=1
1903 exch2_oi(2,24)=0
1904 exch2_oj(2,24)=0
1905
1906 exch2_neighbourId(3,24)=53
1907 exch2_iLo(3,24)=9
1908 exch2_iHi(3,24)=9
1909 exch2_jLo(3,24)=0
1910 exch2_jHi(3,24)=5
1911 exch2_opposingSend(3,24)=4
1912 exch2_pij(1,3,24)=1
1913 exch2_pij(2,3,24)=0
1914 exch2_pij(3,3,24)=0
1915 exch2_pij(4,3,24)=1
1916 exch2_oi(3,24)=32
1917 exch2_oj(3,24)=0
1918
1919 exch2_neighbourId(4,24)=23
1920 exch2_iLo(4,24)=0
1921 exch2_iHi(4,24)=0
1922 exch2_jLo(4,24)=0
1923 exch2_jHi(4,24)=5
1924 exch2_opposingSend(4,24)=3
1925 exch2_pij(1,4,24)=1
1926 exch2_pij(2,4,24)=0
1927 exch2_pij(3,4,24)=0
1928 exch2_pij(4,4,24)=1
1929 exch2_oi(4,24)=0
1930 exch2_oj(4,24)=0
1931 RETURN
1932 END
1933
1934 SUBROUTINE W2_E2SETUP_25
1935 C Topology for tile 25
1936 #include "W2_EXCH2_TOPOLOGY.h"
1937 exch2_tNx(25)=8
1938 exch2_tNy(25)=4
1939 exch2_tBasex(25)=0
1940 exch2_tBasey(25)=24
1941 exch2_txGlobalo(25)=1
1942 exch2_tyGlobalo(25)=25
1943 exch2_isWedge(25)=1
1944 exch2_isNedge(25)=0
1945 exch2_isEedge(25)=0
1946 exch2_isSedge(25)=0
1947 exch2_myFace(25)=1
1948 exch2_mydNx(25)=32
1949 exch2_mydNy(25)=32
1950 exch2_nNeighbours(25)=4
1951
1952 exch2_neighbourId(1,25)=29
1953 exch2_iLo(1,25)=0
1954 exch2_iHi(1,25)=9
1955 exch2_jLo(1,25)=5
1956 exch2_jHi(1,25)=5
1957 exch2_opposingSend(1,25)=3
1958 exch2_pij(1,1,25)=1
1959 exch2_pij(2,1,25)=0
1960 exch2_pij(3,1,25)=0
1961 exch2_pij(4,1,25)=1
1962 exch2_oi(1,25)=0
1963 exch2_oj(1,25)=0
1964
1965 exch2_neighbourId(2,25)=21
1966 exch2_iLo(2,25)=0
1967 exch2_iHi(2,25)=9
1968 exch2_jLo(2,25)=0
1969 exch2_jHi(2,25)=0
1970 exch2_opposingSend(2,25)=1
1971 exch2_pij(1,2,25)=1
1972 exch2_pij(2,2,25)=0
1973 exch2_pij(3,2,25)=0
1974 exch2_pij(4,2,25)=1
1975 exch2_oi(2,25)=0
1976 exch2_oj(2,25)=0
1977
1978 exch2_neighbourId(3,25)=26
1979 exch2_iLo(3,25)=9
1980 exch2_iHi(3,25)=9
1981 exch2_jLo(3,25)=0
1982 exch2_jHi(3,25)=5
1983 exch2_opposingSend(3,25)=4
1984 exch2_pij(1,3,25)=1
1985 exch2_pij(2,3,25)=0
1986 exch2_pij(3,3,25)=0
1987 exch2_pij(4,3,25)=1
1988 exch2_oi(3,25)=0
1989 exch2_oj(3,25)=0
1990
1991 exch2_neighbourId(4,25)=157
1992 exch2_iLo(4,25)=0
1993 exch2_iHi(4,25)=0
1994 exch2_jLo(4,25)=0
1995 exch2_jHi(4,25)=5
1996 exch2_opposingSend(4,25)=1
1997 exch2_pij(1,4,25)=0
1998 exch2_pij(2,4,25)=1
1999 exch2_pij(3,4,25)=-1
2000 exch2_pij(4,4,25)=0
2001 exch2_oi(4,25)=-32
2002 exch2_oj(4,25)=33
2003 RETURN
2004 END
2005
2006 SUBROUTINE W2_E2SETUP_26
2007 C Topology for tile 26
2008 #include "W2_EXCH2_TOPOLOGY.h"
2009 exch2_tNx(26)=8
2010 exch2_tNy(26)=4
2011 exch2_tBasex(26)=8
2012 exch2_tBasey(26)=24
2013 exch2_txGlobalo(26)=9
2014 exch2_tyGlobalo(26)=25
2015 exch2_isWedge(26)=0
2016 exch2_isNedge(26)=0
2017 exch2_isEedge(26)=0
2018 exch2_isSedge(26)=0
2019 exch2_myFace(26)=1
2020 exch2_mydNx(26)=32
2021 exch2_mydNy(26)=32
2022 exch2_nNeighbours(26)=4
2023
2024 exch2_neighbourId(1,26)=30
2025 exch2_iLo(1,26)=0
2026 exch2_iHi(1,26)=9
2027 exch2_jLo(1,26)=5
2028 exch2_jHi(1,26)=5
2029 exch2_opposingSend(1,26)=3
2030 exch2_pij(1,1,26)=1
2031 exch2_pij(2,1,26)=0
2032 exch2_pij(3,1,26)=0
2033 exch2_pij(4,1,26)=1
2034 exch2_oi(1,26)=0
2035 exch2_oj(1,26)=0
2036
2037 exch2_neighbourId(2,26)=22
2038 exch2_iLo(2,26)=0
2039 exch2_iHi(2,26)=9
2040 exch2_jLo(2,26)=0
2041 exch2_jHi(2,26)=0
2042 exch2_opposingSend(2,26)=1
2043 exch2_pij(1,2,26)=1
2044 exch2_pij(2,2,26)=0
2045 exch2_pij(3,2,26)=0
2046 exch2_pij(4,2,26)=1
2047 exch2_oi(2,26)=0
2048 exch2_oj(2,26)=0
2049
2050 exch2_neighbourId(3,26)=27
2051 exch2_iLo(3,26)=9
2052 exch2_iHi(3,26)=9
2053 exch2_jLo(3,26)=0
2054 exch2_jHi(3,26)=5
2055 exch2_opposingSend(3,26)=4
2056 exch2_pij(1,3,26)=1
2057 exch2_pij(2,3,26)=0
2058 exch2_pij(3,3,26)=0
2059 exch2_pij(4,3,26)=1
2060 exch2_oi(3,26)=0
2061 exch2_oj(3,26)=0
2062
2063 exch2_neighbourId(4,26)=25
2064 exch2_iLo(4,26)=0
2065 exch2_iHi(4,26)=0
2066 exch2_jLo(4,26)=0
2067 exch2_jHi(4,26)=5
2068 exch2_opposingSend(4,26)=3
2069 exch2_pij(1,4,26)=1
2070 exch2_pij(2,4,26)=0
2071 exch2_pij(3,4,26)=0
2072 exch2_pij(4,4,26)=1
2073 exch2_oi(4,26)=0
2074 exch2_oj(4,26)=0
2075 RETURN
2076 END
2077
2078 SUBROUTINE W2_E2SETUP_27
2079 C Topology for tile 27
2080 #include "W2_EXCH2_TOPOLOGY.h"
2081 exch2_tNx(27)=8
2082 exch2_tNy(27)=4
2083 exch2_tBasex(27)=16
2084 exch2_tBasey(27)=24
2085 exch2_txGlobalo(27)=17
2086 exch2_tyGlobalo(27)=25
2087 exch2_isWedge(27)=0
2088 exch2_isNedge(27)=0
2089 exch2_isEedge(27)=0
2090 exch2_isSedge(27)=0
2091 exch2_myFace(27)=1
2092 exch2_mydNx(27)=32
2093 exch2_mydNy(27)=32
2094 exch2_nNeighbours(27)=4
2095
2096 exch2_neighbourId(1,27)=31
2097 exch2_iLo(1,27)=0
2098 exch2_iHi(1,27)=9
2099 exch2_jLo(1,27)=5
2100 exch2_jHi(1,27)=5
2101 exch2_opposingSend(1,27)=3
2102 exch2_pij(1,1,27)=1
2103 exch2_pij(2,1,27)=0
2104 exch2_pij(3,1,27)=0
2105 exch2_pij(4,1,27)=1
2106 exch2_oi(1,27)=0
2107 exch2_oj(1,27)=0
2108
2109 exch2_neighbourId(2,27)=23
2110 exch2_iLo(2,27)=0
2111 exch2_iHi(2,27)=9
2112 exch2_jLo(2,27)=0
2113 exch2_jHi(2,27)=0
2114 exch2_opposingSend(2,27)=1
2115 exch2_pij(1,2,27)=1
2116 exch2_pij(2,2,27)=0
2117 exch2_pij(3,2,27)=0
2118 exch2_pij(4,2,27)=1
2119 exch2_oi(2,27)=0
2120 exch2_oj(2,27)=0
2121
2122 exch2_neighbourId(3,27)=28
2123 exch2_iLo(3,27)=9
2124 exch2_iHi(3,27)=9
2125 exch2_jLo(3,27)=0
2126 exch2_jHi(3,27)=5
2127 exch2_opposingSend(3,27)=4
2128 exch2_pij(1,3,27)=1
2129 exch2_pij(2,3,27)=0
2130 exch2_pij(3,3,27)=0
2131 exch2_pij(4,3,27)=1
2132 exch2_oi(3,27)=0
2133 exch2_oj(3,27)=0
2134
2135 exch2_neighbourId(4,27)=26
2136 exch2_iLo(4,27)=0
2137 exch2_iHi(4,27)=0
2138 exch2_jLo(4,27)=0
2139 exch2_jHi(4,27)=5
2140 exch2_opposingSend(4,27)=3
2141 exch2_pij(1,4,27)=1
2142 exch2_pij(2,4,27)=0
2143 exch2_pij(3,4,27)=0
2144 exch2_pij(4,4,27)=1
2145 exch2_oi(4,27)=0
2146 exch2_oj(4,27)=0
2147 RETURN
2148 END
2149
2150 SUBROUTINE W2_E2SETUP_28
2151 C Topology for tile 28
2152 #include "W2_EXCH2_TOPOLOGY.h"
2153 exch2_tNx(28)=8
2154 exch2_tNy(28)=4
2155 exch2_tBasex(28)=24
2156 exch2_tBasey(28)=24
2157 exch2_txGlobalo(28)=25
2158 exch2_tyGlobalo(28)=25
2159 exch2_isWedge(28)=0
2160 exch2_isNedge(28)=0
2161 exch2_isEedge(28)=1
2162 exch2_isSedge(28)=0
2163 exch2_myFace(28)=1
2164 exch2_mydNx(28)=32
2165 exch2_mydNy(28)=32
2166 exch2_nNeighbours(28)=4
2167
2168 exch2_neighbourId(1,28)=32
2169 exch2_iLo(1,28)=0
2170 exch2_iHi(1,28)=9
2171 exch2_jLo(1,28)=5
2172 exch2_jHi(1,28)=5
2173 exch2_opposingSend(1,28)=3
2174 exch2_pij(1,1,28)=1
2175 exch2_pij(2,1,28)=0
2176 exch2_pij(3,1,28)=0
2177 exch2_pij(4,1,28)=1
2178 exch2_oi(1,28)=0
2179 exch2_oj(1,28)=0
2180
2181 exch2_neighbourId(2,28)=24
2182 exch2_iLo(2,28)=0
2183 exch2_iHi(2,28)=9
2184 exch2_jLo(2,28)=0
2185 exch2_jHi(2,28)=0
2186 exch2_opposingSend(2,28)=1
2187 exch2_pij(1,2,28)=1
2188 exch2_pij(2,2,28)=0
2189 exch2_pij(3,2,28)=0
2190 exch2_pij(4,2,28)=1
2191 exch2_oi(2,28)=0
2192 exch2_oj(2,28)=0
2193
2194 exch2_neighbourId(3,28)=57
2195 exch2_iLo(3,28)=9
2196 exch2_iHi(3,28)=9
2197 exch2_jLo(3,28)=0
2198 exch2_jHi(3,28)=5
2199 exch2_opposingSend(3,28)=4
2200 exch2_pij(1,3,28)=1
2201 exch2_pij(2,3,28)=0
2202 exch2_pij(3,3,28)=0
2203 exch2_pij(4,3,28)=1
2204 exch2_oi(3,28)=32
2205 exch2_oj(3,28)=0
2206
2207 exch2_neighbourId(4,28)=27
2208 exch2_iLo(4,28)=0
2209 exch2_iHi(4,28)=0
2210 exch2_jLo(4,28)=0
2211 exch2_jHi(4,28)=5
2212 exch2_opposingSend(4,28)=3
2213 exch2_pij(1,4,28)=1
2214 exch2_pij(2,4,28)=0
2215 exch2_pij(3,4,28)=0
2216 exch2_pij(4,4,28)=1
2217 exch2_oi(4,28)=0
2218 exch2_oj(4,28)=0
2219 RETURN
2220 END
2221
2222 SUBROUTINE W2_E2SETUP_29
2223 C Topology for tile 29
2224 #include "W2_EXCH2_TOPOLOGY.h"
2225 exch2_tNx(29)=8
2226 exch2_tNy(29)=4
2227 exch2_tBasex(29)=0
2228 exch2_tBasey(29)=28
2229 exch2_txGlobalo(29)=1
2230 exch2_tyGlobalo(29)=29
2231 exch2_isWedge(29)=1
2232 exch2_isNedge(29)=1
2233 exch2_isEedge(29)=0
2234 exch2_isSedge(29)=0
2235 exch2_myFace(29)=1
2236 exch2_mydNx(29)=32
2237 exch2_mydNy(29)=32
2238 exch2_nNeighbours(29)=5
2239
2240 exch2_neighbourId(1,29)=89
2241 exch2_iLo(1,29)=4
2242 exch2_iHi(1,29)=9
2243 exch2_jLo(1,29)=5
2244 exch2_jHi(1,29)=5
2245 exch2_opposingSend(1,29)=4
2246 exch2_pij(1,1,29)=0
2247 exch2_pij(2,1,29)=-1
2248 exch2_pij(3,1,29)=1
2249 exch2_pij(4,1,29)=0
2250 exch2_oi(1,29)=33
2251 exch2_oj(1,29)=32
2252
2253 exch2_neighbourId(2,29)=93
2254 exch2_iLo(2,29)=0
2255 exch2_iHi(2,29)=5
2256 exch2_jLo(2,29)=5
2257 exch2_jHi(2,29)=5
2258 exch2_opposingSend(2,29)=5
2259 exch2_pij(1,2,29)=0
2260 exch2_pij(2,2,29)=-1
2261 exch2_pij(3,2,29)=1
2262 exch2_pij(4,2,29)=0
2263 exch2_oi(2,29)=33
2264 exch2_oj(2,29)=32
2265
2266 exch2_neighbourId(3,29)=25
2267 exch2_iLo(3,29)=0
2268 exch2_iHi(3,29)=9
2269 exch2_jLo(3,29)=0
2270 exch2_jHi(3,29)=0
2271 exch2_opposingSend(3,29)=1
2272 exch2_pij(1,3,29)=1
2273 exch2_pij(2,3,29)=0
2274 exch2_pij(3,3,29)=0
2275 exch2_pij(4,3,29)=1
2276 exch2_oi(3,29)=0
2277 exch2_oj(3,29)=0
2278
2279 exch2_neighbourId(4,29)=30
2280 exch2_iLo(4,29)=9
2281 exch2_iHi(4,29)=9
2282 exch2_jLo(4,29)=0
2283 exch2_jHi(4,29)=5
2284 exch2_opposingSend(4,29)=5
2285 exch2_pij(1,4,29)=1
2286 exch2_pij(2,4,29)=0
2287 exch2_pij(3,4,29)=0
2288 exch2_pij(4,4,29)=1
2289 exch2_oi(4,29)=0
2290 exch2_oj(4,29)=0
2291
2292 exch2_neighbourId(5,29)=157
2293 exch2_iLo(5,29)=0
2294 exch2_iHi(5,29)=0
2295 exch2_jLo(5,29)=0
2296 exch2_jHi(5,29)=5
2297 exch2_opposingSend(5,29)=2
2298 exch2_pij(1,5,29)=0
2299 exch2_pij(2,5,29)=1
2300 exch2_pij(3,5,29)=-1
2301 exch2_pij(4,5,29)=0
2302 exch2_oi(5,29)=-32
2303 exch2_oj(5,29)=33
2304 RETURN
2305 END
2306
2307 SUBROUTINE W2_E2SETUP_30
2308 C Topology for tile 30
2309 #include "W2_EXCH2_TOPOLOGY.h"
2310 exch2_tNx(30)=8
2311 exch2_tNy(30)=4
2312 exch2_tBasex(30)=8
2313 exch2_tBasey(30)=28
2314 exch2_txGlobalo(30)=9
2315 exch2_tyGlobalo(30)=29
2316 exch2_isWedge(30)=0
2317 exch2_isNedge(30)=1
2318 exch2_isEedge(30)=0
2319 exch2_isSedge(30)=0
2320 exch2_myFace(30)=1
2321 exch2_mydNx(30)=32
2322 exch2_mydNy(30)=32
2323 exch2_nNeighbours(30)=5
2324
2325 exch2_neighbourId(1,30)=81
2326 exch2_iLo(1,30)=4
2327 exch2_iHi(1,30)=9
2328 exch2_jLo(1,30)=5
2329 exch2_jHi(1,30)=5
2330 exch2_opposingSend(1,30)=4
2331 exch2_pij(1,1,30)=0
2332 exch2_pij(2,1,30)=-1
2333 exch2_pij(3,1,30)=1
2334 exch2_pij(4,1,30)=0
2335 exch2_oi(1,30)=33
2336 exch2_oj(1,30)=32
2337
2338 exch2_neighbourId(2,30)=85
2339 exch2_iLo(2,30)=0
2340 exch2_iHi(2,30)=5
2341 exch2_jLo(2,30)=5
2342 exch2_jHi(2,30)=5
2343 exch2_opposingSend(2,30)=4
2344 exch2_pij(1,2,30)=0
2345 exch2_pij(2,2,30)=-1
2346 exch2_pij(3,2,30)=1
2347 exch2_pij(4,2,30)=0
2348 exch2_oi(2,30)=33
2349 exch2_oj(2,30)=32
2350
2351 exch2_neighbourId(3,30)=26
2352 exch2_iLo(3,30)=0
2353 exch2_iHi(3,30)=9
2354 exch2_jLo(3,30)=0
2355 exch2_jHi(3,30)=0
2356 exch2_opposingSend(3,30)=1
2357 exch2_pij(1,3,30)=1
2358 exch2_pij(2,3,30)=0
2359 exch2_pij(3,3,30)=0
2360 exch2_pij(4,3,30)=1
2361 exch2_oi(3,30)=0
2362 exch2_oj(3,30)=0
2363
2364 exch2_neighbourId(4,30)=31
2365 exch2_iLo(4,30)=9
2366 exch2_iHi(4,30)=9
2367 exch2_jLo(4,30)=0
2368 exch2_jHi(4,30)=5
2369 exch2_opposingSend(4,30)=5
2370 exch2_pij(1,4,30)=1
2371 exch2_pij(2,4,30)=0
2372 exch2_pij(3,4,30)=0
2373 exch2_pij(4,4,30)=1
2374 exch2_oi(4,30)=0
2375 exch2_oj(4,30)=0
2376
2377 exch2_neighbourId(5,30)=29
2378 exch2_iLo(5,30)=0
2379 exch2_iHi(5,30)=0
2380 exch2_jLo(5,30)=0
2381 exch2_jHi(5,30)=5
2382 exch2_opposingSend(5,30)=4
2383 exch2_pij(1,5,30)=1
2384 exch2_pij(2,5,30)=0
2385 exch2_pij(3,5,30)=0
2386 exch2_pij(4,5,30)=1
2387 exch2_oi(5,30)=0
2388 exch2_oj(5,30)=0
2389 RETURN
2390 END
2391
2392 SUBROUTINE W2_E2SETUP_31
2393 C Topology for tile 31
2394 #include "W2_EXCH2_TOPOLOGY.h"
2395 exch2_tNx(31)=8
2396 exch2_tNy(31)=4
2397 exch2_tBasex(31)=16
2398 exch2_tBasey(31)=28
2399 exch2_txGlobalo(31)=17
2400 exch2_tyGlobalo(31)=29
2401 exch2_isWedge(31)=0
2402 exch2_isNedge(31)=1
2403 exch2_isEedge(31)=0
2404 exch2_isSedge(31)=0
2405 exch2_myFace(31)=1
2406 exch2_mydNx(31)=32
2407 exch2_mydNy(31)=32
2408 exch2_nNeighbours(31)=5
2409
2410 exch2_neighbourId(1,31)=73
2411 exch2_iLo(1,31)=4
2412 exch2_iHi(1,31)=9
2413 exch2_jLo(1,31)=5
2414 exch2_jHi(1,31)=5
2415 exch2_opposingSend(1,31)=4
2416 exch2_pij(1,1,31)=0
2417 exch2_pij(2,1,31)=-1
2418 exch2_pij(3,1,31)=1
2419 exch2_pij(4,1,31)=0
2420 exch2_oi(1,31)=33
2421 exch2_oj(1,31)=32
2422
2423 exch2_neighbourId(2,31)=77
2424 exch2_iLo(2,31)=0
2425 exch2_iHi(2,31)=5
2426 exch2_jLo(2,31)=5
2427 exch2_jHi(2,31)=5
2428 exch2_opposingSend(2,31)=4
2429 exch2_pij(1,2,31)=0
2430 exch2_pij(2,2,31)=-1
2431 exch2_pij(3,2,31)=1
2432 exch2_pij(4,2,31)=0
2433 exch2_oi(2,31)=33
2434 exch2_oj(2,31)=32
2435
2436 exch2_neighbourId(3,31)=27
2437 exch2_iLo(3,31)=0
2438 exch2_iHi(3,31)=9
2439 exch2_jLo(3,31)=0
2440 exch2_jHi(3,31)=0
2441 exch2_opposingSend(3,31)=1
2442 exch2_pij(1,3,31)=1
2443 exch2_pij(2,3,31)=0
2444 exch2_pij(3,3,31)=0
2445 exch2_pij(4,3,31)=1
2446 exch2_oi(3,31)=0
2447 exch2_oj(3,31)=0
2448
2449 exch2_neighbourId(4,31)=32
2450 exch2_iLo(4,31)=9
2451 exch2_iHi(4,31)=9
2452 exch2_jLo(4,31)=0
2453 exch2_jHi(4,31)=5
2454 exch2_opposingSend(4,31)=5
2455 exch2_pij(1,4,31)=1
2456 exch2_pij(2,4,31)=0
2457 exch2_pij(3,4,31)=0
2458 exch2_pij(4,4,31)=1
2459 exch2_oi(4,31)=0
2460 exch2_oj(4,31)=0
2461
2462 exch2_neighbourId(5,31)=30
2463 exch2_iLo(5,31)=0
2464 exch2_iHi(5,31)=0
2465 exch2_jLo(5,31)=0
2466 exch2_jHi(5,31)=5
2467 exch2_opposingSend(5,31)=4
2468 exch2_pij(1,5,31)=1
2469 exch2_pij(2,5,31)=0
2470 exch2_pij(3,5,31)=0
2471 exch2_pij(4,5,31)=1
2472 exch2_oi(5,31)=0
2473 exch2_oj(5,31)=0
2474 RETURN
2475 END
2476
2477 SUBROUTINE W2_E2SETUP_32
2478 C Topology for tile 32
2479 #include "W2_EXCH2_TOPOLOGY.h"
2480 exch2_tNx(32)=8
2481 exch2_tNy(32)=4
2482 exch2_tBasex(32)=24
2483 exch2_tBasey(32)=28
2484 exch2_txGlobalo(32)=25
2485 exch2_tyGlobalo(32)=29
2486 exch2_isWedge(32)=0
2487 exch2_isNedge(32)=1
2488 exch2_isEedge(32)=1
2489 exch2_isSedge(32)=0
2490 exch2_myFace(32)=1
2491 exch2_mydNx(32)=32
2492 exch2_mydNy(32)=32
2493 exch2_nNeighbours(32)=5
2494
2495 exch2_neighbourId(1,32)=65
2496 exch2_iLo(1,32)=4
2497 exch2_iHi(1,32)=9
2498 exch2_jLo(1,32)=5
2499 exch2_jHi(1,32)=5
2500 exch2_opposingSend(1,32)=4
2501 exch2_pij(1,1,32)=0
2502 exch2_pij(2,1,32)=-1
2503 exch2_pij(3,1,32)=1
2504 exch2_pij(4,1,32)=0
2505 exch2_oi(1,32)=33
2506 exch2_oj(1,32)=32
2507
2508 exch2_neighbourId(2,32)=69
2509 exch2_iLo(2,32)=0
2510 exch2_iHi(2,32)=5
2511 exch2_jLo(2,32)=5
2512 exch2_jHi(2,32)=5
2513 exch2_opposingSend(2,32)=4
2514 exch2_pij(1,2,32)=0
2515 exch2_pij(2,2,32)=-1
2516 exch2_pij(3,2,32)=1
2517 exch2_pij(4,2,32)=0
2518 exch2_oi(2,32)=33
2519 exch2_oj(2,32)=32
2520
2521 exch2_neighbourId(3,32)=28
2522 exch2_iLo(3,32)=0
2523 exch2_iHi(3,32)=9
2524 exch2_jLo(3,32)=0
2525 exch2_jHi(3,32)=0
2526 exch2_opposingSend(3,32)=1
2527 exch2_pij(1,3,32)=1
2528 exch2_pij(2,3,32)=0
2529 exch2_pij(3,3,32)=0
2530 exch2_pij(4,3,32)=1
2531 exch2_oi(3,32)=0
2532 exch2_oj(3,32)=0
2533
2534 exch2_neighbourId(4,32)=61
2535 exch2_iLo(4,32)=9
2536 exch2_iHi(4,32<