/[MITgcm]/MITgcm_contrib/eh3/llc/ecco-godae/code/w2_e2setup.F
ViewVC logotype

Contents of /MITgcm_contrib/eh3/llc/ecco-godae/code/w2_e2setup.F

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

Revision 1.1 - (show annotations) (download)
Wed Aug 23 21:07:50 2006 UTC (18 years, 11 months ago) by edhill
Branch: MAIN
CVS Tags: HEAD 
initial ci of bathy
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 RETURN
25 END
26 SUBROUTINE W2_E2SETUP_1
27 C Topology for tile 1
28 #include "W2_EXCH2_TOPOLOGY.h"
29 exch2_tnx(1)=90
30 exch2_tny(1)=90
31 exch2_tbasex(1)=0
32 exch2_tbasey(1)=0
33 exch2_txglobalo(1)=1
34 exch2_tyglobalo(1)=1
35 exch2_isWedge(1)=1
36 exch2_isNedge(1)=0
37 exch2_isEedge(1)=1
38 exch2_isSedge(1)=1
39 exch2_myFace(1)=1
40 exch2_mydnx(1)=90
41 exch2_mydny(1)=360
42 exch2_nNeighbours(1)=3
43
44 exch2_neighbourId(1,1)=2
45 exch2_pi(1,1,1)=1
46 exch2_pi(2,1,1)=0
47 exch2_pj(1,1,1)=0
48 exch2_pj(2,1,1)=1
49 exch2_oi(1,1)=0
50 exch2_oi_f(1,1)=0
51 exch2_oj(1,1)=0
52 exch2_oj_f(1,1)=0
53 exch2_itlo_c(1,1)=0
54 exch2_ithi_c(1,1)=91
55 exch2_jtlo_c(1,1)=0
56 exch2_jthi_c(1,1)=0
57 exch2_opposingSend_record(1,1)=2
58
59 exch2_neighbourId(2,1)=5
60 exch2_pi(1,2,1)=1
61 exch2_pi(2,2,1)=0
62 exch2_pj(1,2,1)=0
63 exch2_pj(2,2,1)=1
64 exch2_oi(2,1)=90
65 exch2_oi_f(2,1)=90
66 exch2_oj(2,1)=0
67 exch2_oj_f(2,1)=0
68 exch2_itlo_c(2,1)=0
69 exch2_ithi_c(2,1)=0
70 exch2_jtlo_c(2,1)=0
71 exch2_jthi_c(2,1)=91
72 exch2_opposingSend_record(2,1)=3
73
74 exch2_neighbourId(3,1)=17
75 exch2_pi(1,3,1)=0
76 exch2_pi(2,3,1)=1
77 exch2_pj(1,3,1)=-1
78 exch2_pj(2,3,1)=0
79 exch2_oi(3,1)=-90
80 exch2_oi_f(3,1)=-90
81 exch2_oj(3,1)=361
82 exch2_oj_f(3,1)=362
83 exch2_itlo_c(3,1)=0
84 exch2_ithi_c(3,1)=91
85 exch2_jtlo_c(3,1)=91
86 exch2_jthi_c(3,1)=91
87 exch2_opposingSend_record(3,1)=1
88 RETURN
89 END
90
91 SUBROUTINE W2_E2SETUP_2
92 C Topology for tile 2
93 #include "W2_EXCH2_TOPOLOGY.h"
94 exch2_tnx(2)=90
95 exch2_tny(2)=90
96 exch2_tbasex(2)=0
97 exch2_tbasey(2)=90
98 exch2_txglobalo(2)=1
99 exch2_tyglobalo(2)=91
100 exch2_isWedge(2)=1
101 exch2_isNedge(2)=0
102 exch2_isEedge(2)=1
103 exch2_isSedge(2)=0
104 exch2_myFace(2)=1
105 exch2_mydnx(2)=90
106 exch2_mydny(2)=360
107 exch2_nNeighbours(2)=4
108
109 exch2_neighbourId(1,2)=3
110 exch2_pi(1,1,2)=1
111 exch2_pi(2,1,2)=0
112 exch2_pj(1,1,2)=0
113 exch2_pj(2,1,2)=1
114 exch2_oi(1,2)=0
115 exch2_oi_f(1,2)=0
116 exch2_oj(1,2)=0
117 exch2_oj_f(1,2)=0
118 exch2_itlo_c(1,2)=0
119 exch2_ithi_c(1,2)=91
120 exch2_jtlo_c(1,2)=0
121 exch2_jthi_c(1,2)=0
122 exch2_opposingSend_record(1,2)=2
123
124 exch2_neighbourId(2,2)=1
125 exch2_pi(1,2,2)=1
126 exch2_pi(2,2,2)=0
127 exch2_pj(1,2,2)=0
128 exch2_pj(2,2,2)=1
129 exch2_oi(2,2)=0
130 exch2_oi_f(2,2)=0
131 exch2_oj(2,2)=0
132 exch2_oj_f(2,2)=0
133 exch2_itlo_c(2,2)=1
134 exch2_ithi_c(2,2)=90
135 exch2_jtlo_c(2,2)=91
136 exch2_jthi_c(2,2)=91
137 exch2_opposingSend_record(2,2)=1
138
139 exch2_neighbourId(3,2)=6
140 exch2_pi(1,3,2)=1
141 exch2_pi(2,3,2)=0
142 exch2_pj(1,3,2)=0
143 exch2_pj(2,3,2)=1
144 exch2_oi(3,2)=90
145 exch2_oi_f(3,2)=90
146 exch2_oj(3,2)=0
147 exch2_oj_f(3,2)=0
148 exch2_itlo_c(3,2)=0
149 exch2_ithi_c(3,2)=0
150 exch2_jtlo_c(3,2)=0
151 exch2_jthi_c(3,2)=91
152 exch2_opposingSend_record(3,2)=4
153
154 exch2_neighbourId(4,2)=16
155 exch2_pi(1,4,2)=0
156 exch2_pi(2,4,2)=1
157 exch2_pj(1,4,2)=-1
158 exch2_pj(2,4,2)=0
159 exch2_oi(4,2)=-90
160 exch2_oi_f(4,2)=-90
161 exch2_oj(4,2)=361
162 exch2_oj_f(4,2)=362
163 exch2_itlo_c(4,2)=0
164 exch2_ithi_c(4,2)=91
165 exch2_jtlo_c(4,2)=91
166 exch2_jthi_c(4,2)=91
167 exch2_opposingSend_record(4,2)=1
168 RETURN
169 END
170
171 SUBROUTINE W2_E2SETUP_3
172 C Topology for tile 3
173 #include "W2_EXCH2_TOPOLOGY.h"
174 exch2_tnx(3)=90
175 exch2_tny(3)=90
176 exch2_tbasex(3)=0
177 exch2_tbasey(3)=180
178 exch2_txglobalo(3)=1
179 exch2_tyglobalo(3)=181
180 exch2_isWedge(3)=1
181 exch2_isNedge(3)=0
182 exch2_isEedge(3)=1
183 exch2_isSedge(3)=0
184 exch2_myFace(3)=1
185 exch2_mydnx(3)=90
186 exch2_mydny(3)=360
187 exch2_nNeighbours(3)=4
188
189 exch2_neighbourId(1,3)=4
190 exch2_pi(1,1,3)=1
191 exch2_pi(2,1,3)=0
192 exch2_pj(1,1,3)=0
193 exch2_pj(2,1,3)=1
194 exch2_oi(1,3)=0
195 exch2_oi_f(1,3)=0
196 exch2_oj(1,3)=0
197 exch2_oj_f(1,3)=0
198 exch2_itlo_c(1,3)=0
199 exch2_ithi_c(1,3)=91
200 exch2_jtlo_c(1,3)=0
201 exch2_jthi_c(1,3)=0
202 exch2_opposingSend_record(1,3)=2
203
204 exch2_neighbourId(2,3)=2
205 exch2_pi(1,2,3)=1
206 exch2_pi(2,2,3)=0
207 exch2_pj(1,2,3)=0
208 exch2_pj(2,2,3)=1
209 exch2_oi(2,3)=0
210 exch2_oi_f(2,3)=0
211 exch2_oj(2,3)=0
212 exch2_oj_f(2,3)=0
213 exch2_itlo_c(2,3)=1
214 exch2_ithi_c(2,3)=90
215 exch2_jtlo_c(2,3)=91
216 exch2_jthi_c(2,3)=91
217 exch2_opposingSend_record(2,3)=1
218
219 exch2_neighbourId(3,3)=7
220 exch2_pi(1,3,3)=1
221 exch2_pi(2,3,3)=0
222 exch2_pj(1,3,3)=0
223 exch2_pj(2,3,3)=1
224 exch2_oi(3,3)=90
225 exch2_oi_f(3,3)=90
226 exch2_oj(3,3)=0
227 exch2_oj_f(3,3)=0
228 exch2_itlo_c(3,3)=0
229 exch2_ithi_c(3,3)=0
230 exch2_jtlo_c(3,3)=0
231 exch2_jthi_c(3,3)=91
232 exch2_opposingSend_record(3,3)=4
233
234 exch2_neighbourId(4,3)=15
235 exch2_pi(1,4,3)=0
236 exch2_pi(2,4,3)=1
237 exch2_pj(1,4,3)=-1
238 exch2_pj(2,4,3)=0
239 exch2_oi(4,3)=-90
240 exch2_oi_f(4,3)=-90
241 exch2_oj(4,3)=361
242 exch2_oj_f(4,3)=362
243 exch2_itlo_c(4,3)=0
244 exch2_ithi_c(4,3)=91
245 exch2_jtlo_c(4,3)=91
246 exch2_jthi_c(4,3)=91
247 exch2_opposingSend_record(4,3)=1
248 RETURN
249 END
250
251 SUBROUTINE W2_E2SETUP_4
252 C Topology for tile 4
253 #include "W2_EXCH2_TOPOLOGY.h"
254 exch2_tnx(4)=90
255 exch2_tny(4)=90
256 exch2_tbasex(4)=0
257 exch2_tbasey(4)=270
258 exch2_txglobalo(4)=1
259 exch2_tyglobalo(4)=271
260 exch2_isWedge(4)=1
261 exch2_isNedge(4)=1
262 exch2_isEedge(4)=1
263 exch2_isSedge(4)=0
264 exch2_myFace(4)=1
265 exch2_mydnx(4)=90
266 exch2_mydny(4)=360
267 exch2_nNeighbours(4)=4
268
269 exch2_neighbourId(1,4)=9
270 exch2_pi(1,1,4)=0
271 exch2_pi(2,1,4)=-1
272 exch2_pj(1,1,4)=1
273 exch2_pj(2,1,4)=0
274 exch2_oi(1,4)=91
275 exch2_oi_f(1,4)=92
276 exch2_oj(1,4)=360
277 exch2_oj_f(1,4)=360
278 exch2_itlo_c(1,4)=0
279 exch2_ithi_c(1,4)=0
280 exch2_jtlo_c(1,4)=0
281 exch2_jthi_c(1,4)=91
282 exch2_opposingSend_record(1,4)=4
283
284 exch2_neighbourId(2,4)=3
285 exch2_pi(1,2,4)=1
286 exch2_pi(2,2,4)=0
287 exch2_pj(1,2,4)=0
288 exch2_pj(2,2,4)=1
289 exch2_oi(2,4)=0
290 exch2_oi_f(2,4)=0
291 exch2_oj(2,4)=0
292 exch2_oj_f(2,4)=0
293 exch2_itlo_c(2,4)=1
294 exch2_ithi_c(2,4)=90
295 exch2_jtlo_c(2,4)=91
296 exch2_jthi_c(2,4)=91
297 exch2_opposingSend_record(2,4)=1
298
299 exch2_neighbourId(3,4)=8
300 exch2_pi(1,3,4)=1
301 exch2_pi(2,3,4)=0
302 exch2_pj(1,3,4)=0
303 exch2_pj(2,3,4)=1
304 exch2_oi(3,4)=90
305 exch2_oi_f(3,4)=90
306 exch2_oj(3,4)=0
307 exch2_oj_f(3,4)=0
308 exch2_itlo_c(3,4)=0
309 exch2_ithi_c(3,4)=0
310 exch2_jtlo_c(3,4)=0
311 exch2_jthi_c(3,4)=91
312 exch2_opposingSend_record(3,4)=4
313
314 exch2_neighbourId(4,4)=14
315 exch2_pi(1,4,4)=0
316 exch2_pi(2,4,4)=1
317 exch2_pj(1,4,4)=-1
318 exch2_pj(2,4,4)=0
319 exch2_oi(4,4)=-90
320 exch2_oi_f(4,4)=-90
321 exch2_oj(4,4)=361
322 exch2_oj_f(4,4)=362
323 exch2_itlo_c(4,4)=0
324 exch2_ithi_c(4,4)=91
325 exch2_jtlo_c(4,4)=91
326 exch2_jthi_c(4,4)=91
327 exch2_opposingSend_record(4,4)=1
328 RETURN
329 END
330
331 SUBROUTINE W2_E2SETUP_5
332 C Topology for tile 5
333 #include "W2_EXCH2_TOPOLOGY.h"
334 exch2_tnx(5)=90
335 exch2_tny(5)=90
336 exch2_tbasex(5)=0
337 exch2_tbasey(5)=0
338 exch2_txglobalo(5)=91
339 exch2_tyglobalo(5)=1
340 exch2_isWedge(5)=1
341 exch2_isNedge(5)=0
342 exch2_isEedge(5)=1
343 exch2_isSedge(5)=1
344 exch2_myFace(5)=2
345 exch2_mydnx(5)=90
346 exch2_mydny(5)=360
347 exch2_nNeighbours(5)=3
348
349 exch2_neighbourId(1,5)=6
350 exch2_pi(1,1,5)=1
351 exch2_pi(2,1,5)=0
352 exch2_pj(1,1,5)=0
353 exch2_pj(2,1,5)=1
354 exch2_oi(1,5)=0
355 exch2_oi_f(1,5)=0
356 exch2_oj(1,5)=0
357 exch2_oj_f(1,5)=0
358 exch2_itlo_c(1,5)=0
359 exch2_ithi_c(1,5)=91
360 exch2_jtlo_c(1,5)=0
361 exch2_jthi_c(1,5)=0
362 exch2_opposingSend_record(1,5)=2
363
364 exch2_neighbourId(2,5)=13
365 exch2_pi(1,2,5)=0
366 exch2_pi(2,2,5)=1
367 exch2_pj(1,2,5)=-1
368 exch2_pj(2,2,5)=0
369 exch2_oi(2,5)=90
370 exch2_oi_f(2,5)=90
371 exch2_oj(2,5)=361
372 exch2_oj_f(2,5)=362
373 exch2_itlo_c(2,5)=0
374 exch2_ithi_c(2,5)=91
375 exch2_jtlo_c(2,5)=0
376 exch2_jthi_c(2,5)=0
377 exch2_opposingSend_record(2,5)=2
378
379 exch2_neighbourId(3,5)=1
380 exch2_pi(1,3,5)=1
381 exch2_pi(2,3,5)=0
382 exch2_pj(1,3,5)=0
383 exch2_pj(2,3,5)=1
384 exch2_oi(3,5)=-90
385 exch2_oi_f(3,5)=-90
386 exch2_oj(3,5)=0
387 exch2_oj_f(3,5)=0
388 exch2_itlo_c(3,5)=91
389 exch2_ithi_c(3,5)=91
390 exch2_jtlo_c(3,5)=0
391 exch2_jthi_c(3,5)=91
392 exch2_opposingSend_record(3,5)=2
393 RETURN
394 END
395
396 SUBROUTINE W2_E2SETUP_6
397 C Topology for tile 6
398 #include "W2_EXCH2_TOPOLOGY.h"
399 exch2_tnx(6)=90
400 exch2_tny(6)=90
401 exch2_tbasex(6)=0
402 exch2_tbasey(6)=90
403 exch2_txglobalo(6)=91
404 exch2_tyglobalo(6)=91
405 exch2_isWedge(6)=1
406 exch2_isNedge(6)=0
407 exch2_isEedge(6)=1
408 exch2_isSedge(6)=0
409 exch2_myFace(6)=2
410 exch2_mydnx(6)=90
411 exch2_mydny(6)=360
412 exch2_nNeighbours(6)=4
413
414 exch2_neighbourId(1,6)=7
415 exch2_pi(1,1,6)=1
416 exch2_pi(2,1,6)=0
417 exch2_pj(1,1,6)=0
418 exch2_pj(2,1,6)=1
419 exch2_oi(1,6)=0
420 exch2_oi_f(1,6)=0
421 exch2_oj(1,6)=0
422 exch2_oj_f(1,6)=0
423 exch2_itlo_c(1,6)=0
424 exch2_ithi_c(1,6)=91
425 exch2_jtlo_c(1,6)=0
426 exch2_jthi_c(1,6)=0
427 exch2_opposingSend_record(1,6)=2
428
429 exch2_neighbourId(2,6)=5
430 exch2_pi(1,2,6)=1
431 exch2_pi(2,2,6)=0
432 exch2_pj(1,2,6)=0
433 exch2_pj(2,2,6)=1
434 exch2_oi(2,6)=0
435 exch2_oi_f(2,6)=0
436 exch2_oj(2,6)=0
437 exch2_oj_f(2,6)=0
438 exch2_itlo_c(2,6)=1
439 exch2_ithi_c(2,6)=90
440 exch2_jtlo_c(2,6)=91
441 exch2_jthi_c(2,6)=91
442 exch2_opposingSend_record(2,6)=1
443
444 exch2_neighbourId(3,6)=12
445 exch2_pi(1,3,6)=0
446 exch2_pi(2,3,6)=1
447 exch2_pj(1,3,6)=-1
448 exch2_pj(2,3,6)=0
449 exch2_oi(3,6)=90
450 exch2_oi_f(3,6)=90
451 exch2_oj(3,6)=361
452 exch2_oj_f(3,6)=362
453 exch2_itlo_c(3,6)=0
454 exch2_ithi_c(3,6)=91
455 exch2_jtlo_c(3,6)=0
456 exch2_jthi_c(3,6)=0
457 exch2_opposingSend_record(3,6)=2
458
459 exch2_neighbourId(4,6)=2
460 exch2_pi(1,4,6)=1
461 exch2_pi(2,4,6)=0
462 exch2_pj(1,4,6)=0
463 exch2_pj(2,4,6)=1
464 exch2_oi(4,6)=-90
465 exch2_oi_f(4,6)=-90
466 exch2_oj(4,6)=0
467 exch2_oj_f(4,6)=0
468 exch2_itlo_c(4,6)=91
469 exch2_ithi_c(4,6)=91
470 exch2_jtlo_c(4,6)=0
471 exch2_jthi_c(4,6)=91
472 exch2_opposingSend_record(4,6)=3
473 RETURN
474 END
475
476 SUBROUTINE W2_E2SETUP_7
477 C Topology for tile 7
478 #include "W2_EXCH2_TOPOLOGY.h"
479 exch2_tnx(7)=90
480 exch2_tny(7)=90
481 exch2_tbasex(7)=0
482 exch2_tbasey(7)=180
483 exch2_txglobalo(7)=91
484 exch2_tyglobalo(7)=181
485 exch2_isWedge(7)=1
486 exch2_isNedge(7)=0
487 exch2_isEedge(7)=1
488 exch2_isSedge(7)=0
489 exch2_myFace(7)=2
490 exch2_mydnx(7)=90
491 exch2_mydny(7)=360
492 exch2_nNeighbours(7)=4
493
494 exch2_neighbourId(1,7)=8
495 exch2_pi(1,1,7)=1
496 exch2_pi(2,1,7)=0
497 exch2_pj(1,1,7)=0
498 exch2_pj(2,1,7)=1
499 exch2_oi(1,7)=0
500 exch2_oi_f(1,7)=0
501 exch2_oj(1,7)=0
502 exch2_oj_f(1,7)=0
503 exch2_itlo_c(1,7)=0
504 exch2_ithi_c(1,7)=91
505 exch2_jtlo_c(1,7)=0
506 exch2_jthi_c(1,7)=0
507 exch2_opposingSend_record(1,7)=2
508
509 exch2_neighbourId(2,7)=6
510 exch2_pi(1,2,7)=1
511 exch2_pi(2,2,7)=0
512 exch2_pj(1,2,7)=0
513 exch2_pj(2,2,7)=1
514 exch2_oi(2,7)=0
515 exch2_oi_f(2,7)=0
516 exch2_oj(2,7)=0
517 exch2_oj_f(2,7)=0
518 exch2_itlo_c(2,7)=1
519 exch2_ithi_c(2,7)=90
520 exch2_jtlo_c(2,7)=91
521 exch2_jthi_c(2,7)=91
522 exch2_opposingSend_record(2,7)=1
523
524 exch2_neighbourId(3,7)=11
525 exch2_pi(1,3,7)=0
526 exch2_pi(2,3,7)=1
527 exch2_pj(1,3,7)=-1
528 exch2_pj(2,3,7)=0
529 exch2_oi(3,7)=90
530 exch2_oi_f(3,7)=90
531 exch2_oj(3,7)=361
532 exch2_oj_f(3,7)=362
533 exch2_itlo_c(3,7)=0
534 exch2_ithi_c(3,7)=91
535 exch2_jtlo_c(3,7)=0
536 exch2_jthi_c(3,7)=0
537 exch2_opposingSend_record(3,7)=2
538
539 exch2_neighbourId(4,7)=3
540 exch2_pi(1,4,7)=1
541 exch2_pi(2,4,7)=0
542 exch2_pj(1,4,7)=0
543 exch2_pj(2,4,7)=1
544 exch2_oi(4,7)=-90
545 exch2_oi_f(4,7)=-90
546 exch2_oj(4,7)=0
547 exch2_oj_f(4,7)=0
548 exch2_itlo_c(4,7)=91
549 exch2_ithi_c(4,7)=91
550 exch2_jtlo_c(4,7)=0
551 exch2_jthi_c(4,7)=91
552 exch2_opposingSend_record(4,7)=3
553 RETURN
554 END
555
556 SUBROUTINE W2_E2SETUP_8
557 C Topology for tile 8
558 #include "W2_EXCH2_TOPOLOGY.h"
559 exch2_tnx(8)=90
560 exch2_tny(8)=90
561 exch2_tbasex(8)=0
562 exch2_tbasey(8)=270
563 exch2_txglobalo(8)=91
564 exch2_tyglobalo(8)=271
565 exch2_isWedge(8)=1
566 exch2_isNedge(8)=1
567 exch2_isEedge(8)=1
568 exch2_isSedge(8)=0
569 exch2_myFace(8)=2
570 exch2_mydnx(8)=90
571 exch2_mydny(8)=360
572 exch2_nNeighbours(8)=4
573
574 exch2_neighbourId(1,8)=9
575 exch2_pi(1,1,8)=1
576 exch2_pi(2,1,8)=0
577 exch2_pj(1,1,8)=0
578 exch2_pj(2,1,8)=1
579 exch2_oi(1,8)=0
580 exch2_oi_f(1,8)=0
581 exch2_oj(1,8)=360
582 exch2_oj_f(1,8)=360
583 exch2_itlo_c(1,8)=0
584 exch2_ithi_c(1,8)=91
585 exch2_jtlo_c(1,8)=0
586 exch2_jthi_c(1,8)=0
587 exch2_opposingSend_record(1,8)=2
588
589 exch2_neighbourId(2,8)=7
590 exch2_pi(1,2,8)=1
591 exch2_pi(2,2,8)=0
592 exch2_pj(1,2,8)=0
593 exch2_pj(2,2,8)=1
594 exch2_oi(2,8)=0
595 exch2_oi_f(2,8)=0
596 exch2_oj(2,8)=0
597 exch2_oj_f(2,8)=0
598 exch2_itlo_c(2,8)=1
599 exch2_ithi_c(2,8)=90
600 exch2_jtlo_c(2,8)=91
601 exch2_jthi_c(2,8)=91
602 exch2_opposingSend_record(2,8)=1
603
604 exch2_neighbourId(3,8)=10
605 exch2_pi(1,3,8)=0
606 exch2_pi(2,3,8)=1
607 exch2_pj(1,3,8)=-1
608 exch2_pj(2,3,8)=0
609 exch2_oi(3,8)=90
610 exch2_oi_f(3,8)=90
611 exch2_oj(3,8)=361
612 exch2_oj_f(3,8)=362
613 exch2_itlo_c(3,8)=0
614 exch2_ithi_c(3,8)=91
615 exch2_jtlo_c(3,8)=0
616 exch2_jthi_c(3,8)=0
617 exch2_opposingSend_record(3,8)=2
618
619 exch2_neighbourId(4,8)=4
620 exch2_pi(1,4,8)=1
621 exch2_pi(2,4,8)=0
622 exch2_pj(1,4,8)=0
623 exch2_pj(2,4,8)=1
624 exch2_oi(4,8)=-90
625 exch2_oi_f(4,8)=-90
626 exch2_oj(4,8)=0
627 exch2_oj_f(4,8)=0
628 exch2_itlo_c(4,8)=91
629 exch2_ithi_c(4,8)=91
630 exch2_jtlo_c(4,8)=0
631 exch2_jthi_c(4,8)=91
632 exch2_opposingSend_record(4,8)=3
633 RETURN
634 END
635
636 SUBROUTINE W2_E2SETUP_9
637 C Topology for tile 9
638 #include "W2_EXCH2_TOPOLOGY.h"
639 exch2_tnx(9)=90
640 exch2_tny(9)=90
641 exch2_tbasex(9)=0
642 exch2_tbasey(9)=0
643 exch2_txglobalo(9)=181
644 exch2_tyglobalo(9)=1
645 exch2_isWedge(9)=1
646 exch2_isNedge(9)=1
647 exch2_isEedge(9)=1
648 exch2_isSedge(9)=1
649 exch2_myFace(9)=3
650 exch2_mydnx(9)=90
651 exch2_mydny(9)=90
652 exch2_nNeighbours(9)=4
653
654 exch2_neighbourId(1,9)=14
655 exch2_pi(1,1,9)=0
656 exch2_pi(2,1,9)=-1
657 exch2_pj(1,1,9)=1
658 exch2_pj(2,1,9)=0
659 exch2_oi(1,9)=91
660 exch2_oi_f(1,9)=92
661 exch2_oj(1,9)=90
662 exch2_oj_f(1,9)=90
663 exch2_itlo_c(1,9)=0
664 exch2_ithi_c(1,9)=0
665 exch2_jtlo_c(1,9)=0
666 exch2_jthi_c(1,9)=91
667 exch2_opposingSend_record(1,9)=4
668
669 exch2_neighbourId(2,9)=8
670 exch2_pi(1,2,9)=1
671 exch2_pi(2,2,9)=0
672 exch2_pj(1,2,9)=0
673 exch2_pj(2,2,9)=1
674 exch2_oi(2,9)=0
675 exch2_oi_f(2,9)=0
676 exch2_oj(2,9)=-360
677 exch2_oj_f(2,9)=-360
678 exch2_itlo_c(2,9)=0
679 exch2_ithi_c(2,9)=91
680 exch2_jtlo_c(2,9)=91
681 exch2_jthi_c(2,9)=91
682 exch2_opposingSend_record(2,9)=1
683
684 exch2_neighbourId(3,9)=10
685 exch2_pi(1,3,9)=1
686 exch2_pi(2,3,9)=0
687 exch2_pj(1,3,9)=0
688 exch2_pj(2,3,9)=1
689 exch2_oi(3,9)=90
690 exch2_oi_f(3,9)=90
691 exch2_oj(3,9)=0
692 exch2_oj_f(3,9)=0
693 exch2_itlo_c(3,9)=0
694 exch2_ithi_c(3,9)=0
695 exch2_jtlo_c(3,9)=0
696 exch2_jthi_c(3,9)=91
697 exch2_opposingSend_record(3,9)=4
698
699 exch2_neighbourId(4,9)=4
700 exch2_pi(1,4,9)=0
701 exch2_pi(2,4,9)=1
702 exch2_pj(1,4,9)=-1
703 exch2_pj(2,4,9)=0
704 exch2_oi(4,9)=-360
705 exch2_oi_f(4,9)=-360
706 exch2_oj(4,9)=91
707 exch2_oj_f(4,9)=92
708 exch2_itlo_c(4,9)=0
709 exch2_ithi_c(4,9)=91
710 exch2_jtlo_c(4,9)=91
711 exch2_jthi_c(4,9)=91
712 exch2_opposingSend_record(4,9)=1
713 RETURN
714 END
715
716 SUBROUTINE W2_E2SETUP_10
717 C Topology for tile 10
718 #include "W2_EXCH2_TOPOLOGY.h"
719 exch2_tnx(10)=90
720 exch2_tny(10)=90
721 exch2_tbasex(10)=0
722 exch2_tbasey(10)=0
723 exch2_txglobalo(10)=271
724 exch2_tyglobalo(10)=1
725 exch2_isWedge(10)=1
726 exch2_isNedge(10)=1
727 exch2_isEedge(10)=0
728 exch2_isSedge(10)=1
729 exch2_myFace(10)=4
730 exch2_mydnx(10)=360
731 exch2_mydny(10)=90
732 exch2_nNeighbours(10)=4
733
734 exch2_neighbourId(1,10)=14
735 exch2_pi(1,1,10)=1
736 exch2_pi(2,1,10)=0
737 exch2_pj(1,1,10)=0
738 exch2_pj(2,1,10)=1
739 exch2_oi(1,10)=0
740 exch2_oi_f(1,10)=0
741 exch2_oj(1,10)=90
742 exch2_oj_f(1,10)=90
743 exch2_itlo_c(1,10)=0
744 exch2_ithi_c(1,10)=91
745 exch2_jtlo_c(1,10)=0
746 exch2_jthi_c(1,10)=0
747 exch2_opposingSend_record(1,10)=2
748
749 exch2_neighbourId(2,10)=8
750 exch2_pi(1,2,10)=0
751 exch2_pi(2,2,10)=-1
752 exch2_pj(1,2,10)=1
753 exch2_pj(2,2,10)=0
754 exch2_oi(2,10)=361
755 exch2_oi_f(2,10)=362
756 exch2_oj(2,10)=-90
757 exch2_oj_f(2,10)=-90
758 exch2_itlo_c(2,10)=91
759 exch2_ithi_c(2,10)=91
760 exch2_jtlo_c(2,10)=0
761 exch2_jthi_c(2,10)=91
762 exch2_opposingSend_record(2,10)=3
763
764 exch2_neighbourId(3,10)=11
765 exch2_pi(1,3,10)=1
766 exch2_pi(2,3,10)=0
767 exch2_pj(1,3,10)=0
768 exch2_pj(2,3,10)=1
769 exch2_oi(3,10)=0
770 exch2_oi_f(3,10)=0
771 exch2_oj(3,10)=0
772 exch2_oj_f(3,10)=0
773 exch2_itlo_c(3,10)=0
774 exch2_ithi_c(3,10)=0
775 exch2_jtlo_c(3,10)=0
776 exch2_jthi_c(3,10)=91
777 exch2_opposingSend_record(3,10)=4
778
779 exch2_neighbourId(4,10)=9
780 exch2_pi(1,4,10)=1
781 exch2_pi(2,4,10)=0
782 exch2_pj(1,4,10)=0
783 exch2_pj(2,4,10)=1
784 exch2_oi(4,10)=-90
785 exch2_oi_f(4,10)=-90
786 exch2_oj(4,10)=0
787 exch2_oj_f(4,10)=0
788 exch2_itlo_c(4,10)=91
789 exch2_ithi_c(4,10)=91
790 exch2_jtlo_c(4,10)=0
791 exch2_jthi_c(4,10)=91
792 exch2_opposingSend_record(4,10)=3
793 RETURN
794 END
795
796 SUBROUTINE W2_E2SETUP_11
797 C Topology for tile 11
798 #include "W2_EXCH2_TOPOLOGY.h"
799 exch2_tnx(11)=90
800 exch2_tny(11)=90
801 exch2_tbasex(11)=90
802 exch2_tbasey(11)=0
803 exch2_txglobalo(11)=361
804 exch2_tyglobalo(11)=1
805 exch2_isWedge(11)=0
806 exch2_isNedge(11)=1
807 exch2_isEedge(11)=0
808 exch2_isSedge(11)=1
809 exch2_myFace(11)=4
810 exch2_mydnx(11)=360
811 exch2_mydny(11)=90
812 exch2_nNeighbours(11)=4
813
814 exch2_neighbourId(1,11)=15
815 exch2_pi(1,1,11)=1
816 exch2_pi(2,1,11)=0
817 exch2_pj(1,1,11)=0
818 exch2_pj(2,1,11)=1
819 exch2_oi(1,11)=0
820 exch2_oi_f(1,11)=0
821 exch2_oj(1,11)=90
822 exch2_oj_f(1,11)=90
823 exch2_itlo_c(1,11)=0
824 exch2_ithi_c(1,11)=91
825 exch2_jtlo_c(1,11)=0
826 exch2_jthi_c(1,11)=0
827 exch2_opposingSend_record(1,11)=2
828
829 exch2_neighbourId(2,11)=7
830 exch2_pi(1,2,11)=0
831 exch2_pi(2,2,11)=-1
832 exch2_pj(1,2,11)=1
833 exch2_pj(2,2,11)=0
834 exch2_oi(2,11)=361
835 exch2_oi_f(2,11)=362
836 exch2_oj(2,11)=-90
837 exch2_oj_f(2,11)=-90
838 exch2_itlo_c(2,11)=91
839 exch2_ithi_c(2,11)=91
840 exch2_jtlo_c(2,11)=0
841 exch2_jthi_c(2,11)=91
842 exch2_opposingSend_record(2,11)=3
843
844 exch2_neighbourId(3,11)=12
845 exch2_pi(1,3,11)=1
846 exch2_pi(2,3,11)=0
847 exch2_pj(1,3,11)=0
848 exch2_pj(2,3,11)=1
849 exch2_oi(3,11)=0
850 exch2_oi_f(3,11)=0
851 exch2_oj(3,11)=0
852 exch2_oj_f(3,11)=0
853 exch2_itlo_c(3,11)=0
854 exch2_ithi_c(3,11)=0
855 exch2_jtlo_c(3,11)=0
856 exch2_jthi_c(3,11)=91
857 exch2_opposingSend_record(3,11)=4
858
859 exch2_neighbourId(4,11)=10
860 exch2_pi(1,4,11)=1
861 exch2_pi(2,4,11)=0
862 exch2_pj(1,4,11)=0
863 exch2_pj(2,4,11)=1
864 exch2_oi(4,11)=0
865 exch2_oi_f(4,11)=0
866 exch2_oj(4,11)=0
867 exch2_oj_f(4,11)=0
868 exch2_itlo_c(4,11)=91
869 exch2_ithi_c(4,11)=91
870 exch2_jtlo_c(4,11)=0
871 exch2_jthi_c(4,11)=91
872 exch2_opposingSend_record(4,11)=3
873 RETURN
874 END
875
876 SUBROUTINE W2_E2SETUP_12
877 C Topology for tile 12
878 #include "W2_EXCH2_TOPOLOGY.h"
879 exch2_tnx(12)=90
880 exch2_tny(12)=90
881 exch2_tbasex(12)=180
882 exch2_tbasey(12)=0
883 exch2_txglobalo(12)=451
884 exch2_tyglobalo(12)=1
885 exch2_isWedge(12)=0
886 exch2_isNedge(12)=1
887 exch2_isEedge(12)=0
888 exch2_isSedge(12)=1
889 exch2_myFace(12)=4
890 exch2_mydnx(12)=360
891 exch2_mydny(12)=90
892 exch2_nNeighbours(12)=4
893
894 exch2_neighbourId(1,12)=16
895 exch2_pi(1,1,12)=1
896 exch2_pi(2,1,12)=0
897 exch2_pj(1,1,12)=0
898 exch2_pj(2,1,12)=1
899 exch2_oi(1,12)=0
900 exch2_oi_f(1,12)=0
901 exch2_oj(1,12)=90
902 exch2_oj_f(1,12)=90
903 exch2_itlo_c(1,12)=0
904 exch2_ithi_c(1,12)=91
905 exch2_jtlo_c(1,12)=0
906 exch2_jthi_c(1,12)=0
907 exch2_opposingSend_record(1,12)=2
908
909 exch2_neighbourId(2,12)=6
910 exch2_pi(1,2,12)=0
911 exch2_pi(2,2,12)=-1
912 exch2_pj(1,2,12)=1
913 exch2_pj(2,2,12)=0
914 exch2_oi(2,12)=361
915 exch2_oi_f(2,12)=362
916 exch2_oj(2,12)=-90
917 exch2_oj_f(2,12)=-90
918 exch2_itlo_c(2,12)=91
919 exch2_ithi_c(2,12)=91
920 exch2_jtlo_c(2,12)=0
921 exch2_jthi_c(2,12)=91
922 exch2_opposingSend_record(2,12)=3
923
924 exch2_neighbourId(3,12)=13
925 exch2_pi(1,3,12)=1
926 exch2_pi(2,3,12)=0
927 exch2_pj(1,3,12)=0
928 exch2_pj(2,3,12)=1
929 exch2_oi(3,12)=0
930 exch2_oi_f(3,12)=0
931 exch2_oj(3,12)=0
932 exch2_oj_f(3,12)=0
933 exch2_itlo_c(3,12)=0
934 exch2_ithi_c(3,12)=0
935 exch2_jtlo_c(3,12)=0
936 exch2_jthi_c(3,12)=91
937 exch2_opposingSend_record(3,12)=3
938
939 exch2_neighbourId(4,12)=11
940 exch2_pi(1,4,12)=1
941 exch2_pi(2,4,12)=0
942 exch2_pj(1,4,12)=0
943 exch2_pj(2,4,12)=1
944 exch2_oi(4,12)=0
945 exch2_oi_f(4,12)=0
946 exch2_oj(4,12)=0
947 exch2_oj_f(4,12)=0
948 exch2_itlo_c(4,12)=91
949 exch2_ithi_c(4,12)=91
950 exch2_jtlo_c(4,12)=0
951 exch2_jthi_c(4,12)=91
952 exch2_opposingSend_record(4,12)=3
953 RETURN
954 END
955
956 SUBROUTINE W2_E2SETUP_13
957 C Topology for tile 13
958 #include "W2_EXCH2_TOPOLOGY.h"
959 exch2_tnx(13)=90
960 exch2_tny(13)=90
961 exch2_tbasex(13)=270
962 exch2_tbasey(13)=0
963 exch2_txglobalo(13)=541
964 exch2_tyglobalo(13)=1
965 exch2_isWedge(13)=0
966 exch2_isNedge(13)=1
967 exch2_isEedge(13)=1
968 exch2_isSedge(13)=1
969 exch2_myFace(13)=4
970 exch2_mydnx(13)=360
971 exch2_mydny(13)=90
972 exch2_nNeighbours(13)=3
973
974 exch2_neighbourId(1,13)=17
975 exch2_pi(1,1,13)=1
976 exch2_pi(2,1,13)=0
977 exch2_pj(1,1,13)=0
978 exch2_pj(2,1,13)=1
979 exch2_oi(1,13)=0
980 exch2_oi_f(1,13)=0
981 exch2_oj(1,13)=90
982 exch2_oj_f(1,13)=90
983 exch2_itlo_c(1,13)=0
984 exch2_ithi_c(1,13)=91
985 exch2_jtlo_c(1,13)=0
986 exch2_jthi_c(1,13)=0
987 exch2_opposingSend_record(1,13)=2
988
989 exch2_neighbourId(2,13)=5
990 exch2_pi(1,2,13)=0
991 exch2_pi(2,2,13)=-1
992 exch2_pj(1,2,13)=1
993 exch2_pj(2,2,13)=0
994 exch2_oi(2,13)=361
995 exch2_oi_f(2,13)=362
996 exch2_oj(2,13)=-90
997 exch2_oj_f(2,13)=-90
998 exch2_itlo_c(2,13)=91
999 exch2_ithi_c(2,13)=91
1000 exch2_jtlo_c(2,13)=0
1001 exch2_jthi_c(2,13)=91
1002 exch2_opposingSend_record(2,13)=2
1003
1004 exch2_neighbourId(3,13)=12
1005 exch2_pi(1,3,13)=1
1006 exch2_pi(2,3,13)=0
1007 exch2_pj(1,3,13)=0
1008 exch2_pj(2,3,13)=1
1009 exch2_oi(3,13)=0
1010 exch2_oi_f(3,13)=0
1011 exch2_oj(3,13)=0
1012 exch2_oj_f(3,13)=0
1013 exch2_itlo_c(3,13)=91
1014 exch2_ithi_c(3,13)=91
1015 exch2_jtlo_c(3,13)=0
1016 exch2_jthi_c(3,13)=91
1017 exch2_opposingSend_record(3,13)=3
1018 RETURN
1019 END
1020
1021 SUBROUTINE W2_E2SETUP_14
1022 C Topology for tile 14
1023 #include "W2_EXCH2_TOPOLOGY.h"
1024 exch2_tnx(14)=90
1025 exch2_tny(14)=90
1026 exch2_tbasex(14)=0
1027 exch2_tbasey(14)=0
1028 exch2_txglobalo(14)=631
1029 exch2_tyglobalo(14)=1
1030 exch2_isWedge(14)=1
1031 exch2_isNedge(14)=1
1032 exch2_isEedge(14)=0
1033 exch2_isSedge(14)=1
1034 exch2_myFace(14)=5
1035 exch2_mydnx(14)=360
1036 exch2_mydny(14)=90
1037 exch2_nNeighbours(14)=4
1038
1039 exch2_neighbourId(1,14)=4
1040 exch2_pi(1,1,14)=0
1041 exch2_pi(2,1,14)=-1
1042 exch2_pj(1,1,14)=1
1043 exch2_pj(2,1,14)=0
1044 exch2_oi(1,14)=361
1045 exch2_oi_f(1,14)=362
1046 exch2_oj(1,14)=90
1047 exch2_oj_f(1,14)=90
1048 exch2_itlo_c(1,14)=0
1049 exch2_ithi_c(1,14)=0
1050 exch2_jtlo_c(1,14)=0
1051 exch2_jthi_c(1,14)=91
1052 exch2_opposingSend_record(1,14)=4
1053
1054 exch2_neighbourId(2,14)=10
1055 exch2_pi(1,2,14)=1
1056 exch2_pi(2,2,14)=0
1057 exch2_pj(1,2,14)=0
1058 exch2_pj(2,2,14)=1
1059 exch2_oi(2,14)=0
1060 exch2_oi_f(2,14)=0
1061 exch2_oj(2,14)=-90
1062 exch2_oj_f(2,14)=-90
1063 exch2_itlo_c(2,14)=0
1064 exch2_ithi_c(2,14)=91
1065 exch2_jtlo_c(2,14)=91
1066 exch2_jthi_c(2,14)=91
1067 exch2_opposingSend_record(2,14)=1
1068
1069 exch2_neighbourId(3,14)=15
1070 exch2_pi(1,3,14)=1
1071 exch2_pi(2,3,14)=0
1072 exch2_pj(1,3,14)=0
1073 exch2_pj(2,3,14)=1
1074 exch2_oi(3,14)=0
1075 exch2_oi_f(3,14)=0
1076 exch2_oj(3,14)=0
1077 exch2_oj_f(3,14)=0
1078 exch2_itlo_c(3,14)=0
1079 exch2_ithi_c(3,14)=0
1080 exch2_jtlo_c(3,14)=0
1081 exch2_jthi_c(3,14)=91
1082 exch2_opposingSend_record(3,14)=4
1083
1084 exch2_neighbourId(4,14)=9
1085 exch2_pi(1,4,14)=0
1086 exch2_pi(2,4,14)=1
1087 exch2_pj(1,4,14)=-1
1088 exch2_pj(2,4,14)=0
1089 exch2_oi(4,14)=-90
1090 exch2_oi_f(4,14)=-90
1091 exch2_oj(4,14)=91
1092 exch2_oj_f(4,14)=92
1093 exch2_itlo_c(4,14)=0
1094 exch2_ithi_c(4,14)=91
1095 exch2_jtlo_c(4,14)=91
1096 exch2_jthi_c(4,14)=91
1097 exch2_opposingSend_record(4,14)=1
1098 RETURN
1099 END
1100
1101 SUBROUTINE W2_E2SETUP_15
1102 C Topology for tile 15
1103 #include "W2_EXCH2_TOPOLOGY.h"
1104 exch2_tnx(15)=90
1105 exch2_tny(15)=90
1106 exch2_tbasex(15)=90
1107 exch2_tbasey(15)=0
1108 exch2_txglobalo(15)=721
1109 exch2_tyglobalo(15)=1
1110 exch2_isWedge(15)=0
1111 exch2_isNedge(15)=1
1112 exch2_isEedge(15)=0
1113 exch2_isSedge(15)=1
1114 exch2_myFace(15)=5
1115 exch2_mydnx(15)=360
1116 exch2_mydny(15)=90
1117 exch2_nNeighbours(15)=4
1118
1119 exch2_neighbourId(1,15)=3
1120 exch2_pi(1,1,15)=0
1121 exch2_pi(2,1,15)=-1
1122 exch2_pj(1,1,15)=1
1123 exch2_pj(2,1,15)=0
1124 exch2_oi(1,15)=361
1125 exch2_oi_f(1,15)=362
1126 exch2_oj(1,15)=90
1127 exch2_oj_f(1,15)=90
1128 exch2_itlo_c(1,15)=0
1129 exch2_ithi_c(1,15)=0
1130 exch2_jtlo_c(1,15)=0
1131 exch2_jthi_c(1,15)=91
1132 exch2_opposingSend_record(1,15)=4
1133
1134 exch2_neighbourId(2,15)=11
1135 exch2_pi(1,2,15)=1
1136 exch2_pi(2,2,15)=0
1137 exch2_pj(1,2,15)=0
1138 exch2_pj(2,2,15)=1
1139 exch2_oi(2,15)=0
1140 exch2_oi_f(2,15)=0
1141 exch2_oj(2,15)=-90
1142 exch2_oj_f(2,15)=-90
1143 exch2_itlo_c(2,15)=0
1144 exch2_ithi_c(2,15)=91
1145 exch2_jtlo_c(2,15)=91
1146 exch2_jthi_c(2,15)=91
1147 exch2_opposingSend_record(2,15)=1
1148
1149 exch2_neighbourId(3,15)=16
1150 exch2_pi(1,3,15)=1
1151 exch2_pi(2,3,15)=0
1152 exch2_pj(1,3,15)=0
1153 exch2_pj(2,3,15)=1
1154 exch2_oi(3,15)=0
1155 exch2_oi_f(3,15)=0
1156 exch2_oj(3,15)=0
1157 exch2_oj_f(3,15)=0
1158 exch2_itlo_c(3,15)=0
1159 exch2_ithi_c(3,15)=0
1160 exch2_jtlo_c(3,15)=0
1161 exch2_jthi_c(3,15)=91
1162 exch2_opposingSend_record(3,15)=4
1163
1164 exch2_neighbourId(4,15)=14
1165 exch2_pi(1,4,15)=1
1166 exch2_pi(2,4,15)=0
1167 exch2_pj(1,4,15)=0
1168 exch2_pj(2,4,15)=1
1169 exch2_oi(4,15)=0
1170 exch2_oi_f(4,15)=0
1171 exch2_oj(4,15)=0
1172 exch2_oj_f(4,15)=0
1173 exch2_itlo_c(4,15)=91
1174 exch2_ithi_c(4,15)=91
1175 exch2_jtlo_c(4,15)=0
1176 exch2_jthi_c(4,15)=91
1177 exch2_opposingSend_record(4,15)=3
1178 RETURN
1179 END
1180
1181 SUBROUTINE W2_E2SETUP_16
1182 C Topology for tile 16
1183 #include "W2_EXCH2_TOPOLOGY.h"
1184 exch2_tnx(16)=90
1185 exch2_tny(16)=90
1186 exch2_tbasex(16)=180
1187 exch2_tbasey(16)=0
1188 exch2_txglobalo(16)=811
1189 exch2_tyglobalo(16)=1
1190 exch2_isWedge(16)=0
1191 exch2_isNedge(16)=1
1192 exch2_isEedge(16)=0
1193 exch2_isSedge(16)=1
1194 exch2_myFace(16)=5
1195 exch2_mydnx(16)=360
1196 exch2_mydny(16)=90
1197 exch2_nNeighbours(16)=4
1198
1199 exch2_neighbourId(1,16)=2
1200 exch2_pi(1,1,16)=0
1201 exch2_pi(2,1,16)=-1
1202 exch2_pj(1,1,16)=1
1203 exch2_pj(2,1,16)=0
1204 exch2_oi(1,16)=361
1205 exch2_oi_f(1,16)=362
1206 exch2_oj(1,16)=90
1207 exch2_oj_f(1,16)=90
1208 exch2_itlo_c(1,16)=0
1209 exch2_ithi_c(1,16)=0
1210 exch2_jtlo_c(1,16)=0
1211 exch2_jthi_c(1,16)=91
1212 exch2_opposingSend_record(1,16)=4
1213
1214 exch2_neighbourId(2,16)=12
1215 exch2_pi(1,2,16)=1
1216 exch2_pi(2,2,16)=0
1217 exch2_pj(1,2,16)=0
1218 exch2_pj(2,2,16)=1
1219 exch2_oi(2,16)=0
1220 exch2_oi_f(2,16)=0
1221 exch2_oj(2,16)=-90
1222 exch2_oj_f(2,16)=-90
1223 exch2_itlo_c(2,16)=0
1224 exch2_ithi_c(2,16)=91
1225 exch2_jtlo_c(2,16)=91
1226 exch2_jthi_c(2,16)=91
1227 exch2_opposingSend_record(2,16)=1
1228
1229 exch2_neighbourId(3,16)=17
1230 exch2_pi(1,3,16)=1
1231 exch2_pi(2,3,16)=0
1232 exch2_pj(1,3,16)=0
1233 exch2_pj(2,3,16)=1
1234 exch2_oi(3,16)=0
1235 exch2_oi_f(3,16)=0
1236 exch2_oj(3,16)=0
1237 exch2_oj_f(3,16)=0
1238 exch2_itlo_c(3,16)=0
1239 exch2_ithi_c(3,16)=0
1240 exch2_jtlo_c(3,16)=0
1241 exch2_jthi_c(3,16)=91
1242 exch2_opposingSend_record(3,16)=3
1243
1244 exch2_neighbourId(4,16)=15
1245 exch2_pi(1,4,16)=1
1246 exch2_pi(2,4,16)=0
1247 exch2_pj(1,4,16)=0
1248 exch2_pj(2,4,16)=1
1249 exch2_oi(4,16)=0
1250 exch2_oi_f(4,16)=0
1251 exch2_oj(4,16)=0
1252 exch2_oj_f(4,16)=0
1253 exch2_itlo_c(4,16)=91
1254 exch2_ithi_c(4,16)=91
1255 exch2_jtlo_c(4,16)=0
1256 exch2_jthi_c(4,16)=91
1257 exch2_opposingSend_record(4,16)=3
1258 RETURN
1259 END
1260
1261 SUBROUTINE W2_E2SETUP_17
1262 C Topology for tile 17
1263 #include "W2_EXCH2_TOPOLOGY.h"
1264 exch2_tnx(17)=90
1265 exch2_tny(17)=90
1266 exch2_tbasex(17)=270
1267 exch2_tbasey(17)=0
1268 exch2_txglobalo(17)=901
1269 exch2_tyglobalo(17)=1
1270 exch2_isWedge(17)=0
1271 exch2_isNedge(17)=1
1272 exch2_isEedge(17)=1
1273 exch2_isSedge(17)=1
1274 exch2_myFace(17)=5
1275 exch2_mydnx(17)=360
1276 exch2_mydny(17)=90
1277 exch2_nNeighbours(17)=3
1278
1279 exch2_neighbourId(1,17)=1
1280 exch2_pi(1,1,17)=0
1281 exch2_pi(2,1,17)=-1
1282 exch2_pj(1,1,17)=1
1283 exch2_pj(2,1,17)=0
1284 exch2_oi(1,17)=361
1285 exch2_oi_f(1,17)=362
1286 exch2_oj(1,17)=90
1287 exch2_oj_f(1,17)=90
1288 exch2_itlo_c(1,17)=0
1289 exch2_ithi_c(1,17)=0
1290 exch2_jtlo_c(1,17)=0
1291 exch2_jthi_c(1,17)=91
1292 exch2_opposingSend_record(1,17)=3
1293
1294 exch2_neighbourId(2,17)=13
1295 exch2_pi(1,2,17)=1
1296 exch2_pi(2,2,17)=0
1297 exch2_pj(1,2,17)=0
1298 exch2_pj(2,2,17)=1
1299 exch2_oi(2,17)=0
1300 exch2_oi_f(2,17)=0
1301 exch2_oj(2,17)=-90
1302 exch2_oj_f(2,17)=-90
1303 exch2_itlo_c(2,17)=0
1304 exch2_ithi_c(2,17)=91
1305 exch2_jtlo_c(2,17)=91
1306 exch2_jthi_c(2,17)=91
1307 exch2_opposingSend_record(2,17)=1
1308
1309 exch2_neighbourId(3,17)=16
1310 exch2_pi(1,3,17)=1
1311 exch2_pi(2,3,17)=0
1312 exch2_pj(1,3,17)=0
1313 exch2_pj(2,3,17)=1
1314 exch2_oi(3,17)=0
1315 exch2_oi_f(3,17)=0
1316 exch2_oj(3,17)=0
1317 exch2_oj_f(3,17)=0
1318 exch2_itlo_c(3,17)=91
1319 exch2_ithi_c(3,17)=91
1320 exch2_jtlo_c(3,17)=0
1321 exch2_jthi_c(3,17)=91
1322 exch2_opposingSend_record(3,17)=3
1323 RETURN
1324 END
1325
  ViewVC Help
Powered by ViewVC 1.1.22