/[MITgcm]/MITgcm_contrib/onedegcube/w2_e2setup.F
ViewVC logotype

Contents of /MITgcm_contrib/onedegcube/w2_e2setup.F

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

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