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

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

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

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