/[MITgcm]/MITgcm/verification/global_ocean.cs32x15/code_alt/code.12t_32x16/w2_e2setup.F
ViewVC logotype

Contents of /MITgcm/verification/global_ocean.cs32x15/code_alt/code.12t_32x16/w2_e2setup.F

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


Revision 1.2 - (show annotations) (download)
Fri Aug 1 21:27:45 2008 UTC (13 years, 11 months ago) by jmc
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +0 -0 lines
FILE REMOVED
updated files have been moved to utils/exch2/code-mods

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 RETURN
20 END
21 SUBROUTINE W2_E2SETUP_1
22 C Topology for tile 1
23 #include "W2_EXCH2_TOPOLOGY.h"
24 exch2_tnx(1)=32
25 exch2_tny(1)=16
26 exch2_tbasex(1)=0
27 exch2_tbasey(1)=0
28 exch2_txglobalo(1)=1
29 exch2_tyglobalo(1)=1
30 exch2_isWedge(1)=1
31 exch2_isNedge(1)=0
32 exch2_isEedge(1)=1
33 exch2_isSedge(1)=1
34 exch2_myFace(1)=1
35 exch2_mydnx(1)=32
36 exch2_mydny(1)=32
37 exch2_nNeighbours(1)=4
38
39 exch2_neighbourId(1,1)=2
40 exch2_pi(1,1,1)=1
41 exch2_pi(2,1,1)=0
42 exch2_pj(1,1,1)=0
43 exch2_pj(2,1,1)=1
44 exch2_oi(1,1)=0
45 exch2_oi_f(1,1)=0
46 exch2_oj(1,1)=0
47 exch2_oj_f(1,1)=0
48 exch2_itlo_c(1,1)=0
49 exch2_ithi_c(1,1)=33
50 exch2_jtlo_c(1,1)=0
51 exch2_jthi_c(1,1)=0
52 exch2_opposingSend_record(1,1)=3
53
54 exch2_neighbourId(2,1)=12
55 exch2_pi(1,2,1)=1
56 exch2_pi(2,2,1)=0
57 exch2_pj(1,2,1)=0
58 exch2_pj(2,2,1)=1
59 exch2_oi(2,1)=0
60 exch2_oi_f(2,1)=0
61 exch2_oj(2,1)=-32
62 exch2_oj_f(2,1)=-32
63 exch2_itlo_c(2,1)=0
64 exch2_ithi_c(2,1)=33
65 exch2_jtlo_c(2,1)=17
66 exch2_jthi_c(2,1)=17
67 exch2_opposingSend_record(2,1)=1
68
69 exch2_neighbourId(3,1)=3
70 exch2_pi(1,3,1)=1
71 exch2_pi(2,3,1)=0
72 exch2_pj(1,3,1)=0
73 exch2_pj(2,3,1)=1
74 exch2_oi(3,1)=32
75 exch2_oi_f(3,1)=32
76 exch2_oj(3,1)=0
77 exch2_oj_f(3,1)=0
78 exch2_itlo_c(3,1)=0
79 exch2_ithi_c(3,1)=0
80 exch2_jtlo_c(3,1)=0
81 exch2_jthi_c(3,1)=17
82 exch2_opposingSend_record(3,1)=5
83
84 exch2_neighbourId(4,1)=10
85 exch2_pi(1,4,1)=0
86 exch2_pi(2,4,1)=1
87 exch2_pj(1,4,1)=-1
88 exch2_pj(2,4,1)=0
89 exch2_oi(4,1)=-32
90 exch2_oi_f(4,1)=-32
91 exch2_oj(4,1)=33
92 exch2_oj_f(4,1)=34
93 exch2_itlo_c(4,1)=16
94 exch2_ithi_c(4,1)=33
95 exch2_jtlo_c(4,1)=17
96 exch2_jthi_c(4,1)=17
97 exch2_opposingSend_record(4,1)=1
98 RETURN
99 END
100
101 SUBROUTINE W2_E2SETUP_2
102 C Topology for tile 2
103 #include "W2_EXCH2_TOPOLOGY.h"
104 exch2_tnx(2)=32
105 exch2_tny(2)=16
106 exch2_tbasex(2)=0
107 exch2_tbasey(2)=16
108 exch2_txglobalo(2)=1
109 exch2_tyglobalo(2)=17
110 exch2_isWedge(2)=1
111 exch2_isNedge(2)=1
112 exch2_isEedge(2)=1
113 exch2_isSedge(2)=0
114 exch2_myFace(2)=1
115 exch2_mydnx(2)=32
116 exch2_mydny(2)=32
117 exch2_nNeighbours(2)=5
118
119 exch2_neighbourId(1,2)=5
120 exch2_pi(1,1,2)=0
121 exch2_pi(2,1,2)=-1
122 exch2_pj(1,1,2)=1
123 exch2_pj(2,1,2)=0
124 exch2_oi(1,2)=33
125 exch2_oi_f(1,2)=34
126 exch2_oj(1,2)=32
127 exch2_oj_f(1,2)=32
128 exch2_itlo_c(1,2)=0
129 exch2_ithi_c(1,2)=0
130 exch2_jtlo_c(1,2)=0
131 exch2_jthi_c(1,2)=17
132 exch2_opposingSend_record(1,2)=4
133
134 exch2_neighbourId(2,2)=6
135 exch2_pi(1,2,2)=0
136 exch2_pi(2,2,2)=-1
137 exch2_pj(1,2,2)=1
138 exch2_pj(2,2,2)=0
139 exch2_oi(2,2)=33
140 exch2_oi_f(2,2)=34
141 exch2_oj(2,2)=32
142 exch2_oj_f(2,2)=32
143 exch2_itlo_c(2,2)=0
144 exch2_ithi_c(2,2)=0
145 exch2_jtlo_c(2,2)=0
146 exch2_jthi_c(2,2)=17
147 exch2_opposingSend_record(2,2)=5
148
149 exch2_neighbourId(3,2)=1
150 exch2_pi(1,3,2)=1
151 exch2_pi(2,3,2)=0
152 exch2_pj(1,3,2)=0
153 exch2_pj(2,3,2)=1
154 exch2_oi(3,2)=0
155 exch2_oi_f(3,2)=0
156 exch2_oj(3,2)=0
157 exch2_oj_f(3,2)=0
158 exch2_itlo_c(3,2)=1
159 exch2_ithi_c(3,2)=32
160 exch2_jtlo_c(3,2)=17
161 exch2_jthi_c(3,2)=17
162 exch2_opposingSend_record(3,2)=1
163
164 exch2_neighbourId(4,2)=4
165 exch2_pi(1,4,2)=1
166 exch2_pi(2,4,2)=0
167 exch2_pj(1,4,2)=0
168 exch2_pj(2,4,2)=1
169 exch2_oi(4,2)=32
170 exch2_oi_f(4,2)=32
171 exch2_oj(4,2)=0
172 exch2_oj_f(4,2)=0
173 exch2_itlo_c(4,2)=0
174 exch2_ithi_c(4,2)=0
175 exch2_jtlo_c(4,2)=0
176 exch2_jthi_c(4,2)=17
177 exch2_opposingSend_record(4,2)=4
178
179 exch2_neighbourId(5,2)=10
180 exch2_pi(1,5,2)=0
181 exch2_pi(2,5,2)=1
182 exch2_pj(1,5,2)=-1
183 exch2_pj(2,5,2)=0
184 exch2_oi(5,2)=-32
185 exch2_oi_f(5,2)=-32
186 exch2_oj(5,2)=33
187 exch2_oj_f(5,2)=34
188 exch2_itlo_c(5,2)=0
189 exch2_ithi_c(5,2)=17
190 exch2_jtlo_c(5,2)=17
191 exch2_jthi_c(5,2)=17
192 exch2_opposingSend_record(5,2)=2
193 RETURN
194 END
195
196 SUBROUTINE W2_E2SETUP_3
197 C Topology for tile 3
198 #include "W2_EXCH2_TOPOLOGY.h"
199 exch2_tnx(3)=32
200 exch2_tny(3)=16
201 exch2_tbasex(3)=0
202 exch2_tbasey(3)=0
203 exch2_txglobalo(3)=33
204 exch2_tyglobalo(3)=1
205 exch2_isWedge(3)=1
206 exch2_isNedge(3)=0
207 exch2_isEedge(3)=1
208 exch2_isSedge(3)=1
209 exch2_myFace(3)=2
210 exch2_mydnx(3)=32
211 exch2_mydny(3)=32
212 exch2_nNeighbours(3)=5
213
214 exch2_neighbourId(1,3)=4
215 exch2_pi(1,1,3)=1
216 exch2_pi(2,1,3)=0
217 exch2_pj(1,1,3)=0
218 exch2_pj(2,1,3)=1
219 exch2_oi(1,3)=0
220 exch2_oi_f(1,3)=0
221 exch2_oj(1,3)=0
222 exch2_oj_f(1,3)=0
223 exch2_itlo_c(1,3)=0
224 exch2_ithi_c(1,3)=33
225 exch2_jtlo_c(1,3)=0
226 exch2_jthi_c(1,3)=0
227 exch2_opposingSend_record(1,3)=2
228
229 exch2_neighbourId(2,3)=11
230 exch2_pi(1,2,3)=0
231 exch2_pi(2,2,3)=-1
232 exch2_pj(1,2,3)=1
233 exch2_pj(2,2,3)=0
234 exch2_oi(2,3)=33
235 exch2_oi_f(2,3)=34
236 exch2_oj(2,3)=-32
237 exch2_oj_f(2,3)=-32
238 exch2_itlo_c(2,3)=33
239 exch2_ithi_c(2,3)=33
240 exch2_jtlo_c(2,3)=0
241 exch2_jthi_c(2,3)=17
242 exch2_opposingSend_record(2,3)=4
243
244 exch2_neighbourId(3,3)=12
245 exch2_pi(1,3,3)=0
246 exch2_pi(2,3,3)=-1
247 exch2_pj(1,3,3)=1
248 exch2_pj(2,3,3)=0
249 exch2_oi(3,3)=33
250 exch2_oi_f(3,3)=34
251 exch2_oj(3,3)=-32
252 exch2_oj_f(3,3)=-32
253 exch2_itlo_c(3,3)=33
254 exch2_ithi_c(3,3)=33
255 exch2_jtlo_c(3,3)=0
256 exch2_jthi_c(3,3)=17
257 exch2_opposingSend_record(3,3)=3
258
259 exch2_neighbourId(4,3)=7
260 exch2_pi(1,4,3)=0
261 exch2_pi(2,4,3)=1
262 exch2_pj(1,4,3)=-1
263 exch2_pj(2,4,3)=0
264 exch2_oi(4,3)=32
265 exch2_oi_f(4,3)=32
266 exch2_oj(4,3)=33
267 exch2_oj_f(4,3)=34
268 exch2_itlo_c(4,3)=16
269 exch2_ithi_c(4,3)=33
270 exch2_jtlo_c(4,3)=0
271 exch2_jthi_c(4,3)=0
272 exch2_opposingSend_record(4,3)=2
273
274 exch2_neighbourId(5,3)=1
275 exch2_pi(1,5,3)=1
276 exch2_pi(2,5,3)=0
277 exch2_pj(1,5,3)=0
278 exch2_pj(2,5,3)=1
279 exch2_oi(5,3)=-32
280 exch2_oi_f(5,3)=-32
281 exch2_oj(5,3)=0
282 exch2_oj_f(5,3)=0
283 exch2_itlo_c(5,3)=33
284 exch2_ithi_c(5,3)=33
285 exch2_jtlo_c(5,3)=0
286 exch2_jthi_c(5,3)=17
287 exch2_opposingSend_record(5,3)=3
288 RETURN
289 END
290
291 SUBROUTINE W2_E2SETUP_4
292 C Topology for tile 4
293 #include "W2_EXCH2_TOPOLOGY.h"
294 exch2_tnx(4)=32
295 exch2_tny(4)=16
296 exch2_tbasex(4)=0
297 exch2_tbasey(4)=16
298 exch2_txglobalo(4)=33
299 exch2_tyglobalo(4)=17
300 exch2_isWedge(4)=1
301 exch2_isNedge(4)=1
302 exch2_isEedge(4)=1
303 exch2_isSedge(4)=0
304 exch2_myFace(4)=2
305 exch2_mydnx(4)=32
306 exch2_mydny(4)=32
307 exch2_nNeighbours(4)=4
308
309 exch2_neighbourId(1,4)=5
310 exch2_pi(1,1,4)=1
311 exch2_pi(2,1,4)=0
312 exch2_pj(1,1,4)=0
313 exch2_pj(2,1,4)=1
314 exch2_oi(1,4)=0
315 exch2_oi_f(1,4)=0
316 exch2_oj(1,4)=32
317 exch2_oj_f(1,4)=32
318 exch2_itlo_c(1,4)=0
319 exch2_ithi_c(1,4)=33
320 exch2_jtlo_c(1,4)=0
321 exch2_jthi_c(1,4)=0
322 exch2_opposingSend_record(1,4)=2
323
324 exch2_neighbourId(2,4)=3
325 exch2_pi(1,2,4)=1
326 exch2_pi(2,2,4)=0
327 exch2_pj(1,2,4)=0
328 exch2_pj(2,2,4)=1
329 exch2_oi(2,4)=0
330 exch2_oi_f(2,4)=0
331 exch2_oj(2,4)=0
332 exch2_oj_f(2,4)=0
333 exch2_itlo_c(2,4)=1
334 exch2_ithi_c(2,4)=32
335 exch2_jtlo_c(2,4)=17
336 exch2_jthi_c(2,4)=17
337 exch2_opposingSend_record(2,4)=1
338
339 exch2_neighbourId(3,4)=7
340 exch2_pi(1,3,4)=0
341 exch2_pi(2,3,4)=1
342 exch2_pj(1,3,4)=-1
343 exch2_pj(2,3,4)=0
344 exch2_oi(3,4)=32
345 exch2_oi_f(3,4)=32
346 exch2_oj(3,4)=33
347 exch2_oj_f(3,4)=34
348 exch2_itlo_c(3,4)=0
349 exch2_ithi_c(3,4)=17
350 exch2_jtlo_c(3,4)=0
351 exch2_jthi_c(3,4)=0
352 exch2_opposingSend_record(3,4)=3
353
354 exch2_neighbourId(4,4)=2
355 exch2_pi(1,4,4)=1
356 exch2_pi(2,4,4)=0
357 exch2_pj(1,4,4)=0
358 exch2_pj(2,4,4)=1
359 exch2_oi(4,4)=-32
360 exch2_oi_f(4,4)=-32
361 exch2_oj(4,4)=0
362 exch2_oj_f(4,4)=0
363 exch2_itlo_c(4,4)=33
364 exch2_ithi_c(4,4)=33
365 exch2_jtlo_c(4,4)=0
366 exch2_jthi_c(4,4)=17
367 exch2_opposingSend_record(4,4)=4
368 RETURN
369 END
370
371 SUBROUTINE W2_E2SETUP_5
372 C Topology for tile 5
373 #include "W2_EXCH2_TOPOLOGY.h"
374 exch2_tnx(5)=32
375 exch2_tny(5)=16
376 exch2_tbasex(5)=0
377 exch2_tbasey(5)=0
378 exch2_txglobalo(5)=65
379 exch2_tyglobalo(5)=1
380 exch2_isWedge(5)=1
381 exch2_isNedge(5)=0
382 exch2_isEedge(5)=1
383 exch2_isSedge(5)=1
384 exch2_myFace(5)=3
385 exch2_mydnx(5)=32
386 exch2_mydny(5)=32
387 exch2_nNeighbours(5)=4
388
389 exch2_neighbourId(1,5)=6
390 exch2_pi(1,1,5)=1
391 exch2_pi(2,1,5)=0
392 exch2_pj(1,1,5)=0
393 exch2_pj(2,1,5)=1
394 exch2_oi(1,5)=0
395 exch2_oi_f(1,5)=0
396 exch2_oj(1,5)=0
397 exch2_oj_f(1,5)=0
398 exch2_itlo_c(1,5)=0
399 exch2_ithi_c(1,5)=33
400 exch2_jtlo_c(1,5)=0
401 exch2_jthi_c(1,5)=0
402 exch2_opposingSend_record(1,5)=3
403
404 exch2_neighbourId(2,5)=4
405 exch2_pi(1,2,5)=1
406 exch2_pi(2,2,5)=0
407 exch2_pj(1,2,5)=0
408 exch2_pj(2,2,5)=1
409 exch2_oi(2,5)=0
410 exch2_oi_f(2,5)=0
411 exch2_oj(2,5)=-32
412 exch2_oj_f(2,5)=-32
413 exch2_itlo_c(2,5)=0
414 exch2_ithi_c(2,5)=33
415 exch2_jtlo_c(2,5)=17
416 exch2_jthi_c(2,5)=17
417 exch2_opposingSend_record(2,5)=1
418
419 exch2_neighbourId(3,5)=7
420 exch2_pi(1,3,5)=1
421 exch2_pi(2,3,5)=0
422 exch2_pj(1,3,5)=0
423 exch2_pj(2,3,5)=1
424 exch2_oi(3,5)=32
425 exch2_oi_f(3,5)=32
426 exch2_oj(3,5)=0
427 exch2_oj_f(3,5)=0
428 exch2_itlo_c(3,5)=0
429 exch2_ithi_c(3,5)=0
430 exch2_jtlo_c(3,5)=0
431 exch2_jthi_c(3,5)=17
432 exch2_opposingSend_record(3,5)=5
433
434 exch2_neighbourId(4,5)=2
435 exch2_pi(1,4,5)=0
436 exch2_pi(2,4,5)=1
437 exch2_pj(1,4,5)=-1
438 exch2_pj(2,4,5)=0
439 exch2_oi(4,5)=-32
440 exch2_oi_f(4,5)=-32
441 exch2_oj(4,5)=33
442 exch2_oj_f(4,5)=34
443 exch2_itlo_c(4,5)=16
444 exch2_ithi_c(4,5)=33
445 exch2_jtlo_c(4,5)=17
446 exch2_jthi_c(4,5)=17
447 exch2_opposingSend_record(4,5)=1
448 RETURN
449 END
450
451 SUBROUTINE W2_E2SETUP_6
452 C Topology for tile 6
453 #include "W2_EXCH2_TOPOLOGY.h"
454 exch2_tnx(6)=32
455 exch2_tny(6)=16
456 exch2_tbasex(6)=0
457 exch2_tbasey(6)=16
458 exch2_txglobalo(6)=65
459 exch2_tyglobalo(6)=17
460 exch2_isWedge(6)=1
461 exch2_isNedge(6)=1
462 exch2_isEedge(6)=1
463 exch2_isSedge(6)=0
464 exch2_myFace(6)=3
465 exch2_mydnx(6)=32
466 exch2_mydny(6)=32
467 exch2_nNeighbours(6)=5
468
469 exch2_neighbourId(1,6)=9
470 exch2_pi(1,1,6)=0
471 exch2_pi(2,1,6)=-1
472 exch2_pj(1,1,6)=1
473 exch2_pj(2,1,6)=0
474 exch2_oi(1,6)=33
475 exch2_oi_f(1,6)=34
476 exch2_oj(1,6)=32
477 exch2_oj_f(1,6)=32
478 exch2_itlo_c(1,6)=0
479 exch2_ithi_c(1,6)=0
480 exch2_jtlo_c(1,6)=0
481 exch2_jthi_c(1,6)=17
482 exch2_opposingSend_record(1,6)=4
483
484 exch2_neighbourId(2,6)=10
485 exch2_pi(1,2,6)=0
486 exch2_pi(2,2,6)=-1
487 exch2_pj(1,2,6)=1
488 exch2_pj(2,2,6)=0
489 exch2_oi(2,6)=33
490 exch2_oi_f(2,6)=34
491 exch2_oj(2,6)=32
492 exch2_oj_f(2,6)=32
493 exch2_itlo_c(2,6)=0
494 exch2_ithi_c(2,6)=0
495 exch2_jtlo_c(2,6)=0
496 exch2_jthi_c(2,6)=17
497 exch2_opposingSend_record(2,6)=5
498
499 exch2_neighbourId(3,6)=5
500 exch2_pi(1,3,6)=1
501 exch2_pi(2,3,6)=0
502 exch2_pj(1,3,6)=0
503 exch2_pj(2,3,6)=1
504 exch2_oi(3,6)=0
505 exch2_oi_f(3,6)=0
506 exch2_oj(3,6)=0
507 exch2_oj_f(3,6)=0
508 exch2_itlo_c(3,6)=1
509 exch2_ithi_c(3,6)=32
510 exch2_jtlo_c(3,6)=17
511 exch2_jthi_c(3,6)=17
512 exch2_opposingSend_record(3,6)=1
513
514 exch2_neighbourId(4,6)=8
515 exch2_pi(1,4,6)=1
516 exch2_pi(2,4,6)=0
517 exch2_pj(1,4,6)=0
518 exch2_pj(2,4,6)=1
519 exch2_oi(4,6)=32
520 exch2_oi_f(4,6)=32
521 exch2_oj(4,6)=0
522 exch2_oj_f(4,6)=0
523 exch2_itlo_c(4,6)=0
524 exch2_ithi_c(4,6)=0
525 exch2_jtlo_c(4,6)=0
526 exch2_jthi_c(4,6)=17
527 exch2_opposingSend_record(4,6)=4
528
529 exch2_neighbourId(5,6)=2
530 exch2_pi(1,5,6)=0
531 exch2_pi(2,5,6)=1
532 exch2_pj(1,5,6)=-1
533 exch2_pj(2,5,6)=0
534 exch2_oi(5,6)=-32
535 exch2_oi_f(5,6)=-32
536 exch2_oj(5,6)=33
537 exch2_oj_f(5,6)=34
538 exch2_itlo_c(5,6)=0
539 exch2_ithi_c(5,6)=17
540 exch2_jtlo_c(5,6)=17
541 exch2_jthi_c(5,6)=17
542 exch2_opposingSend_record(5,6)=2
543 RETURN
544 END
545
546 SUBROUTINE W2_E2SETUP_7
547 C Topology for tile 7
548 #include "W2_EXCH2_TOPOLOGY.h"
549 exch2_tnx(7)=32
550 exch2_tny(7)=16
551 exch2_tbasex(7)=0
552 exch2_tbasey(7)=0
553 exch2_txglobalo(7)=97
554 exch2_tyglobalo(7)=1
555 exch2_isWedge(7)=1
556 exch2_isNedge(7)=0
557 exch2_isEedge(7)=1
558 exch2_isSedge(7)=1
559 exch2_myFace(7)=4
560 exch2_mydnx(7)=32
561 exch2_mydny(7)=32
562 exch2_nNeighbours(7)=5
563
564 exch2_neighbourId(1,7)=8
565 exch2_pi(1,1,7)=1
566 exch2_pi(2,1,7)=0
567 exch2_pj(1,1,7)=0
568 exch2_pj(2,1,7)=1
569 exch2_oi(1,7)=0
570 exch2_oi_f(1,7)=0
571 exch2_oj(1,7)=0
572 exch2_oj_f(1,7)=0
573 exch2_itlo_c(1,7)=0
574 exch2_ithi_c(1,7)=33
575 exch2_jtlo_c(1,7)=0
576 exch2_jthi_c(1,7)=0
577 exch2_opposingSend_record(1,7)=2
578
579 exch2_neighbourId(2,7)=3
580 exch2_pi(1,2,7)=0
581 exch2_pi(2,2,7)=-1
582 exch2_pj(1,2,7)=1
583 exch2_pj(2,2,7)=0
584 exch2_oi(2,7)=33
585 exch2_oi_f(2,7)=34
586 exch2_oj(2,7)=-32
587 exch2_oj_f(2,7)=-32
588 exch2_itlo_c(2,7)=33
589 exch2_ithi_c(2,7)=33
590 exch2_jtlo_c(2,7)=0
591 exch2_jthi_c(2,7)=17
592 exch2_opposingSend_record(2,7)=4
593
594 exch2_neighbourId(3,7)=4
595 exch2_pi(1,3,7)=0
596 exch2_pi(2,3,7)=-1
597 exch2_pj(1,3,7)=1
598 exch2_pj(2,3,7)=0
599 exch2_oi(3,7)=33
600 exch2_oi_f(3,7)=34
601 exch2_oj(3,7)=-32
602 exch2_oj_f(3,7)=-32
603 exch2_itlo_c(3,7)=33
604 exch2_ithi_c(3,7)=33
605 exch2_jtlo_c(3,7)=0
606 exch2_jthi_c(3,7)=17
607 exch2_opposingSend_record(3,7)=3
608
609 exch2_neighbourId(4,7)=11
610 exch2_pi(1,4,7)=0
611 exch2_pi(2,4,7)=1
612 exch2_pj(1,4,7)=-1
613 exch2_pj(2,4,7)=0
614 exch2_oi(4,7)=32
615 exch2_oi_f(4,7)=32
616 exch2_oj(4,7)=33
617 exch2_oj_f(4,7)=34
618 exch2_itlo_c(4,7)=16
619 exch2_ithi_c(4,7)=33
620 exch2_jtlo_c(4,7)=0
621 exch2_jthi_c(4,7)=0
622 exch2_opposingSend_record(4,7)=2
623
624 exch2_neighbourId(5,7)=5
625 exch2_pi(1,5,7)=1
626 exch2_pi(2,5,7)=0
627 exch2_pj(1,5,7)=0
628 exch2_pj(2,5,7)=1
629 exch2_oi(5,7)=-32
630 exch2_oi_f(5,7)=-32
631 exch2_oj(5,7)=0
632 exch2_oj_f(5,7)=0
633 exch2_itlo_c(5,7)=33
634 exch2_ithi_c(5,7)=33
635 exch2_jtlo_c(5,7)=0
636 exch2_jthi_c(5,7)=17
637 exch2_opposingSend_record(5,7)=3
638 RETURN
639 END
640
641 SUBROUTINE W2_E2SETUP_8
642 C Topology for tile 8
643 #include "W2_EXCH2_TOPOLOGY.h"
644 exch2_tnx(8)=32
645 exch2_tny(8)=16
646 exch2_tbasex(8)=0
647 exch2_tbasey(8)=16
648 exch2_txglobalo(8)=97
649 exch2_tyglobalo(8)=17
650 exch2_isWedge(8)=1
651 exch2_isNedge(8)=1
652 exch2_isEedge(8)=1
653 exch2_isSedge(8)=0
654 exch2_myFace(8)=4
655 exch2_mydnx(8)=32
656 exch2_mydny(8)=32
657 exch2_nNeighbours(8)=4
658
659 exch2_neighbourId(1,8)=9
660 exch2_pi(1,1,8)=1
661 exch2_pi(2,1,8)=0
662 exch2_pj(1,1,8)=0
663 exch2_pj(2,1,8)=1
664 exch2_oi(1,8)=0
665 exch2_oi_f(1,8)=0
666 exch2_oj(1,8)=32
667 exch2_oj_f(1,8)=32
668 exch2_itlo_c(1,8)=0
669 exch2_ithi_c(1,8)=33
670 exch2_jtlo_c(1,8)=0
671 exch2_jthi_c(1,8)=0
672 exch2_opposingSend_record(1,8)=2
673
674 exch2_neighbourId(2,8)=7
675 exch2_pi(1,2,8)=1
676 exch2_pi(2,2,8)=0
677 exch2_pj(1,2,8)=0
678 exch2_pj(2,2,8)=1
679 exch2_oi(2,8)=0
680 exch2_oi_f(2,8)=0
681 exch2_oj(2,8)=0
682 exch2_oj_f(2,8)=0
683 exch2_itlo_c(2,8)=1
684 exch2_ithi_c(2,8)=32
685 exch2_jtlo_c(2,8)=17
686 exch2_jthi_c(2,8)=17
687 exch2_opposingSend_record(2,8)=1
688
689 exch2_neighbourId(3,8)=11
690 exch2_pi(1,3,8)=0
691 exch2_pi(2,3,8)=1
692 exch2_pj(1,3,8)=-1
693 exch2_pj(2,3,8)=0
694 exch2_oi(3,8)=32
695 exch2_oi_f(3,8)=32
696 exch2_oj(3,8)=33
697 exch2_oj_f(3,8)=34
698 exch2_itlo_c(3,8)=0
699 exch2_ithi_c(3,8)=17
700 exch2_jtlo_c(3,8)=0
701 exch2_jthi_c(3,8)=0
702 exch2_opposingSend_record(3,8)=3
703
704 exch2_neighbourId(4,8)=6
705 exch2_pi(1,4,8)=1
706 exch2_pi(2,4,8)=0
707 exch2_pj(1,4,8)=0
708 exch2_pj(2,4,8)=1
709 exch2_oi(4,8)=-32
710 exch2_oi_f(4,8)=-32
711 exch2_oj(4,8)=0
712 exch2_oj_f(4,8)=0
713 exch2_itlo_c(4,8)=33
714 exch2_ithi_c(4,8)=33
715 exch2_jtlo_c(4,8)=0
716 exch2_jthi_c(4,8)=17
717 exch2_opposingSend_record(4,8)=4
718 RETURN
719 END
720
721 SUBROUTINE W2_E2SETUP_9
722 C Topology for tile 9
723 #include "W2_EXCH2_TOPOLOGY.h"
724 exch2_tnx(9)=32
725 exch2_tny(9)=16
726 exch2_tbasex(9)=0
727 exch2_tbasey(9)=0
728 exch2_txglobalo(9)=129
729 exch2_tyglobalo(9)=1
730 exch2_isWedge(9)=1
731 exch2_isNedge(9)=0
732 exch2_isEedge(9)=1
733 exch2_isSedge(9)=1
734 exch2_myFace(9)=5
735 exch2_mydnx(9)=32
736 exch2_mydny(9)=32
737 exch2_nNeighbours(9)=4
738
739 exch2_neighbourId(1,9)=10
740 exch2_pi(1,1,9)=1
741 exch2_pi(2,1,9)=0
742 exch2_pj(1,1,9)=0
743 exch2_pj(2,1,9)=1
744 exch2_oi(1,9)=0
745 exch2_oi_f(1,9)=0
746 exch2_oj(1,9)=0
747 exch2_oj_f(1,9)=0
748 exch2_itlo_c(1,9)=0
749 exch2_ithi_c(1,9)=33
750 exch2_jtlo_c(1,9)=0
751 exch2_jthi_c(1,9)=0
752 exch2_opposingSend_record(1,9)=3
753
754 exch2_neighbourId(2,9)=8
755 exch2_pi(1,2,9)=1
756 exch2_pi(2,2,9)=0
757 exch2_pj(1,2,9)=0
758 exch2_pj(2,2,9)=1
759 exch2_oi(2,9)=0
760 exch2_oi_f(2,9)=0
761 exch2_oj(2,9)=-32
762 exch2_oj_f(2,9)=-32
763 exch2_itlo_c(2,9)=0
764 exch2_ithi_c(2,9)=33
765 exch2_jtlo_c(2,9)=17
766 exch2_jthi_c(2,9)=17
767 exch2_opposingSend_record(2,9)=1
768
769 exch2_neighbourId(3,9)=11
770 exch2_pi(1,3,9)=1
771 exch2_pi(2,3,9)=0
772 exch2_pj(1,3,9)=0
773 exch2_pj(2,3,9)=1
774 exch2_oi(3,9)=32
775 exch2_oi_f(3,9)=32
776 exch2_oj(3,9)=0
777 exch2_oj_f(3,9)=0
778 exch2_itlo_c(3,9)=0
779 exch2_ithi_c(3,9)=0
780 exch2_jtlo_c(3,9)=0
781 exch2_jthi_c(3,9)=17
782 exch2_opposingSend_record(3,9)=5
783
784 exch2_neighbourId(4,9)=6
785 exch2_pi(1,4,9)=0
786 exch2_pi(2,4,9)=1
787 exch2_pj(1,4,9)=-1
788 exch2_pj(2,4,9)=0
789 exch2_oi(4,9)=-32
790 exch2_oi_f(4,9)=-32
791 exch2_oj(4,9)=33
792 exch2_oj_f(4,9)=34
793 exch2_itlo_c(4,9)=16
794 exch2_ithi_c(4,9)=33
795 exch2_jtlo_c(4,9)=17
796 exch2_jthi_c(4,9)=17
797 exch2_opposingSend_record(4,9)=1
798 RETURN
799 END
800
801 SUBROUTINE W2_E2SETUP_10
802 C Topology for tile 10
803 #include "W2_EXCH2_TOPOLOGY.h"
804 exch2_tnx(10)=32
805 exch2_tny(10)=16
806 exch2_tbasex(10)=0
807 exch2_tbasey(10)=16
808 exch2_txglobalo(10)=129
809 exch2_tyglobalo(10)=17
810 exch2_isWedge(10)=1
811 exch2_isNedge(10)=1
812 exch2_isEedge(10)=1
813 exch2_isSedge(10)=0
814 exch2_myFace(10)=5
815 exch2_mydnx(10)=32
816 exch2_mydny(10)=32
817 exch2_nNeighbours(10)=5
818
819 exch2_neighbourId(1,10)=1
820 exch2_pi(1,1,10)=0
821 exch2_pi(2,1,10)=-1
822 exch2_pj(1,1,10)=1
823 exch2_pj(2,1,10)=0
824 exch2_oi(1,10)=33
825 exch2_oi_f(1,10)=34
826 exch2_oj(1,10)=32
827 exch2_oj_f(1,10)=32
828 exch2_itlo_c(1,10)=0
829 exch2_ithi_c(1,10)=0
830 exch2_jtlo_c(1,10)=0
831 exch2_jthi_c(1,10)=17
832 exch2_opposingSend_record(1,10)=4
833
834 exch2_neighbourId(2,10)=2
835 exch2_pi(1,2,10)=0
836 exch2_pi(2,2,10)=-1
837 exch2_pj(1,2,10)=1
838 exch2_pj(2,2,10)=0
839 exch2_oi(2,10)=33
840 exch2_oi_f(2,10)=34
841 exch2_oj(2,10)=32
842 exch2_oj_f(2,10)=32
843 exch2_itlo_c(2,10)=0
844 exch2_ithi_c(2,10)=0
845 exch2_jtlo_c(2,10)=0
846 exch2_jthi_c(2,10)=17
847 exch2_opposingSend_record(2,10)=5
848
849 exch2_neighbourId(3,10)=9
850 exch2_pi(1,3,10)=1
851 exch2_pi(2,3,10)=0
852 exch2_pj(1,3,10)=0
853 exch2_pj(2,3,10)=1
854 exch2_oi(3,10)=0
855 exch2_oi_f(3,10)=0
856 exch2_oj(3,10)=0
857 exch2_oj_f(3,10)=0
858 exch2_itlo_c(3,10)=1
859 exch2_ithi_c(3,10)=32
860 exch2_jtlo_c(3,10)=17
861 exch2_jthi_c(3,10)=17
862 exch2_opposingSend_record(3,10)=1
863
864 exch2_neighbourId(4,10)=12
865 exch2_pi(1,4,10)=1
866 exch2_pi(2,4,10)=0
867 exch2_pj(1,4,10)=0
868 exch2_pj(2,4,10)=1
869 exch2_oi(4,10)=32
870 exch2_oi_f(4,10)=32
871 exch2_oj(4,10)=0
872 exch2_oj_f(4,10)=0
873 exch2_itlo_c(4,10)=0
874 exch2_ithi_c(4,10)=0
875 exch2_jtlo_c(4,10)=0
876 exch2_jthi_c(4,10)=17
877 exch2_opposingSend_record(4,10)=4
878
879 exch2_neighbourId(5,10)=6
880 exch2_pi(1,5,10)=0
881 exch2_pi(2,5,10)=1
882 exch2_pj(1,5,10)=-1
883 exch2_pj(2,5,10)=0
884 exch2_oi(5,10)=-32
885 exch2_oi_f(5,10)=-32
886 exch2_oj(5,10)=33
887 exch2_oj_f(5,10)=34
888 exch2_itlo_c(5,10)=0
889 exch2_ithi_c(5,10)=17
890 exch2_jtlo_c(5,10)=17
891 exch2_jthi_c(5,10)=17
892 exch2_opposingSend_record(5,10)=2
893 RETURN
894 END
895
896 SUBROUTINE W2_E2SETUP_11
897 C Topology for tile 11
898 #include "W2_EXCH2_TOPOLOGY.h"
899 exch2_tnx(11)=32
900 exch2_tny(11)=16
901 exch2_tbasex(11)=0
902 exch2_tbasey(11)=0
903 exch2_txglobalo(11)=161
904 exch2_tyglobalo(11)=1
905 exch2_isWedge(11)=1
906 exch2_isNedge(11)=0
907 exch2_isEedge(11)=1
908 exch2_isSedge(11)=1
909 exch2_myFace(11)=6
910 exch2_mydnx(11)=32
911 exch2_mydny(11)=32
912 exch2_nNeighbours(11)=5
913
914 exch2_neighbourId(1,11)=12
915 exch2_pi(1,1,11)=1
916 exch2_pi(2,1,11)=0
917 exch2_pj(1,1,11)=0
918 exch2_pj(2,1,11)=1
919 exch2_oi(1,11)=0
920 exch2_oi_f(1,11)=0
921 exch2_oj(1,11)=0
922 exch2_oj_f(1,11)=0
923 exch2_itlo_c(1,11)=0
924 exch2_ithi_c(1,11)=33
925 exch2_jtlo_c(1,11)=0
926 exch2_jthi_c(1,11)=0
927 exch2_opposingSend_record(1,11)=2
928
929 exch2_neighbourId(2,11)=7
930 exch2_pi(1,2,11)=0
931 exch2_pi(2,2,11)=-1
932 exch2_pj(1,2,11)=1
933 exch2_pj(2,2,11)=0
934 exch2_oi(2,11)=33
935 exch2_oi_f(2,11)=34
936 exch2_oj(2,11)=-32
937 exch2_oj_f(2,11)=-32
938 exch2_itlo_c(2,11)=33
939 exch2_ithi_c(2,11)=33
940 exch2_jtlo_c(2,11)=0
941 exch2_jthi_c(2,11)=17
942 exch2_opposingSend_record(2,11)=4
943
944 exch2_neighbourId(3,11)=8
945 exch2_pi(1,3,11)=0
946 exch2_pi(2,3,11)=-1
947 exch2_pj(1,3,11)=1
948 exch2_pj(2,3,11)=0
949 exch2_oi(3,11)=33
950 exch2_oi_f(3,11)=34
951 exch2_oj(3,11)=-32
952 exch2_oj_f(3,11)=-32
953 exch2_itlo_c(3,11)=33
954 exch2_ithi_c(3,11)=33
955 exch2_jtlo_c(3,11)=0
956 exch2_jthi_c(3,11)=17
957 exch2_opposingSend_record(3,11)=3
958
959 exch2_neighbourId(4,11)=3
960 exch2_pi(1,4,11)=0
961 exch2_pi(2,4,11)=1
962 exch2_pj(1,4,11)=-1
963 exch2_pj(2,4,11)=0
964 exch2_oi(4,11)=32
965 exch2_oi_f(4,11)=32
966 exch2_oj(4,11)=33
967 exch2_oj_f(4,11)=34
968 exch2_itlo_c(4,11)=16
969 exch2_ithi_c(4,11)=33
970 exch2_jtlo_c(4,11)=0
971 exch2_jthi_c(4,11)=0
972 exch2_opposingSend_record(4,11)=2
973
974 exch2_neighbourId(5,11)=9
975 exch2_pi(1,5,11)=1
976 exch2_pi(2,5,11)=0
977 exch2_pj(1,5,11)=0
978 exch2_pj(2,5,11)=1
979 exch2_oi(5,11)=-32
980 exch2_oi_f(5,11)=-32
981 exch2_oj(5,11)=0
982 exch2_oj_f(5,11)=0
983 exch2_itlo_c(5,11)=33
984 exch2_ithi_c(5,11)=33
985 exch2_jtlo_c(5,11)=0
986 exch2_jthi_c(5,11)=17
987 exch2_opposingSend_record(5,11)=3
988 RETURN
989 END
990
991 SUBROUTINE W2_E2SETUP_12
992 C Topology for tile 12
993 #include "W2_EXCH2_TOPOLOGY.h"
994 exch2_tnx(12)=32
995 exch2_tny(12)=16
996 exch2_tbasex(12)=0
997 exch2_tbasey(12)=16
998 exch2_txglobalo(12)=161
999 exch2_tyglobalo(12)=17
1000 exch2_isWedge(12)=1
1001 exch2_isNedge(12)=1
1002 exch2_isEedge(12)=1
1003 exch2_isSedge(12)=0
1004 exch2_myFace(12)=6
1005 exch2_mydnx(12)=32
1006 exch2_mydny(12)=32
1007 exch2_nNeighbours(12)=4
1008
1009 exch2_neighbourId(1,12)=1
1010 exch2_pi(1,1,12)=1
1011 exch2_pi(2,1,12)=0
1012 exch2_pj(1,1,12)=0
1013 exch2_pj(2,1,12)=1
1014 exch2_oi(1,12)=0
1015 exch2_oi_f(1,12)=0
1016 exch2_oj(1,12)=32
1017 exch2_oj_f(1,12)=32
1018 exch2_itlo_c(1,12)=0
1019 exch2_ithi_c(1,12)=33
1020 exch2_jtlo_c(1,12)=0
1021 exch2_jthi_c(1,12)=0
1022 exch2_opposingSend_record(1,12)=2
1023
1024 exch2_neighbourId(2,12)=11
1025 exch2_pi(1,2,12)=1
1026 exch2_pi(2,2,12)=0
1027 exch2_pj(1,2,12)=0
1028 exch2_pj(2,2,12)=1
1029 exch2_oi(2,12)=0
1030 exch2_oi_f(2,12)=0
1031 exch2_oj(2,12)=0
1032 exch2_oj_f(2,12)=0
1033 exch2_itlo_c(2,12)=1
1034 exch2_ithi_c(2,12)=32
1035 exch2_jtlo_c(2,12)=17
1036 exch2_jthi_c(2,12)=17
1037 exch2_opposingSend_record(2,12)=1
1038
1039 exch2_neighbourId(3,12)=3
1040 exch2_pi(1,3,12)=0
1041 exch2_pi(2,3,12)=1
1042 exch2_pj(1,3,12)=-1
1043 exch2_pj(2,3,12)=0
1044 exch2_oi(3,12)=32
1045 exch2_oi_f(3,12)=32
1046 exch2_oj(3,12)=33
1047 exch2_oj_f(3,12)=34
1048 exch2_itlo_c(3,12)=0
1049 exch2_ithi_c(3,12)=17
1050 exch2_jtlo_c(3,12)=0
1051 exch2_jthi_c(3,12)=0
1052 exch2_opposingSend_record(3,12)=3
1053
1054 exch2_neighbourId(4,12)=10
1055 exch2_pi(1,4,12)=1
1056 exch2_pi(2,4,12)=0
1057 exch2_pj(1,4,12)=0
1058 exch2_pj(2,4,12)=1
1059 exch2_oi(4,12)=-32
1060 exch2_oi_f(4,12)=-32
1061 exch2_oj(4,12)=0
1062 exch2_oj_f(4,12)=0
1063 exch2_itlo_c(4,12)=33
1064 exch2_ithi_c(4,12)=33
1065 exch2_jtlo_c(4,12)=0
1066 exch2_jthi_c(4,12)=17
1067 exch2_opposingSend_record(4,12)=4
1068 RETURN
1069 END
1070

  ViewVC Help
Powered by ViewVC 1.1.22