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

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

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


Revision 1.3 - (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.2: +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/s24t_8x32/w2_e2setup.F,v 1.2 2008/07/29 19:37:49 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 RETURN
36 END
37
38 SUBROUTINE W2_E2SETUP_1
39 C Topology for tile 1
40 #include "W2_EXCH2_TOPOLOGY.h"
41 exch2_tNx(1)=8
42 exch2_tNy(1)=32
43 exch2_tBasex(1)=0
44 exch2_tBasey(1)=0
45 exch2_txGlobalo(1)=1
46 exch2_tyGlobalo(1)=1
47 exch2_isWedge(1)=1
48 exch2_isNedge(1)=1
49 exch2_isEedge(1)=0
50 exch2_isSedge(1)=1
51 exch2_myFace(1)=1
52 exch2_mydNx(1)=32
53 exch2_mydNy(1)=32
54 exch2_nNeighbours(1)=7
55
56 exch2_neighbourId(1,1)=9
57 exch2_iLo(1,1)=0
58 exch2_iHi(1,1)=9
59 exch2_jLo(1,1)=33
60 exch2_jHi(1,1)=33
61 exch2_opposingSend(1,1)=4
62 exch2_pij(1,1,1)=0
63 exch2_pij(2,1,1)=-1
64 exch2_pij(3,1,1)=1
65 exch2_pij(4,1,1)=0
66 exch2_oi(1,1)=33
67 exch2_oj(1,1)=32
68
69 exch2_neighbourId(2,1)=21
70 exch2_iLo(2,1)=0
71 exch2_iHi(2,1)=9
72 exch2_jLo(2,1)=0
73 exch2_jHi(2,1)=0
74 exch2_opposingSend(2,1)=1
75 exch2_pij(1,2,1)=1
76 exch2_pij(2,2,1)=0
77 exch2_pij(3,2,1)=0
78 exch2_pij(4,2,1)=1
79 exch2_oi(2,1)=0
80 exch2_oj(2,1)=-32
81
82 exch2_neighbourId(3,1)=2
83 exch2_iLo(3,1)=9
84 exch2_iHi(3,1)=9
85 exch2_jLo(3,1)=0
86 exch2_jHi(3,1)=33
87 exch2_opposingSend(3,1)=4
88 exch2_pij(1,3,1)=1
89 exch2_pij(2,3,1)=0
90 exch2_pij(3,3,1)=0
91 exch2_pij(4,3,1)=1
92 exch2_oi(3,1)=0
93 exch2_oj(3,1)=0
94
95 exch2_neighbourId(4,1)=17
96 exch2_iLo(4,1)=0
97 exch2_iHi(4,1)=0
98 exch2_jLo(4,1)=24
99 exch2_jHi(4,1)=33
100 exch2_opposingSend(4,1)=1
101 exch2_pij(1,4,1)=0
102 exch2_pij(2,4,1)=1
103 exch2_pij(3,4,1)=-1
104 exch2_pij(4,4,1)=0
105 exch2_oi(4,1)=-32
106 exch2_oj(4,1)=33
107
108 exch2_neighbourId(5,1)=18
109 exch2_iLo(5,1)=0
110 exch2_iHi(5,1)=0
111 exch2_jLo(5,1)=16
112 exch2_jHi(5,1)=25
113 exch2_opposingSend(5,1)=1
114 exch2_pij(1,5,1)=0
115 exch2_pij(2,5,1)=1
116 exch2_pij(3,5,1)=-1
117 exch2_pij(4,5,1)=0
118 exch2_oi(5,1)=-32
119 exch2_oj(5,1)=33
120
121 exch2_neighbourId(6,1)=19
122 exch2_iLo(6,1)=0
123 exch2_iHi(6,1)=0
124 exch2_jLo(6,1)=8
125 exch2_jHi(6,1)=17
126 exch2_opposingSend(6,1)=1
127 exch2_pij(1,6,1)=0
128 exch2_pij(2,6,1)=1
129 exch2_pij(3,6,1)=-1
130 exch2_pij(4,6,1)=0
131 exch2_oi(6,1)=-32
132 exch2_oj(6,1)=33
133
134 exch2_neighbourId(7,1)=20
135 exch2_iLo(7,1)=0
136 exch2_iHi(7,1)=0
137 exch2_jLo(7,1)=0
138 exch2_jHi(7,1)=9
139 exch2_opposingSend(7,1)=1
140 exch2_pij(1,7,1)=0
141 exch2_pij(2,7,1)=1
142 exch2_pij(3,7,1)=-1
143 exch2_pij(4,7,1)=0
144 exch2_oi(7,1)=-32
145 exch2_oj(7,1)=33
146 RETURN
147 END
148
149 SUBROUTINE W2_E2SETUP_2
150 C Topology for tile 2
151 #include "W2_EXCH2_TOPOLOGY.h"
152 exch2_tNx(2)=8
153 exch2_tNy(2)=32
154 exch2_tBasex(2)=8
155 exch2_tBasey(2)=0
156 exch2_txGlobalo(2)=9
157 exch2_tyGlobalo(2)=1
158 exch2_isWedge(2)=0
159 exch2_isNedge(2)=1
160 exch2_isEedge(2)=0
161 exch2_isSedge(2)=1
162 exch2_myFace(2)=1
163 exch2_mydNx(2)=32
164 exch2_mydNy(2)=32
165 exch2_nNeighbours(2)=4
166
167 exch2_neighbourId(1,2)=9
168 exch2_iLo(1,2)=0
169 exch2_iHi(1,2)=9
170 exch2_jLo(1,2)=33
171 exch2_jHi(1,2)=33
172 exch2_opposingSend(1,2)=5
173 exch2_pij(1,1,2)=0
174 exch2_pij(2,1,2)=-1
175 exch2_pij(3,1,2)=1
176 exch2_pij(4,1,2)=0
177 exch2_oi(1,2)=33
178 exch2_oj(1,2)=32
179
180 exch2_neighbourId(2,2)=22
181 exch2_iLo(2,2)=0
182 exch2_iHi(2,2)=9
183 exch2_jLo(2,2)=0
184 exch2_jHi(2,2)=0
185 exch2_opposingSend(2,2)=1
186 exch2_pij(1,2,2)=1
187 exch2_pij(2,2,2)=0
188 exch2_pij(3,2,2)=0
189 exch2_pij(4,2,2)=1
190 exch2_oi(2,2)=0
191 exch2_oj(2,2)=-32
192
193 exch2_neighbourId(3,2)=3
194 exch2_iLo(3,2)=9
195 exch2_iHi(3,2)=9
196 exch2_jLo(3,2)=0
197 exch2_jHi(3,2)=33
198 exch2_opposingSend(3,2)=4
199 exch2_pij(1,3,2)=1
200 exch2_pij(2,3,2)=0
201 exch2_pij(3,3,2)=0
202 exch2_pij(4,3,2)=1
203 exch2_oi(3,2)=0
204 exch2_oj(3,2)=0
205
206 exch2_neighbourId(4,2)=1
207 exch2_iLo(4,2)=0
208 exch2_iHi(4,2)=0
209 exch2_jLo(4,2)=0
210 exch2_jHi(4,2)=33
211 exch2_opposingSend(4,2)=3
212 exch2_pij(1,4,2)=1
213 exch2_pij(2,4,2)=0
214 exch2_pij(3,4,2)=0
215 exch2_pij(4,4,2)=1
216 exch2_oi(4,2)=0
217 exch2_oj(4,2)=0
218 RETURN
219 END
220
221 SUBROUTINE W2_E2SETUP_3
222 C Topology for tile 3
223 #include "W2_EXCH2_TOPOLOGY.h"
224 exch2_tNx(3)=8
225 exch2_tNy(3)=32
226 exch2_tBasex(3)=16
227 exch2_tBasey(3)=0
228 exch2_txGlobalo(3)=17
229 exch2_tyGlobalo(3)=1
230 exch2_isWedge(3)=0
231 exch2_isNedge(3)=1
232 exch2_isEedge(3)=0
233 exch2_isSedge(3)=1
234 exch2_myFace(3)=1
235 exch2_mydNx(3)=32
236 exch2_mydNy(3)=32
237 exch2_nNeighbours(3)=4
238
239 exch2_neighbourId(1,3)=9
240 exch2_iLo(1,3)=0
241 exch2_iHi(1,3)=9
242 exch2_jLo(1,3)=33
243 exch2_jHi(1,3)=33
244 exch2_opposingSend(1,3)=6
245 exch2_pij(1,1,3)=0
246 exch2_pij(2,1,3)=-1
247 exch2_pij(3,1,3)=1
248 exch2_pij(4,1,3)=0
249 exch2_oi(1,3)=33
250 exch2_oj(1,3)=32
251
252 exch2_neighbourId(2,3)=23
253 exch2_iLo(2,3)=0
254 exch2_iHi(2,3)=9
255 exch2_jLo(2,3)=0
256 exch2_jHi(2,3)=0
257 exch2_opposingSend(2,3)=1
258 exch2_pij(1,2,3)=1
259 exch2_pij(2,2,3)=0
260 exch2_pij(3,2,3)=0
261 exch2_pij(4,2,3)=1
262 exch2_oi(2,3)=0
263 exch2_oj(2,3)=-32
264
265 exch2_neighbourId(3,3)=4
266 exch2_iLo(3,3)=9
267 exch2_iHi(3,3)=9
268 exch2_jLo(3,3)=0
269 exch2_jHi(3,3)=33
270 exch2_opposingSend(3,3)=4
271 exch2_pij(1,3,3)=1
272 exch2_pij(2,3,3)=0
273 exch2_pij(3,3,3)=0
274 exch2_pij(4,3,3)=1
275 exch2_oi(3,3)=0
276 exch2_oj(3,3)=0
277
278 exch2_neighbourId(4,3)=2
279 exch2_iLo(4,3)=0
280 exch2_iHi(4,3)=0
281 exch2_jLo(4,3)=0
282 exch2_jHi(4,3)=33
283 exch2_opposingSend(4,3)=3
284 exch2_pij(1,4,3)=1
285 exch2_pij(2,4,3)=0
286 exch2_pij(3,4,3)=0
287 exch2_pij(4,4,3)=1
288 exch2_oi(4,3)=0
289 exch2_oj(4,3)=0
290 RETURN
291 END
292
293 SUBROUTINE W2_E2SETUP_4
294 C Topology for tile 4
295 #include "W2_EXCH2_TOPOLOGY.h"
296 exch2_tNx(4)=8
297 exch2_tNy(4)=32
298 exch2_tBasex(4)=24
299 exch2_tBasey(4)=0
300 exch2_txGlobalo(4)=25
301 exch2_tyGlobalo(4)=1
302 exch2_isWedge(4)=0
303 exch2_isNedge(4)=1
304 exch2_isEedge(4)=1
305 exch2_isSedge(4)=1
306 exch2_myFace(4)=1
307 exch2_mydNx(4)=32
308 exch2_mydNy(4)=32
309 exch2_nNeighbours(4)=4
310
311 exch2_neighbourId(1,4)=9
312 exch2_iLo(1,4)=0
313 exch2_iHi(1,4)=9
314 exch2_jLo(1,4)=33
315 exch2_jHi(1,4)=33
316 exch2_opposingSend(1,4)=7
317 exch2_pij(1,1,4)=0
318 exch2_pij(2,1,4)=-1
319 exch2_pij(3,1,4)=1
320 exch2_pij(4,1,4)=0
321 exch2_oi(1,4)=33
322 exch2_oj(1,4)=32
323
324 exch2_neighbourId(2,4)=24
325 exch2_iLo(2,4)=0
326 exch2_iHi(2,4)=9
327 exch2_jLo(2,4)=0
328 exch2_jHi(2,4)=0
329 exch2_opposingSend(2,4)=1
330 exch2_pij(1,2,4)=1
331 exch2_pij(2,2,4)=0
332 exch2_pij(3,2,4)=0
333 exch2_pij(4,2,4)=1
334 exch2_oi(2,4)=0
335 exch2_oj(2,4)=-32
336
337 exch2_neighbourId(3,4)=5
338 exch2_iLo(3,4)=9
339 exch2_iHi(3,4)=9
340 exch2_jLo(3,4)=0
341 exch2_jHi(3,4)=33
342 exch2_opposingSend(3,4)=4
343 exch2_pij(1,3,4)=1
344 exch2_pij(2,3,4)=0
345 exch2_pij(3,3,4)=0
346 exch2_pij(4,3,4)=1
347 exch2_oi(3,4)=32
348 exch2_oj(3,4)=0
349
350 exch2_neighbourId(4,4)=3
351 exch2_iLo(4,4)=0
352 exch2_iHi(4,4)=0
353 exch2_jLo(4,4)=0
354 exch2_jHi(4,4)=33
355 exch2_opposingSend(4,4)=3
356 exch2_pij(1,4,4)=1
357 exch2_pij(2,4,4)=0
358 exch2_pij(3,4,4)=0
359 exch2_pij(4,4,4)=1
360 exch2_oi(4,4)=0
361 exch2_oj(4,4)=0
362 RETURN
363 END
364
365 SUBROUTINE W2_E2SETUP_5
366 C Topology for tile 5
367 #include "W2_EXCH2_TOPOLOGY.h"
368 exch2_tNx(5)=8
369 exch2_tNy(5)=32
370 exch2_tBasex(5)=0
371 exch2_tBasey(5)=0
372 exch2_txGlobalo(5)=33
373 exch2_tyGlobalo(5)=1
374 exch2_isWedge(5)=1
375 exch2_isNedge(5)=1
376 exch2_isEedge(5)=0
377 exch2_isSedge(5)=1
378 exch2_myFace(5)=2
379 exch2_mydNx(5)=32
380 exch2_mydNy(5)=32
381 exch2_nNeighbours(5)=4
382
383 exch2_neighbourId(1,5)=9
384 exch2_iLo(1,5)=0
385 exch2_iHi(1,5)=9
386 exch2_jLo(1,5)=33
387 exch2_jHi(1,5)=33
388 exch2_opposingSend(1,5)=2
389 exch2_pij(1,1,5)=1
390 exch2_pij(2,1,5)=0
391 exch2_pij(3,1,5)=0
392 exch2_pij(4,1,5)=1
393 exch2_oi(1,5)=0
394 exch2_oj(1,5)=32
395
396 exch2_neighbourId(2,5)=24
397 exch2_iLo(2,5)=0
398 exch2_iHi(2,5)=9
399 exch2_jLo(2,5)=0
400 exch2_jHi(2,5)=0
401 exch2_opposingSend(2,5)=3
402 exch2_pij(1,2,5)=0
403 exch2_pij(2,2,5)=-1
404 exch2_pij(3,2,5)=1
405 exch2_pij(4,2,5)=0
406 exch2_oi(2,5)=33
407 exch2_oj(2,5)=-32
408
409 exch2_neighbourId(3,5)=6
410 exch2_iLo(3,5)=9
411 exch2_iHi(3,5)=9
412 exch2_jLo(3,5)=0
413 exch2_jHi(3,5)=33
414 exch2_opposingSend(3,5)=4
415 exch2_pij(1,3,5)=1
416 exch2_pij(2,3,5)=0
417 exch2_pij(3,3,5)=0
418 exch2_pij(4,3,5)=1
419 exch2_oi(3,5)=0
420 exch2_oj(3,5)=0
421
422 exch2_neighbourId(4,5)=4
423 exch2_iLo(4,5)=0
424 exch2_iHi(4,5)=0
425 exch2_jLo(4,5)=0
426 exch2_jHi(4,5)=33
427 exch2_opposingSend(4,5)=3
428 exch2_pij(1,4,5)=1
429 exch2_pij(2,4,5)=0
430 exch2_pij(3,4,5)=0
431 exch2_pij(4,4,5)=1
432 exch2_oi(4,5)=-32
433 exch2_oj(4,5)=0
434 RETURN
435 END
436
437 SUBROUTINE W2_E2SETUP_6
438 C Topology for tile 6
439 #include "W2_EXCH2_TOPOLOGY.h"
440 exch2_tNx(6)=8
441 exch2_tNy(6)=32
442 exch2_tBasex(6)=8
443 exch2_tBasey(6)=0
444 exch2_txGlobalo(6)=41
445 exch2_tyGlobalo(6)=1
446 exch2_isWedge(6)=0
447 exch2_isNedge(6)=1
448 exch2_isEedge(6)=0
449 exch2_isSedge(6)=1
450 exch2_myFace(6)=2
451 exch2_mydNx(6)=32
452 exch2_mydNy(6)=32
453 exch2_nNeighbours(6)=4
454
455 exch2_neighbourId(1,6)=10
456 exch2_iLo(1,6)=0
457 exch2_iHi(1,6)=9
458 exch2_jLo(1,6)=33
459 exch2_jHi(1,6)=33
460 exch2_opposingSend(1,6)=2
461 exch2_pij(1,1,6)=1
462 exch2_pij(2,1,6)=0
463 exch2_pij(3,1,6)=0
464 exch2_pij(4,1,6)=1
465 exch2_oi(1,6)=0
466 exch2_oj(1,6)=32
467
468 exch2_neighbourId(2,6)=24
469 exch2_iLo(2,6)=0
470 exch2_iHi(2,6)=9
471 exch2_jLo(2,6)=0
472 exch2_jHi(2,6)=0
473 exch2_opposingSend(2,6)=4
474 exch2_pij(1,2,6)=0
475 exch2_pij(2,2,6)=-1
476 exch2_pij(3,2,6)=1
477 exch2_pij(4,2,6)=0
478 exch2_oi(2,6)=33
479 exch2_oj(2,6)=-32
480
481 exch2_neighbourId(3,6)=7
482 exch2_iLo(3,6)=9
483 exch2_iHi(3,6)=9
484 exch2_jLo(3,6)=0
485 exch2_jHi(3,6)=33
486 exch2_opposingSend(3,6)=4
487 exch2_pij(1,3,6)=1
488 exch2_pij(2,3,6)=0
489 exch2_pij(3,3,6)=0
490 exch2_pij(4,3,6)=1
491 exch2_oi(3,6)=0
492 exch2_oj(3,6)=0
493
494 exch2_neighbourId(4,6)=5
495 exch2_iLo(4,6)=0
496 exch2_iHi(4,6)=0
497 exch2_jLo(4,6)=0
498 exch2_jHi(4,6)=33
499 exch2_opposingSend(4,6)=3
500 exch2_pij(1,4,6)=1
501 exch2_pij(2,4,6)=0
502 exch2_pij(3,4,6)=0
503 exch2_pij(4,4,6)=1
504 exch2_oi(4,6)=0
505 exch2_oj(4,6)=0
506 RETURN
507 END
508
509 SUBROUTINE W2_E2SETUP_7
510 C Topology for tile 7
511 #include "W2_EXCH2_TOPOLOGY.h"
512 exch2_tNx(7)=8
513 exch2_tNy(7)=32
514 exch2_tBasex(7)=16
515 exch2_tBasey(7)=0
516 exch2_txGlobalo(7)=49
517 exch2_tyGlobalo(7)=1
518 exch2_isWedge(7)=0
519 exch2_isNedge(7)=1
520 exch2_isEedge(7)=0
521 exch2_isSedge(7)=1
522 exch2_myFace(7)=2
523 exch2_mydNx(7)=32
524 exch2_mydNy(7)=32
525 exch2_nNeighbours(7)=4
526
527 exch2_neighbourId(1,7)=11
528 exch2_iLo(1,7)=0
529 exch2_iHi(1,7)=9
530 exch2_jLo(1,7)=33
531 exch2_jHi(1,7)=33
532 exch2_opposingSend(1,7)=2
533 exch2_pij(1,1,7)=1
534 exch2_pij(2,1,7)=0
535 exch2_pij(3,1,7)=0
536 exch2_pij(4,1,7)=1
537 exch2_oi(1,7)=0
538 exch2_oj(1,7)=32
539
540 exch2_neighbourId(2,7)=24
541 exch2_iLo(2,7)=0
542 exch2_iHi(2,7)=9
543 exch2_jLo(2,7)=0
544 exch2_jHi(2,7)=0
545 exch2_opposingSend(2,7)=5
546 exch2_pij(1,2,7)=0
547 exch2_pij(2,2,7)=-1
548 exch2_pij(3,2,7)=1
549 exch2_pij(4,2,7)=0
550 exch2_oi(2,7)=33
551 exch2_oj(2,7)=-32
552
553 exch2_neighbourId(3,7)=8
554 exch2_iLo(3,7)=9
555 exch2_iHi(3,7)=9
556 exch2_jLo(3,7)=0
557 exch2_jHi(3,7)=33
558 exch2_opposingSend(3,7)=7
559 exch2_pij(1,3,7)=1
560 exch2_pij(2,3,7)=0
561 exch2_pij(3,3,7)=0
562 exch2_pij(4,3,7)=1
563 exch2_oi(3,7)=0
564 exch2_oj(3,7)=0
565
566 exch2_neighbourId(4,7)=6
567 exch2_iLo(4,7)=0
568 exch2_iHi(4,7)=0
569 exch2_jLo(4,7)=0
570 exch2_jHi(4,7)=33
571 exch2_opposingSend(4,7)=3
572 exch2_pij(1,4,7)=1
573 exch2_pij(2,4,7)=0
574 exch2_pij(3,4,7)=0
575 exch2_pij(4,4,7)=1
576 exch2_oi(4,7)=0
577 exch2_oj(4,7)=0
578 RETURN
579 END
580
581 SUBROUTINE W2_E2SETUP_8
582 C Topology for tile 8
583 #include "W2_EXCH2_TOPOLOGY.h"
584 exch2_tNx(8)=8
585 exch2_tNy(8)=32
586 exch2_tBasex(8)=24
587 exch2_tBasey(8)=0
588 exch2_txGlobalo(8)=57
589 exch2_tyGlobalo(8)=1
590 exch2_isWedge(8)=0
591 exch2_isNedge(8)=1
592 exch2_isEedge(8)=1
593 exch2_isSedge(8)=1
594 exch2_myFace(8)=2
595 exch2_mydNx(8)=32
596 exch2_mydNy(8)=32
597 exch2_nNeighbours(8)=7
598
599 exch2_neighbourId(1,8)=12
600 exch2_iLo(1,8)=0
601 exch2_iHi(1,8)=9
602 exch2_jLo(1,8)=33
603 exch2_jHi(1,8)=33
604 exch2_opposingSend(1,8)=2
605 exch2_pij(1,1,8)=1
606 exch2_pij(2,1,8)=0
607 exch2_pij(3,1,8)=0
608 exch2_pij(4,1,8)=1
609 exch2_oi(1,8)=0
610 exch2_oj(1,8)=32
611
612 exch2_neighbourId(2,8)=24
613 exch2_iLo(2,8)=0
614 exch2_iHi(2,8)=9
615 exch2_jLo(2,8)=0
616 exch2_jHi(2,8)=0
617 exch2_opposingSend(2,8)=6
618 exch2_pij(1,2,8)=0
619 exch2_pij(2,2,8)=-1
620 exch2_pij(3,2,8)=1
621 exch2_pij(4,2,8)=0
622 exch2_oi(2,8)=33
623 exch2_oj(2,8)=-32
624
625 exch2_neighbourId(3,8)=13
626 exch2_iLo(3,8)=9
627 exch2_iHi(3,8)=9
628 exch2_jLo(3,8)=24
629 exch2_jHi(3,8)=33
630 exch2_opposingSend(3,8)=2
631 exch2_pij(1,3,8)=0
632 exch2_pij(2,3,8)=1
633 exch2_pij(3,3,8)=-1
634 exch2_pij(4,3,8)=0
635 exch2_oi(3,8)=32
636 exch2_oj(3,8)=33
637
638 exch2_neighbourId(4,8)=14
639 exch2_iLo(4,8)=9
640 exch2_iHi(4,8)=9
641 exch2_jLo(4,8)=16
642 exch2_jHi(4,8)=25
643 exch2_opposingSend(4,8)=2
644 exch2_pij(1,4,8)=0
645 exch2_pij(2,4,8)=1
646 exch2_pij(3,4,8)=-1
647 exch2_pij(4,4,8)=0
648 exch2_oi(4,8)=32
649 exch2_oj(4,8)=33
650
651 exch2_neighbourId(5,8)=15
652 exch2_iLo(5,8)=9
653 exch2_iHi(5,8)=9
654 exch2_jLo(5,8)=8
655 exch2_jHi(5,8)=17
656 exch2_opposingSend(5,8)=2
657 exch2_pij(1,5,8)=0
658 exch2_pij(2,5,8)=1
659 exch2_pij(3,5,8)=-1
660 exch2_pij(4,5,8)=0
661 exch2_oi(5,8)=32
662 exch2_oj(5,8)=33
663
664 exch2_neighbourId(6,8)=16
665 exch2_iLo(6,8)=9
666 exch2_iHi(6,8)=9
667 exch2_jLo(6,8)=0
668 exch2_jHi(6,8)=9
669 exch2_opposingSend(6,8)=2
670 exch2_pij(1,6,8)=0
671 exch2_pij(2,6,8)=1
672 exch2_pij(3,6,8)=-1
673 exch2_pij(4,6,8)=0
674 exch2_oi(6,8)=32
675 exch2_oj(6,8)=33
676
677 exch2_neighbourId(7,8)=7
678 exch2_iLo(7,8)=0
679 exch2_iHi(7,8)=0
680 exch2_jLo(7,8)=0
681 exch2_jHi(7,8)=33
682 exch2_opposingSend(7,8)=3
683 exch2_pij(1,7,8)=1
684 exch2_pij(2,7,8)=0
685 exch2_pij(3,7,8)=0
686 exch2_pij(4,7,8)=1
687 exch2_oi(7,8)=0
688 exch2_oj(7,8)=0
689 RETURN
690 END
691
692 SUBROUTINE W2_E2SETUP_9
693 C Topology for tile 9
694 #include "W2_EXCH2_TOPOLOGY.h"
695 exch2_tNx(9)=8
696 exch2_tNy(9)=32
697 exch2_tBasex(9)=0
698 exch2_tBasey(9)=0
699 exch2_txGlobalo(9)=65
700 exch2_tyGlobalo(9)=1
701 exch2_isWedge(9)=1
702 exch2_isNedge(9)=1
703 exch2_isEedge(9)=0
704 exch2_isSedge(9)=1
705 exch2_myFace(9)=3
706 exch2_mydNx(9)=32
707 exch2_mydNy(9)=32
708 exch2_nNeighbours(9)=7
709
710 exch2_neighbourId(1,9)=17
711 exch2_iLo(1,9)=0
712 exch2_iHi(1,9)=9
713 exch2_jLo(1,9)=33
714 exch2_jHi(1,9)=33
715 exch2_opposingSend(1,9)=4
716 exch2_pij(1,1,9)=0
717 exch2_pij(2,1,9)=-1
718 exch2_pij(3,1,9)=1
719 exch2_pij(4,1,9)=0
720 exch2_oi(1,9)=33
721 exch2_oj(1,9)=32
722
723 exch2_neighbourId(2,9)=5
724 exch2_iLo(2,9)=0
725 exch2_iHi(2,9)=9
726 exch2_jLo(2,9)=0
727 exch2_jHi(2,9)=0
728 exch2_opposingSend(2,9)=1
729 exch2_pij(1,2,9)=1
730 exch2_pij(2,2,9)=0
731 exch2_pij(3,2,9)=0
732 exch2_pij(4,2,9)=1
733 exch2_oi(2,9)=0
734 exch2_oj(2,9)=-32
735
736 exch2_neighbourId(3,9)=10
737 exch2_iLo(3,9)=9
738 exch2_iHi(3,9)=9
739 exch2_jLo(3,9)=0
740 exch2_jHi(3,9)=33
741 exch2_opposingSend(3,9)=4
742 exch2_pij(1,3,9)=1
743 exch2_pij(2,3,9)=0
744 exch2_pij(3,3,9)=0
745 exch2_pij(4,3,9)=1
746 exch2_oi(3,9)=0
747 exch2_oj(3,9)=0
748
749 exch2_neighbourId(4,9)=1
750 exch2_iLo(4,9)=0
751 exch2_iHi(4,9)=0
752 exch2_jLo(4,9)=24
753 exch2_jHi(4,9)=33
754 exch2_opposingSend(4,9)=1
755 exch2_pij(1,4,9)=0
756 exch2_pij(2,4,9)=1
757 exch2_pij(3,4,9)=-1
758 exch2_pij(4,4,9)=0
759 exch2_oi(4,9)=-32
760 exch2_oj(4,9)=33
761
762 exch2_neighbourId(5,9)=2
763 exch2_iLo(5,9)=0
764 exch2_iHi(5,9)=0
765 exch2_jLo(5,9)=16
766 exch2_jHi(5,9)=25
767 exch2_opposingSend(5,9)=1
768 exch2_pij(1,5,9)=0
769 exch2_pij(2,5,9)=1
770 exch2_pij(3,5,9)=-1
771 exch2_pij(4,5,9)=0
772 exch2_oi(5,9)=-32
773 exch2_oj(5,9)=33
774
775 exch2_neighbourId(6,9)=3
776 exch2_iLo(6,9)=0
777 exch2_iHi(6,9)=0
778 exch2_jLo(6,9)=8
779 exch2_jHi(6,9)=17
780 exch2_opposingSend(6,9)=1
781 exch2_pij(1,6,9)=0
782 exch2_pij(2,6,9)=1
783 exch2_pij(3,6,9)=-1
784 exch2_pij(4,6,9)=0
785 exch2_oi(6,9)=-32
786 exch2_oj(6,9)=33
787
788 exch2_neighbourId(7,9)=4
789 exch2_iLo(7,9)=0
790 exch2_iHi(7,9)=0
791 exch2_jLo(7,9)=0
792 exch2_jHi(7,9)=9
793 exch2_opposingSend(7,9)=1
794 exch2_pij(1,7,9)=0
795 exch2_pij(2,7,9)=1
796 exch2_pij(3,7,9)=-1
797 exch2_pij(4,7,9)=0
798 exch2_oi(7,9)=-32
799 exch2_oj(7,9)=33
800 RETURN
801 END
802
803 SUBROUTINE W2_E2SETUP_10
804 C Topology for tile 10
805 #include "W2_EXCH2_TOPOLOGY.h"
806 exch2_tNx(10)=8
807 exch2_tNy(10)=32
808 exch2_tBasex(10)=8
809 exch2_tBasey(10)=0
810 exch2_txGlobalo(10)=73
811 exch2_tyGlobalo(10)=1
812 exch2_isWedge(10)=0
813 exch2_isNedge(10)=1
814 exch2_isEedge(10)=0
815 exch2_isSedge(10)=1
816 exch2_myFace(10)=3
817 exch2_mydNx(10)=32
818 exch2_mydNy(10)=32
819 exch2_nNeighbours(10)=4
820
821 exch2_neighbourId(1,10)=17
822 exch2_iLo(1,10)=0
823 exch2_iHi(1,10)=9
824 exch2_jLo(1,10)=33
825 exch2_jHi(1,10)=33
826 exch2_opposingSend(1,10)=5
827 exch2_pij(1,1,10)=0
828 exch2_pij(2,1,10)=-1
829 exch2_pij(3,1,10)=1
830 exch2_pij(4,1,10)=0
831 exch2_oi(1,10)=33
832 exch2_oj(1,10)=32
833
834 exch2_neighbourId(2,10)=6
835 exch2_iLo(2,10)=0
836 exch2_iHi(2,10)=9
837 exch2_jLo(2,10)=0
838 exch2_jHi(2,10)=0
839 exch2_opposingSend(2,10)=1
840 exch2_pij(1,2,10)=1
841 exch2_pij(2,2,10)=0
842 exch2_pij(3,2,10)=0
843 exch2_pij(4,2,10)=1
844 exch2_oi(2,10)=0
845 exch2_oj(2,10)=-32
846
847 exch2_neighbourId(3,10)=11
848 exch2_iLo(3,10)=9
849 exch2_iHi(3,10)=9
850 exch2_jLo(3,10)=0
851 exch2_jHi(3,10)=33
852 exch2_opposingSend(3,10)=4
853 exch2_pij(1,3,10)=1
854 exch2_pij(2,3,10)=0
855 exch2_pij(3,3,10)=0
856 exch2_pij(4,3,10)=1
857 exch2_oi(3,10)=0
858 exch2_oj(3,10)=0
859
860 exch2_neighbourId(4,10)=9
861 exch2_iLo(4,10)=0
862 exch2_iHi(4,10)=0
863 exch2_jLo(4,10)=0
864 exch2_jHi(4,10)=33
865 exch2_opposingSend(4,10)=3
866 exch2_pij(1,4,10)=1
867 exch2_pij(2,4,10)=0
868 exch2_pij(3,4,10)=0
869 exch2_pij(4,4,10)=1
870 exch2_oi(4,10)=0
871 exch2_oj(4,10)=0
872 RETURN
873 END
874
875 SUBROUTINE W2_E2SETUP_11
876 C Topology for tile 11
877 #include "W2_EXCH2_TOPOLOGY.h"
878 exch2_tNx(11)=8
879 exch2_tNy(11)=32
880 exch2_tBasex(11)=16
881 exch2_tBasey(11)=0
882 exch2_txGlobalo(11)=81
883 exch2_tyGlobalo(11)=1
884 exch2_isWedge(11)=0
885 exch2_isNedge(11)=1
886 exch2_isEedge(11)=0
887 exch2_isSedge(11)=1
888 exch2_myFace(11)=3
889 exch2_mydNx(11)=32
890 exch2_mydNy(11)=32
891 exch2_nNeighbours(11)=4
892
893 exch2_neighbourId(1,11)=17
894 exch2_iLo(1,11)=0
895 exch2_iHi(1,11)=9
896 exch2_jLo(1,11)=33
897 exch2_jHi(1,11)=33
898 exch2_opposingSend(1,11)=6
899 exch2_pij(1,1,11)=0
900 exch2_pij(2,1,11)=-1
901 exch2_pij(3,1,11)=1
902 exch2_pij(4,1,11)=0
903 exch2_oi(1,11)=33
904 exch2_oj(1,11)=32
905
906 exch2_neighbourId(2,11)=7
907 exch2_iLo(2,11)=0
908 exch2_iHi(2,11)=9
909 exch2_jLo(2,11)=0
910 exch2_jHi(2,11)=0
911 exch2_opposingSend(2,11)=1
912 exch2_pij(1,2,11)=1
913 exch2_pij(2,2,11)=0
914 exch2_pij(3,2,11)=0
915 exch2_pij(4,2,11)=1
916 exch2_oi(2,11)=0
917 exch2_oj(2,11)=-32
918
919 exch2_neighbourId(3,11)=12
920 exch2_iLo(3,11)=9
921 exch2_iHi(3,11)=9
922 exch2_jLo(3,11)=0
923 exch2_jHi(3,11)=33
924 exch2_opposingSend(3,11)=4
925 exch2_pij(1,3,11)=1
926 exch2_pij(2,3,11)=0
927 exch2_pij(3,3,11)=0
928 exch2_pij(4,3,11)=1
929 exch2_oi(3,11)=0
930 exch2_oj(3,11)=0
931
932 exch2_neighbourId(4,11)=10
933 exch2_iLo(4,11)=0
934 exch2_iHi(4,11)=0
935 exch2_jLo(4,11)=0
936 exch2_jHi(4,11)=33
937 exch2_opposingSend(4,11)=3
938 exch2_pij(1,4,11)=1
939 exch2_pij(2,4,11)=0
940 exch2_pij(3,4,11)=0
941 exch2_pij(4,4,11)=1
942 exch2_oi(4,11)=0
943 exch2_oj(4,11)=0
944 RETURN
945 END
946
947 SUBROUTINE W2_E2SETUP_12
948 C Topology for tile 12
949 #include "W2_EXCH2_TOPOLOGY.h"
950 exch2_tNx(12)=8
951 exch2_tNy(12)=32
952 exch2_tBasex(12)=24
953 exch2_tBasey(12)=0
954 exch2_txGlobalo(12)=89
955 exch2_tyGlobalo(12)=1
956 exch2_isWedge(12)=0
957 exch2_isNedge(12)=1
958 exch2_isEedge(12)=1
959 exch2_isSedge(12)=1
960 exch2_myFace(12)=3
961 exch2_mydNx(12)=32
962 exch2_mydNy(12)=32
963 exch2_nNeighbours(12)=4
964
965 exch2_neighbourId(1,12)=17
966 exch2_iLo(1,12)=0
967 exch2_iHi(1,12)=9
968 exch2_jLo(1,12)=33
969 exch2_jHi(1,12)=33
970 exch2_opposingSend(1,12)=7
971 exch2_pij(1,1,12)=0
972 exch2_pij(2,1,12)=-1
973 exch2_pij(3,1,12)=1
974 exch2_pij(4,1,12)=0
975 exch2_oi(1,12)=33
976 exch2_oj(1,12)=32
977
978 exch2_neighbourId(2,12)=8
979 exch2_iLo(2,12)=0
980 exch2_iHi(2,12)=9
981 exch2_jLo(2,12)=0
982 exch2_jHi(2,12)=0
983 exch2_opposingSend(2,12)=1
984 exch2_pij(1,2,12)=1
985 exch2_pij(2,2,12)=0
986 exch2_pij(3,2,12)=0
987 exch2_pij(4,2,12)=1
988 exch2_oi(2,12)=0
989 exch2_oj(2,12)=-32
990
991 exch2_neighbourId(3,12)=13
992 exch2_iLo(3,12)=9
993 exch2_iHi(3,12)=9
994 exch2_jLo(3,12)=0
995 exch2_jHi(3,12)=33
996 exch2_opposingSend(3,12)=4
997 exch2_pij(1,3,12)=1
998 exch2_pij(2,3,12)=0
999 exch2_pij(3,3,12)=0
1000 exch2_pij(4,3,12)=1
1001 exch2_oi(3,12)=32
1002 exch2_oj(3,12)=0
1003
1004 exch2_neighbourId(4,12)=11
1005 exch2_iLo(4,12)=0
1006 exch2_iHi(4,12)=0
1007 exch2_jLo(4,12)=0
1008 exch2_jHi(4,12)=33
1009 exch2_opposingSend(4,12)=3
1010 exch2_pij(1,4,12)=1
1011 exch2_pij(2,4,12)=0
1012 exch2_pij(3,4,12)=0
1013 exch2_pij(4,4,12)=1
1014 exch2_oi(4,12)=0
1015 exch2_oj(4,12)=0
1016 RETURN
1017 END
1018
1019 SUBROUTINE W2_E2SETUP_13
1020 C Topology for tile 13
1021 #include "W2_EXCH2_TOPOLOGY.h"
1022 exch2_tNx(13)=8
1023 exch2_tNy(13)=32
1024 exch2_tBasex(13)=0
1025 exch2_tBasey(13)=0
1026 exch2_txGlobalo(13)=97
1027 exch2_tyGlobalo(13)=1
1028 exch2_isWedge(13)=1
1029 exch2_isNedge(13)=1
1030 exch2_isEedge(13)=0
1031 exch2_isSedge(13)=1
1032 exch2_myFace(13)=4
1033 exch2_mydNx(13)=32
1034 exch2_mydNy(13)=32
1035 exch2_nNeighbours(13)=4
1036
1037 exch2_neighbourId(1,13)=17
1038 exch2_iLo(1,13)=0
1039 exch2_iHi(1,13)=9
1040 exch2_jLo(1,13)=33
1041 exch2_jHi(1,13)=33
1042 exch2_opposingSend(1,13)=2
1043 exch2_pij(1,1,13)=1
1044 exch2_pij(2,1,13)=0
1045 exch2_pij(3,1,13)=0
1046 exch2_pij(4,1,13)=1
1047 exch2_oi(1,13)=0
1048 exch2_oj(1,13)=32
1049
1050 exch2_neighbourId(2,13)=8
1051 exch2_iLo(2,13)=0
1052 exch2_iHi(2,13)=9
1053 exch2_jLo(2,13)=0
1054 exch2_jHi(2,13)=0
1055 exch2_opposingSend(2,13)=3
1056 exch2_pij(1,2,13)=0
1057 exch2_pij(2,2,13)=-1
1058 exch2_pij(3,2,13)=1
1059 exch2_pij(4,2,13)=0
1060 exch2_oi(2,13)=33
1061 exch2_oj(2,13)=-32
1062
1063 exch2_neighbourId(3,13)=14
1064 exch2_iLo(3,13)=9
1065 exch2_iHi(3,13)=9
1066 exch2_jLo(3,13)=0
1067 exch2_jHi(3,13)=33
1068 exch2_opposingSend(3,13)=4
1069 exch2_pij(1,3,13)=1
1070 exch2_pij(2,3,13)=0
1071 exch2_pij(3,3,13)=0
1072 exch2_pij(4,3,13)=1
1073 exch2_oi(3,13)=0
1074 exch2_oj(3,13)=0
1075
1076 exch2_neighbourId(4,13)=12
1077 exch2_iLo(4,13)=0
1078 exch2_iHi(4,13)=0
1079 exch2_jLo(4,13)=0
1080 exch2_jHi(4,13)=33
1081 exch2_opposingSend(4,13)=3
1082 exch2_pij(1,4,13)=1
1083 exch2_pij(2,4,13)=0
1084 exch2_pij(3,4,13)=0
1085 exch2_pij(4,4,13)=1
1086 exch2_oi(4,13)=-32
1087 exch2_oj(4,13)=0
1088 RETURN
1089 END
1090
1091 SUBROUTINE W2_E2SETUP_14
1092 C Topology for tile 14
1093 #include "W2_EXCH2_TOPOLOGY.h"
1094 exch2_tNx(14)=8
1095 exch2_tNy(14)=32
1096 exch2_tBasex(14)=8
1097 exch2_tBasey(14)=0
1098 exch2_txGlobalo(14)=105
1099 exch2_tyGlobalo(14)=1
1100 exch2_isWedge(14)=0
1101 exch2_isNedge(14)=1
1102 exch2_isEedge(14)=0
1103 exch2_isSedge(14)=1
1104 exch2_myFace(14)=4
1105 exch2_mydNx(14)=32
1106 exch2_mydNy(14)=32
1107 exch2_nNeighbours(14)=4
1108
1109 exch2_neighbourId(1,14)=18
1110 exch2_iLo(1,14)=0
1111 exch2_iHi(1,14)=9
1112 exch2_jLo(1,14)=33
1113 exch2_jHi(1,14)=33
1114 exch2_opposingSend(1,14)=2
1115 exch2_pij(1,1,14)=1
1116 exch2_pij(2,1,14)=0
1117 exch2_pij(3,1,14)=0
1118 exch2_pij(4,1,14)=1
1119 exch2_oi(1,14)=0
1120 exch2_oj(1,14)=32
1121
1122 exch2_neighbourId(2,14)=8
1123 exch2_iLo(2,14)=0
1124 exch2_iHi(2,14)=9
1125 exch2_jLo(2,14)=0
1126 exch2_jHi(2,14)=0
1127 exch2_opposingSend(2,14)=4
1128 exch2_pij(1,2,14)=0
1129 exch2_pij(2,2,14)=-1
1130 exch2_pij(3,2,14)=1
1131 exch2_pij(4,2,14)=0
1132 exch2_oi(2,14)=33
1133 exch2_oj(2,14)=-32
1134
1135 exch2_neighbourId(3,14)=15
1136 exch2_iLo(3,14)=9
1137 exch2_iHi(3,14)=9
1138 exch2_jLo(3,14)=0
1139 exch2_jHi(3,14)=33
1140 exch2_opposingSend(3,14)=4
1141 exch2_pij(1,3,14)=1
1142 exch2_pij(2,3,14)=0
1143 exch2_pij(3,3,14)=0
1144 exch2_pij(4,3,14)=1
1145 exch2_oi(3,14)=0
1146 exch2_oj(3,14)=0
1147
1148 exch2_neighbourId(4,14)=13
1149 exch2_iLo(4,14)=0
1150 exch2_iHi(4,14)=0
1151 exch2_jLo(4,14)=0
1152 exch2_jHi(4,14)=33
1153 exch2_opposingSend(4,14)=3
1154 exch2_pij(1,4,14)=1
1155 exch2_pij(2,4,14)=0
1156 exch2_pij(3,4,14)=0
1157 exch2_pij(4,4,14)=1
1158 exch2_oi(4,14)=0
1159 exch2_oj(4,14)=0
1160 RETURN
1161 END
1162
1163 SUBROUTINE W2_E2SETUP_15
1164 C Topology for tile 15
1165 #include "W2_EXCH2_TOPOLOGY.h"
1166 exch2_tNx(15)=8
1167 exch2_tNy(15)=32
1168 exch2_tBasex(15)=16
1169 exch2_tBasey(15)=0
1170 exch2_txGlobalo(15)=113
1171 exch2_tyGlobalo(15)=1
1172 exch2_isWedge(15)=0
1173 exch2_isNedge(15)=1
1174 exch2_isEedge(15)=0
1175 exch2_isSedge(15)=1
1176 exch2_myFace(15)=4
1177 exch2_mydNx(15)=32
1178 exch2_mydNy(15)=32
1179 exch2_nNeighbours(15)=4
1180
1181 exch2_neighbourId(1,15)=19
1182 exch2_iLo(1,15)=0
1183 exch2_iHi(1,15)=9
1184 exch2_jLo(1,15)=33
1185 exch2_jHi(1,15)=33
1186 exch2_opposingSend(1,15)=2
1187 exch2_pij(1,1,15)=1
1188 exch2_pij(2,1,15)=0
1189 exch2_pij(3,1,15)=0
1190 exch2_pij(4,1,15)=1
1191 exch2_oi(1,15)=0
1192 exch2_oj(1,15)=32
1193
1194 exch2_neighbourId(2,15)=8
1195 exch2_iLo(2,15)=0
1196 exch2_iHi(2,15)=9
1197 exch2_jLo(2,15)=0
1198 exch2_jHi(2,15)=0
1199 exch2_opposingSend(2,15)=5
1200 exch2_pij(1,2,15)=0
1201 exch2_pij(2,2,15)=-1
1202 exch2_pij(3,2,15)=1
1203 exch2_pij(4,2,15)=0
1204 exch2_oi(2,15)=33
1205 exch2_oj(2,15)=-32
1206
1207 exch2_neighbourId(3,15)=16
1208 exch2_iLo(3,15)=9
1209 exch2_iHi(3,15)=9
1210 exch2_jLo(3,15)=0
1211 exch2_jHi(3,15)=33
1212 exch2_opposingSend(3,15)=7
1213 exch2_pij(1,3,15)=1
1214 exch2_pij(2,3,15)=0
1215 exch2_pij(3,3,15)=0
1216 exch2_pij(4,3,15)=1
1217 exch2_oi(3,15)=0
1218 exch2_oj(3,15)=0
1219
1220 exch2_neighbourId(4,15)=14
1221 exch2_iLo(4,15)=0
1222 exch2_iHi(4,15)=0
1223 exch2_jLo(4,15)=0
1224 exch2_jHi(4,15)=33
1225 exch2_opposingSend(4,15)=3
1226 exch2_pij(1,4,15)=1
1227 exch2_pij(2,4,15)=0
1228 exch2_pij(3,4,15)=0
1229 exch2_pij(4,4,15)=1
1230 exch2_oi(4,15)=0
1231 exch2_oj(4,15)=0
1232 RETURN
1233 END
1234
1235 SUBROUTINE W2_E2SETUP_16
1236 C Topology for tile 16
1237 #include "W2_EXCH2_TOPOLOGY.h"
1238 exch2_tNx(16)=8
1239 exch2_tNy(16)=32
1240 exch2_tBasex(16)=24
1241 exch2_tBasey(16)=0
1242 exch2_txGlobalo(16)=121
1243 exch2_tyGlobalo(16)=1
1244 exch2_isWedge(16)=0
1245 exch2_isNedge(16)=1
1246 exch2_isEedge(16)=1
1247 exch2_isSedge(16)=1
1248 exch2_myFace(16)=4
1249 exch2_mydNx(16)=32
1250 exch2_mydNy(16)=32
1251 exch2_nNeighbours(16)=7
1252
1253 exch2_neighbourId(1,16)=20
1254 exch2_iLo(1,16)=0
1255 exch2_iHi(1,16)=9
1256 exch2_jLo(1,16)=33
1257 exch2_jHi(1,16)=33
1258 exch2_opposingSend(1,16)=2
1259 exch2_pij(1,1,16)=1
1260 exch2_pij(2,1,16)=0
1261 exch2_pij(3,1,16)=0
1262 exch2_pij(4,1,16)=1
1263 exch2_oi(1,16)=0
1264 exch2_oj(1,16)=32
1265
1266 exch2_neighbourId(2,16)=8
1267 exch2_iLo(2,16)=0
1268 exch2_iHi(2,16)=9
1269 exch2_jLo(2,16)=0
1270 exch2_jHi(2,16)=0
1271 exch2_opposingSend(2,16)=6
1272 exch2_pij(1,2,16)=0
1273 exch2_pij(2,2,16)=-1
1274 exch2_pij(3,2,16)=1
1275 exch2_pij(4,2,16)=0
1276 exch2_oi(2,16)=33
1277 exch2_oj(2,16)=-32
1278
1279 exch2_neighbourId(3,16)=21
1280 exch2_iLo(3,16)=9
1281 exch2_iHi(3,16)=9
1282 exch2_jLo(3,16)=24
1283 exch2_jHi(3,16)=33
1284 exch2_opposingSend(3,16)=2
1285 exch2_pij(1,3,16)=0
1286 exch2_pij(2,3,16)=1
1287 exch2_pij(3,3,16)=-1
1288 exch2_pij(4,3,16)=0
1289 exch2_oi(3,16)=32
1290 exch2_oj(3,16)=33
1291
1292 exch2_neighbourId(4,16)=22
1293 exch2_iLo(4,16)=9
1294 exch2_iHi(4,16)=9
1295 exch2_jLo(4,16)=16
1296 exch2_jHi(4,16)=25
1297 exch2_opposingSend(4,16)=2
1298 exch2_pij(1,4,16)=0
1299 exch2_pij(2,4,16)=1
1300 exch2_pij(3,4,16)=-1
1301 exch2_pij(4,4,16)=0
1302 exch2_oi(4,16)=32
1303 exch2_oj(4,16)=33
1304
1305 exch2_neighbourId(5,16)=23
1306 exch2_iLo(5,16)=9
1307 exch2_iHi(5,16)=9
1308 exch2_jLo(5,16)=8
1309 exch2_jHi(5,16)=17
1310 exch2_opposingSend(5,16)=2
1311 exch2_pij(1,5,16)=0
1312 exch2_pij(2,5,16)=1
1313 exch2_pij(3,5,16)=-1
1314 exch2_pij(4,5,16)=0
1315 exch2_oi(5,16)=32
1316 exch2_oj(5,16)=33
1317
1318 exch2_neighbourId(6,16)=24
1319 exch2_iLo(6,16)=9
1320 exch2_iHi(6,16)=9
1321 exch2_jLo(6,16)=0
1322 exch2_jHi(6,16)=9
1323 exch2_opposingSend(6,16)=2
1324 exch2_pij(1,6,16)=0
1325 exch2_pij(2,6,16)=1
1326 exch2_pij(3,6,16)=-1
1327 exch2_pij(4,6,16)=0
1328 exch2_oi(6,16)=32
1329 exch2_oj(6,16)=33
1330
1331 exch2_neighbourId(7,16)=15
1332 exch2_iLo(7,16)=0
1333 exch2_iHi(7,16)=0
1334 exch2_jLo(7,16)=0
1335 exch2_jHi(7,16)=33
1336 exch2_opposingSend(7,16)=3
1337 exch2_pij(1,7,16)=1
1338 exch2_pij(2,7,16)=0
1339 exch2_pij(3,7,16)=0
1340 exch2_pij(4,7,16)=1
1341 exch2_oi(7,16)=0
1342 exch2_oj(7,16)=0
1343 RETURN
1344 END
1345
1346 SUBROUTINE W2_E2SETUP_17
1347 C Topology for tile 17
1348 #include "W2_EXCH2_TOPOLOGY.h"
1349 exch2_tNx(17)=8
1350 exch2_tNy(17)=32
1351 exch2_tBasex(17)=0
1352 exch2_tBasey(17)=0
1353 exch2_txGlobalo(17)=129
1354 exch2_tyGlobalo(17)=1
1355 exch2_isWedge(17)=1
1356 exch2_isNedge(17)=1
1357 exch2_isEedge(17)=0
1358 exch2_isSedge(17)=1
1359 exch2_myFace(17)=5
1360 exch2_mydNx(17)=32
1361 exch2_mydNy(17)=32
1362 exch2_nNeighbours(17)=7
1363
1364 exch2_neighbourId(1,17)=1
1365 exch2_iLo(1,17)=0
1366 exch2_iHi(1,17)=9
1367 exch2_jLo(1,17)=33
1368 exch2_jHi(1,17)=33
1369 exch2_opposingSend(1,17)=4
1370 exch2_pij(1,1,17)=0
1371 exch2_pij(2,1,17)=-1
1372 exch2_pij(3,1,17)=1
1373 exch2_pij(4,1,17)=0
1374 exch2_oi(1,17)=33
1375 exch2_oj(1,17)=32
1376
1377 exch2_neighbourId(2,17)=13
1378 exch2_iLo(2,17)=0
1379 exch2_iHi(2,17)=9
1380 exch2_jLo(2,17)=0
1381 exch2_jHi(2,17)=0
1382 exch2_opposingSend(2,17)=1
1383 exch2_pij(1,2,17)=1
1384 exch2_pij(2,2,17)=0
1385 exch2_pij(3,2,17)=0
1386 exch2_pij(4,2,17)=1
1387 exch2_oi(2,17)=0
1388 exch2_oj(2,17)=-32
1389
1390 exch2_neighbourId(3,17)=18
1391 exch2_iLo(3,17)=9
1392 exch2_iHi(3,17)=9
1393 exch2_jLo(3,17)=0
1394 exch2_jHi(3,17)=33
1395 exch2_opposingSend(3,17)=4
1396 exch2_pij(1,3,17)=1
1397 exch2_pij(2,3,17)=0
1398 exch2_pij(3,3,17)=0
1399 exch2_pij(4,3,17)=1
1400 exch2_oi(3,17)=0
1401 exch2_oj(3,17)=0
1402
1403 exch2_neighbourId(4,17)=9
1404 exch2_iLo(4,17)=0
1405 exch2_iHi(4,17)=0
1406 exch2_jLo(4,17)=24
1407 exch2_jHi(4,17)=33
1408 exch2_opposingSend(4,17)=1
1409 exch2_pij(1,4,17)=0
1410 exch2_pij(2,4,17)=1
1411 exch2_pij(3,4,17)=-1
1412 exch2_pij(4,4,17)=0
1413 exch2_oi(4,17)=-32
1414 exch2_oj(4,17)=33
1415
1416 exch2_neighbourId(5,17)=10
1417 exch2_iLo(5,17)=0
1418 exch2_iHi(5,17)=0
1419 exch2_jLo(5,17)=16
1420 exch2_jHi(5,17)=25
1421 exch2_opposingSend(5,17)=1
1422 exch2_pij(1,5,17)=0
1423 exch2_pij(2,5,17)=1
1424 exch2_pij(3,5,17)=-1
1425 exch2_pij(4,5,17)=0
1426 exch2_oi(5,17)=-32
1427 exch2_oj(5,17)=33
1428
1429 exch2_neighbourId(6,17)=11
1430 exch2_iLo(6,17)=0
1431 exch2_iHi(6,17)=0
1432 exch2_jLo(6,17)=8
1433 exch2_jHi(6,17)=17
1434 exch2_opposingSend(6,17)=1
1435 exch2_pij(1,6,17)=0
1436 exch2_pij(2,6,17)=1
1437 exch2_pij(3,6,17)=-1
1438 exch2_pij(4,6,17)=0
1439 exch2_oi(6,17)=-32
1440 exch2_oj(6,17)=33
1441
1442 exch2_neighbourId(7,17)=12
1443 exch2_iLo(7,17)=0
1444 exch2_iHi(7,17)=0
1445 exch2_jLo(7,17)=0
1446 exch2_jHi(7,17)=9
1447 exch2_opposingSend(7,17)=1
1448 exch2_pij(1,7,17)=0
1449 exch2_pij(2,7,17)=1
1450 exch2_pij(3,7,17)=-1
1451 exch2_pij(4,7,17)=0
1452 exch2_oi(7,17)=-32
1453 exch2_oj(7,17)=33
1454 RETURN
1455 END
1456
1457 SUBROUTINE W2_E2SETUP_18
1458 C Topology for tile 18
1459 #include "W2_EXCH2_TOPOLOGY.h"
1460 exch2_tNx(18)=8
1461 exch2_tNy(18)=32
1462 exch2_tBasex(18)=8
1463 exch2_tBasey(18)=0
1464 exch2_txGlobalo(18)=137
1465 exch2_tyGlobalo(18)=1
1466 exch2_isWedge(18)=0
1467 exch2_isNedge(18)=1
1468 exch2_isEedge(18)=0
1469 exch2_isSedge(18)=1
1470 exch2_myFace(18)=5
1471 exch2_mydNx(18)=32
1472 exch2_mydNy(18)=32
1473 exch2_nNeighbours(18)=4
1474
1475 exch2_neighbourId(1,18)=1
1476 exch2_iLo(1,18)=0
1477 exch2_iHi(1,18)=9
1478 exch2_jLo(1,18)=33
1479 exch2_jHi(1,18)=33
1480 exch2_opposingSend(1,18)=5
1481 exch2_pij(1,1,18)=0
1482 exch2_pij(2,1,18)=-1
1483 exch2_pij(3,1,18)=1
1484 exch2_pij(4,1,18)=0
1485 exch2_oi(1,18)=33
1486 exch2_oj(1,18)=32
1487
1488 exch2_neighbourId(2,18)=14
1489 exch2_iLo(2,18)=0
1490 exch2_iHi(2,18)=9
1491 exch2_jLo(2,18)=0
1492 exch2_jHi(2,18)=0
1493 exch2_opposingSend(2,18)=1
1494 exch2_pij(1,2,18)=1
1495 exch2_pij(2,2,18)=0
1496 exch2_pij(3,2,18)=0
1497 exch2_pij(4,2,18)=1
1498 exch2_oi(2,18)=0
1499 exch2_oj(2,18)=-32
1500
1501 exch2_neighbourId(3,18)=19
1502 exch2_iLo(3,18)=9
1503 exch2_iHi(3,18)=9
1504 exch2_jLo(3,18)=0
1505 exch2_jHi(3,18)=33
1506 exch2_opposingSend(3,18)=4
1507 exch2_pij(1,3,18)=1
1508 exch2_pij(2,3,18)=0
1509 exch2_pij(3,3,18)=0
1510 exch2_pij(4,3,18)=1
1511 exch2_oi(3,18)=0
1512 exch2_oj(3,18)=0
1513
1514 exch2_neighbourId(4,18)=17
1515 exch2_iLo(4,18)=0
1516 exch2_iHi(4,18)=0
1517 exch2_jLo(4,18)=0
1518 exch2_jHi(4,18)=33
1519 exch2_opposingSend(4,18)=3
1520 exch2_pij(1,4,18)=1
1521 exch2_pij(2,4,18)=0
1522 exch2_pij(3,4,18)=0
1523 exch2_pij(4,4,18)=1
1524 exch2_oi(4,18)=0
1525 exch2_oj(4,18)=0
1526 RETURN
1527 END
1528
1529 SUBROUTINE W2_E2SETUP_19
1530 C Topology for tile 19
1531 #include "W2_EXCH2_TOPOLOGY.h"
1532 exch2_tNx(19)=8
1533 exch2_tNy(19)=32
1534 exch2_tBasex(19)=16
1535 exch2_tBasey(19)=0
1536 exch2_txGlobalo(19)=145
1537 exch2_tyGlobalo(19)=1
1538 exch2_isWedge(19)=0
1539 exch2_isNedge(19)=1
1540 exch2_isEedge(19)=0
1541 exch2_isSedge(19)=1
1542 exch2_myFace(19)=5
1543 exch2_mydNx(19)=32
1544 exch2_mydNy(19)=32
1545 exch2_nNeighbours(19)=4
1546
1547 exch2_neighbourId(1,19)=1
1548 exch2_iLo(1,19)=0
1549 exch2_iHi(1,19)=9
1550 exch2_jLo(1,19)=33
1551 exch2_jHi(1,19)=33
1552 exch2_opposingSend(1,19)=6
1553 exch2_pij(1,1,19)=0
1554 exch2_pij(2,1,19)=-1
1555 exch2_pij(3,1,19)=1
1556 exch2_pij(4,1,19)=0
1557 exch2_oi(1,19)=33
1558 exch2_oj(1,19)=32
1559
1560 exch2_neighbourId(2,19)=15
1561 exch2_iLo(2,19)=0
1562 exch2_iHi(2,19)=9
1563 exch2_jLo(2,19)=0
1564 exch2_jHi(2,19)=0
1565 exch2_opposingSend(2,19)=1
1566 exch2_pij(1,2,19)=1
1567 exch2_pij(2,2,19)=0
1568 exch2_pij(3,2,19)=0
1569 exch2_pij(4,2,19)=1
1570 exch2_oi(2,19)=0
1571 exch2_oj(2,19)=-32
1572
1573 exch2_neighbourId(3,19)=20
1574 exch2_iLo(3,19)=9
1575 exch2_iHi(3,19)=9
1576 exch2_jLo(3,19)=0
1577 exch2_jHi(3,19)=33
1578 exch2_opposingSend(3,19)=4
1579 exch2_pij(1,3,19)=1
1580 exch2_pij(2,3,19)=0
1581 exch2_pij(3,3,19)=0
1582 exch2_pij(4,3,19)=1
1583 exch2_oi(3,19)=0
1584 exch2_oj(3,19)=0
1585
1586 exch2_neighbourId(4,19)=18
1587 exch2_iLo(4,19)=0
1588 exch2_iHi(4,19)=0
1589 exch2_jLo(4,19)=0
1590 exch2_jHi(4,19)=33
1591 exch2_opposingSend(4,19)=3
1592 exch2_pij(1,4,19)=1
1593 exch2_pij(2,4,19)=0
1594 exch2_pij(3,4,19)=0
1595 exch2_pij(4,4,19)=1
1596 exch2_oi(4,19)=0
1597 exch2_oj(4,19)=0
1598 RETURN
1599 END
1600
1601 SUBROUTINE W2_E2SETUP_20
1602 C Topology for tile 20
1603 #include "W2_EXCH2_TOPOLOGY.h"
1604 exch2_tNx(20)=8
1605 exch2_tNy(20)=32
1606 exch2_tBasex(20)=24
1607 exch2_tBasey(20)=0
1608 exch2_txGlobalo(20)=153
1609 exch2_tyGlobalo(20)=1
1610 exch2_isWedge(20)=0
1611 exch2_isNedge(20)=1
1612 exch2_isEedge(20)=1
1613 exch2_isSedge(20)=1
1614 exch2_myFace(20)=5
1615 exch2_mydNx(20)=32
1616 exch2_mydNy(20)=32
1617 exch2_nNeighbours(20)=4
1618
1619 exch2_neighbourId(1,20)=1
1620 exch2_iLo(1,20)=0
1621 exch2_iHi(1,20)=9
1622 exch2_jLo(1,20)=33
1623 exch2_jHi(1,20)=33
1624 exch2_opposingSend(1,20)=7
1625 exch2_pij(1,1,20)=0
1626 exch2_pij(2,1,20)=-1
1627 exch2_pij(3,1,20)=1
1628 exch2_pij(4,1,20)=0
1629 exch2_oi(1,20)=33
1630 exch2_oj(1,20)=32
1631
1632 exch2_neighbourId(2,20)=16
1633 exch2_iLo(2,20)=0
1634 exch2_iHi(2,20)=9
1635 exch2_jLo(2,20)=0
1636 exch2_jHi(2,20)=0
1637 exch2_opposingSend(2,20)=1
1638 exch2_pij(1,2,20)=1
1639 exch2_pij(2,2,20)=0
1640 exch2_pij(3,2,20)=0
1641 exch2_pij(4,2,20)=1
1642 exch2_oi(2,20)=0
1643 exch2_oj(2,20)=-32
1644
1645 exch2_neighbourId(3,20)=21
1646 exch2_iLo(3,20)=9
1647 exch2_iHi(3,20)=9
1648 exch2_jLo(3,20)=0
1649 exch2_jHi(3,20)=33
1650 exch2_opposingSend(3,20)=4
1651 exch2_pij(1,3,20)=1
1652 exch2_pij(2,3,20)=0
1653 exch2_pij(3,3,20)=0
1654 exch2_pij(4,3,20)=1
1655 exch2_oi(3,20)=32
1656 exch2_oj(3,20)=0
1657
1658 exch2_neighbourId(4,20)=19
1659 exch2_iLo(4,20)=0
1660 exch2_iHi(4,20)=0
1661 exch2_jLo(4,20)=0
1662 exch2_jHi(4,20)=33
1663 exch2_opposingSend(4,20)=3
1664 exch2_pij(1,4,20)=1
1665 exch2_pij(2,4,20)=0
1666 exch2_pij(3,4,20)=0
1667 exch2_pij(4,4,20)=1
1668 exch2_oi(4,20)=0
1669 exch2_oj(4,20)=0
1670 RETURN
1671 END
1672
1673 SUBROUTINE W2_E2SETUP_21
1674 C Topology for tile 21
1675 #include "W2_EXCH2_TOPOLOGY.h"
1676 exch2_tNx(21)=8
1677 exch2_tNy(21)=32
1678 exch2_tBasex(21)=0
1679 exch2_tBasey(21)=0
1680 exch2_txGlobalo(21)=161
1681 exch2_tyGlobalo(21)=1
1682 exch2_isWedge(21)=1
1683 exch2_isNedge(21)=1
1684 exch2_isEedge(21)=0
1685 exch2_isSedge(21)=1
1686 exch2_myFace(21)=6
1687 exch2_mydNx(21)=32
1688 exch2_mydNy(21)=32
1689 exch2_nNeighbours(21)=4
1690
1691 exch2_neighbourId(1,21)=1
1692 exch2_iLo(1,21)=0
1693 exch2_iHi(1,21)=9
1694 exch2_jLo(1,21)=33
1695 exch2_jHi(1,21)=33
1696 exch2_opposingSend(1,21)=2
1697 exch2_pij(1,1,21)=1
1698 exch2_pij(2,1,21)=0
1699 exch2_pij(3,1,21)=0
1700 exch2_pij(4,1,21)=1
1701 exch2_oi(1,21)=0
1702 exch2_oj(1,21)=32
1703
1704 exch2_neighbourId(2,21)=16
1705 exch2_iLo(2,21)=0
1706 exch2_iHi(2,21)=9
1707 exch2_jLo(2,21)=0
1708 exch2_jHi(2,21)=0
1709 exch2_opposingSend(2,21)=3
1710 exch2_pij(1,2,21)=0
1711 exch2_pij(2,2,21)=-1
1712 exch2_pij(3,2,21)=1
1713 exch2_pij(4,2,21)=0
1714 exch2_oi(2,21)=33
1715 exch2_oj(2,21)=-32
1716
1717 exch2_neighbourId(3,21)=22
1718 exch2_iLo(3,21)=9
1719 exch2_iHi(3,21)=9
1720 exch2_jLo(3,21)=0
1721 exch2_jHi(3,21)=33
1722 exch2_opposingSend(3,21)=4
1723 exch2_pij(1,3,21)=1
1724 exch2_pij(2,3,21)=0
1725 exch2_pij(3,3,21)=0
1726 exch2_pij(4,3,21)=1
1727 exch2_oi(3,21)=0
1728 exch2_oj(3,21)=0
1729
1730 exch2_neighbourId(4,21)=20
1731 exch2_iLo(4,21)=0
1732 exch2_iHi(4,21)=0
1733 exch2_jLo(4,21)=0
1734 exch2_jHi(4,21)=33
1735 exch2_opposingSend(4,21)=3
1736 exch2_pij(1,4,21)=1
1737 exch2_pij(2,4,21)=0
1738 exch2_pij(3,4,21)=0
1739 exch2_pij(4,4,21)=1
1740 exch2_oi(4,21)=-32
1741 exch2_oj(4,21)=0
1742 RETURN
1743 END
1744
1745 SUBROUTINE W2_E2SETUP_22
1746 C Topology for tile 22
1747 #include "W2_EXCH2_TOPOLOGY.h"
1748 exch2_tNx(22)=8
1749 exch2_tNy(22)=32
1750 exch2_tBasex(22)=8
1751 exch2_tBasey(22)=0
1752 exch2_txGlobalo(22)=169
1753 exch2_tyGlobalo(22)=1
1754 exch2_isWedge(22)=0
1755 exch2_isNedge(22)=1
1756 exch2_isEedge(22)=0
1757 exch2_isSedge(22)=1
1758 exch2_myFace(22)=6
1759 exch2_mydNx(22)=32
1760 exch2_mydNy(22)=32
1761 exch2_nNeighbours(22)=4
1762
1763 exch2_neighbourId(1,22)=2
1764 exch2_iLo(1,22)=0
1765 exch2_iHi(1,22)=9
1766 exch2_jLo(1,22)=33
1767 exch2_jHi(1,22)=33
1768 exch2_opposingSend(1,22)=2
1769 exch2_pij(1,1,22)=1
1770 exch2_pij(2,1,22)=0
1771 exch2_pij(3,1,22)=0
1772 exch2_pij(4,1,22)=1
1773 exch2_oi(1,22)=0
1774 exch2_oj(1,22)=32
1775
1776 exch2_neighbourId(2,22)=16
1777 exch2_iLo(2,22)=0
1778 exch2_iHi(2,22)=9
1779 exch2_jLo(2,22)=0
1780 exch2_jHi(2,22)=0
1781 exch2_opposingSend(2,22)=4
1782 exch2_pij(1,2,22)=0
1783 exch2_pij(2,2,22)=-1
1784 exch2_pij(3,2,22)=1
1785 exch2_pij(4,2,22)=0
1786 exch2_oi(2,22)=33
1787 exch2_oj(2,22)=-32
1788
1789 exch2_neighbourId(3,22)=23
1790 exch2_iLo(3,22)=9
1791 exch2_iHi(3,22)=9
1792 exch2_jLo(3,22)=0
1793 exch2_jHi(3,22)=33
1794 exch2_opposingSend(3,22)=4
1795 exch2_pij(1,3,22)=1
1796 exch2_pij(2,3,22)=0
1797 exch2_pij(3,3,22)=0
1798 exch2_pij(4,3,22)=1
1799 exch2_oi(3,22)=0
1800 exch2_oj(3,22)=0
1801
1802 exch2_neighbourId(4,22)=21
1803 exch2_iLo(4,22)=0
1804 exch2_iHi(4,22)=0
1805 exch2_jLo(4,22)=0
1806 exch2_jHi(4,22)=33
1807 exch2_opposingSend(4,22)=3
1808 exch2_pij(1,4,22)=1
1809 exch2_pij(2,4,22)=0
1810 exch2_pij(3,4,22)=0
1811 exch2_pij(4,4,22)=1
1812 exch2_oi(4,22)=0
1813 exch2_oj(4,22)=0
1814 RETURN
1815 END
1816
1817 SUBROUTINE W2_E2SETUP_23
1818 C Topology for tile 23
1819 #include "W2_EXCH2_TOPOLOGY.h"
1820 exch2_tNx(23)=8
1821 exch2_tNy(23)=32
1822 exch2_tBasex(23)=16
1823 exch2_tBasey(23)=0
1824 exch2_txGlobalo(23)=177
1825 exch2_tyGlobalo(23)=1
1826 exch2_isWedge(23)=0
1827 exch2_isNedge(23)=1
1828 exch2_isEedge(23)=0
1829 exch2_isSedge(23)=1
1830 exch2_myFace(23)=6
1831 exch2_mydNx(23)=32
1832 exch2_mydNy(23)=32
1833 exch2_nNeighbours(23)=4
1834
1835 exch2_neighbourId(1,23)=3
1836 exch2_iLo(1,23)=0
1837 exch2_iHi(1,23)=9
1838 exch2_jLo(1,23)=33
1839 exch2_jHi(1,23)=33
1840 exch2_opposingSend(1,23)=2
1841 exch2_pij(1,1,23)=1
1842 exch2_pij(2,1,23)=0
1843 exch2_pij(3,1,23)=0
1844 exch2_pij(4,1,23)=1
1845 exch2_oi(1,23)=0
1846 exch2_oj(1,23)=32
1847
1848 exch2_neighbourId(2,23)=16
1849 exch2_iLo(2,23)=0
1850 exch2_iHi(2,23)=9
1851 exch2_jLo(2,23)=0
1852 exch2_jHi(2,23)=0
1853 exch2_opposingSend(2,23)=5
1854 exch2_pij(1,2,23)=0
1855 exch2_pij(2,2,23)=-1
1856 exch2_pij(3,2,23)=1
1857 exch2_pij(4,2,23)=0
1858 exch2_oi(2,23)=33
1859 exch2_oj(2,23)=-32
1860
1861 exch2_neighbourId(3,23)=24
1862 exch2_iLo(3,23)=9
1863 exch2_iHi(3,23)=9
1864 exch2_jLo(3,23)=0
1865 exch2_jHi(3,23)=33
1866 exch2_opposingSend(3,23)=7
1867 exch2_pij(1,3,23)=1
1868 exch2_pij(2,3,23)=0
1869 exch2_pij(3,3,23)=0
1870 exch2_pij(4,3,23)=1
1871 exch2_oi(3,23)=0
1872 exch2_oj(3,23)=0
1873
1874 exch2_neighbourId(4,23)=22
1875 exch2_iLo(4,23)=0
1876 exch2_iHi(4,23)=0
1877 exch2_jLo(4,23)=0
1878 exch2_jHi(4,23)=33
1879 exch2_opposingSend(4,23)=3
1880 exch2_pij(1,4,23)=1
1881 exch2_pij(2,4,23)=0
1882 exch2_pij(3,4,23)=0
1883 exch2_pij(4,4,23)=1
1884 exch2_oi(4,23)=0
1885 exch2_oj(4,23)=0
1886 RETURN
1887 END
1888
1889 SUBROUTINE W2_E2SETUP_24
1890 C Topology for tile 24
1891 #include "W2_EXCH2_TOPOLOGY.h"
1892 exch2_tNx(24)=8
1893 exch2_tNy(24)=32
1894 exch2_tBasex(24)=24
1895 exch2_tBasey(24)=0
1896 exch2_txGlobalo(24)=185
1897 exch2_tyGlobalo(24)=1
1898 exch2_isWedge(24)=0
1899 exch2_isNedge(24)=1
1900 exch2_isEedge(24)=1
1901 exch2_isSedge(24)=1
1902 exch2_myFace(24)=6
1903 exch2_mydNx(24)=32
1904 exch2_mydNy(24)=32
1905 exch2_nNeighbours(24)=7
1906
1907 exch2_neighbourId(1,24)=4
1908 exch2_iLo(1,24)=0
1909 exch2_iHi(1,24)=9
1910 exch2_jLo(1,24)=33
1911 exch2_jHi(1,24)=33
1912 exch2_opposingSend(1,24)=2
1913 exch2_pij(1,1,24)=1
1914 exch2_pij(2,1,24)=0
1915 exch2_pij(3,1,24)=0
1916 exch2_pij(4,1,24)=1
1917 exch2_oi(1,24)=0
1918 exch2_oj(1,24)=32
1919
1920 exch2_neighbourId(2,24)=16
1921 exch2_iLo(2,24)=0
1922 exch2_iHi(2,24)=9
1923 exch2_jLo(2,24)=0
1924 exch2_jHi(2,24)=0
1925 exch2_opposingSend(2,24)=6
1926 exch2_pij(1,2,24)=0
1927 exch2_pij(2,2,24)=-1
1928 exch2_pij(3,2,24)=1
1929 exch2_pij(4,2,24)=0
1930 exch2_oi(2,24)=33
1931 exch2_oj(2,24)=-32
1932
1933 exch2_neighbourId(3,24)=5
1934 exch2_iLo(3,24)=9
1935 exch2_iHi(3,24)=9
1936 exch2_jLo(3,24)=24
1937 exch2_jHi(3,24)=33
1938 exch2_opposingSend(3,24)=2
1939 exch2_pij(1,3,24)=0
1940 exch2_pij(2,3,24)=1
1941 exch2_pij(3,3,24)=-1
1942 exch2_pij(4,3,24)=0
1943 exch2_oi(3,24)=32
1944 exch2_oj(3,24)=33
1945
1946 exch2_neighbourId(4,24)=6
1947 exch2_iLo(4,24)=9
1948 exch2_iHi(4,24)=9
1949 exch2_jLo(4,24)=16
1950 exch2_jHi(4,24)=25
1951 exch2_opposingSend(4,24)=2
1952 exch2_pij(1,4,24)=0
1953 exch2_pij(2,4,24)=1
1954 exch2_pij(3,4,24)=-1
1955 exch2_pij(4,4,24)=0
1956 exch2_oi(4,24)=32
1957 exch2_oj(4,24)=33
1958
1959 exch2_neighbourId(5,24)=7
1960 exch2_iLo(5,24)=9
1961 exch2_iHi(5,24)=9
1962 exch2_jLo(5,24)=8
1963 exch2_jHi(5,24)=17
1964 exch2_opposingSend(5,24)=2
1965 exch2_pij(1,5,24)=0
1966 exch2_pij(2,5,24)=1
1967 exch2_pij(3,5,24)=-1
1968 exch2_pij(4,5,24)=0
1969 exch2_oi(5,24)=32
1970 exch2_oj(5,24)=33
1971
1972 exch2_neighbourId(6,24)=8
1973 exch2_iLo(6,24)=9
1974 exch2_iHi(6,24)=9
1975 exch2_jLo(6,24)=0
1976 exch2_jHi(6,24)=9
1977 exch2_opposingSend(6,24)=2
1978 exch2_pij(1,6,24)=0
1979 exch2_pij(2,6,24)=1
1980 exch2_pij(3,6,24)=-1
1981 exch2_pij(4,6,24)=0
1982 exch2_oi(6,24)=32
1983 exch2_oj(6,24)=33
1984
1985 exch2_neighbourId(7,24)=23
1986 exch2_iLo(7,24)=0
1987 exch2_iHi(7,24)=0
1988 exch2_jLo(7,24)=0
1989 exch2_jHi(7,24)=33
1990 exch2_opposingSend(7,24)=3
1991 exch2_pij(1,7,24)=1
1992 exch2_pij(2,7,24)=0
1993 exch2_pij(3,7,24)=0
1994 exch2_pij(4,7,24)=1
1995 exch2_oi(7,24)=0
1996 exch2_oj(7,24)=0
1997 RETURN
1998 END
1999

  ViewVC Help
Powered by ViewVC 1.1.22