/[MITgcm]/MITgcm_contrib/high_res_cube/code-mods/w2_e2setup.F
ViewVC logotype

Contents of /MITgcm_contrib/high_res_cube/code-mods/w2_e2setup.F

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

Revision 1.1.1.1 - (show annotations) (download) (vendor branch)
Tue Nov 11 18:08:07 2003 UTC (21 years, 8 months ago) by cnh
Branch: initial
CVS Tags: baseline, hrcube_1, hrcube_2, checkpoint52d_pre, checkpoint52a_post
Changes since 1.1: +0 -0 lines 
Checking in work done with Dimitri on high-resolution cube gridding and parallel 
communications. 
   o code is in a contrib experiment for now so we can continue collaborating
     on it. However most code is general and will be moved into main branch once 
     it is fully hardened.
   o There are README files in the contrib root and in the subdirectories that
     explain the contents
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)=16
25 exch2_tny(1)=32
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)=1
32 exch2_isEedge(1)=0
33 exch2_isSedge(1)=1
34 exch2_myFace(1)=1
35 exch2_mydnx(1)=32
36 exch2_mydny(1)=32
37 exch2_nNeighbours(1)=5
38
39 exch2_neighbourId(1,1)=5
40 exch2_pi(1,1,1)=0
41 exch2_pi(2,1,1)=-1
42 exch2_pj(1,1,1)=1
43 exch2_pj(2,1,1)=0
44 exch2_oi(1,1)=33
45 exch2_oi_f(1,1)=34
46 exch2_oj(1,1)=32
47 exch2_oj_f(1,1)=32
48 exch2_itlo_c(1,1)=0
49 exch2_ithi_c(1,1)=0
50 exch2_jtlo_c(1,1)=16
51 exch2_jthi_c(1,1)=33
52 exch2_opposingSend_record(1,1)=4
53
54 exch2_neighbourId(2,1)=11
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)=17
65 exch2_jtlo_c(2,1)=33
66 exch2_jthi_c(2,1)=33
67 exch2_opposingSend_record(2,1)=1
68
69 exch2_neighbourId(3,1)=2
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)=0
75 exch2_oi_f(3,1)=0
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)=33
82 exch2_opposingSend_record(3,1)=4
83
84 exch2_neighbourId(4,1)=9
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)=0
94 exch2_ithi_c(4,1)=17
95 exch2_jtlo_c(4,1)=33
96 exch2_jthi_c(4,1)=33
97 exch2_opposingSend_record(4,1)=1
98
99 exch2_neighbourId(5,1)=10
100 exch2_pi(1,5,1)=0
101 exch2_pi(2,5,1)=1
102 exch2_pj(1,5,1)=-1
103 exch2_pj(2,5,1)=0
104 exch2_oi(5,1)=-32
105 exch2_oi_f(5,1)=-32
106 exch2_oj(5,1)=33
107 exch2_oj_f(5,1)=34
108 exch2_itlo_c(5,1)=0
109 exch2_ithi_c(5,1)=17
110 exch2_jtlo_c(5,1)=33
111 exch2_jthi_c(5,1)=33
112 exch2_opposingSend_record(5,1)=1
113 RETURN
114 END
115
116 SUBROUTINE W2_E2SETUP_2
117 C Topology for tile 2
118 #include "W2_EXCH2_TOPOLOGY.h"
119 exch2_tnx(2)=16
120 exch2_tny(2)=32
121 exch2_tbasex(2)=16
122 exch2_tbasey(2)=0
123 exch2_txglobalo(2)=17
124 exch2_tyglobalo(2)=1
125 exch2_isWedge(2)=0
126 exch2_isNedge(2)=1
127 exch2_isEedge(2)=1
128 exch2_isSedge(2)=1
129 exch2_myFace(2)=1
130 exch2_mydnx(2)=32
131 exch2_mydny(2)=32
132 exch2_nNeighbours(2)=4
133
134 exch2_neighbourId(1,2)=5
135 exch2_pi(1,1,2)=0
136 exch2_pi(2,1,2)=-1
137 exch2_pj(1,1,2)=1
138 exch2_pj(2,1,2)=0
139 exch2_oi(1,2)=33
140 exch2_oi_f(1,2)=34
141 exch2_oj(1,2)=32
142 exch2_oj_f(1,2)=32
143 exch2_itlo_c(1,2)=0
144 exch2_ithi_c(1,2)=0
145 exch2_jtlo_c(1,2)=0
146 exch2_jthi_c(1,2)=17
147 exch2_opposingSend_record(1,2)=5
148
149 exch2_neighbourId(2,2)=12
150 exch2_pi(1,2,2)=1
151 exch2_pi(2,2,2)=0
152 exch2_pj(1,2,2)=0
153 exch2_pj(2,2,2)=1
154 exch2_oi(2,2)=0
155 exch2_oi_f(2,2)=0
156 exch2_oj(2,2)=-32
157 exch2_oj_f(2,2)=-32
158 exch2_itlo_c(2,2)=0
159 exch2_ithi_c(2,2)=17
160 exch2_jtlo_c(2,2)=33
161 exch2_jthi_c(2,2)=33
162 exch2_opposingSend_record(2,2)=1
163
164 exch2_neighbourId(3,2)=3
165 exch2_pi(1,3,2)=1
166 exch2_pi(2,3,2)=0
167 exch2_pj(1,3,2)=0
168 exch2_pj(2,3,2)=1
169 exch2_oi(3,2)=32
170 exch2_oi_f(3,2)=32
171 exch2_oj(3,2)=0
172 exch2_oj_f(3,2)=0
173 exch2_itlo_c(3,2)=0
174 exch2_ithi_c(3,2)=0
175 exch2_jtlo_c(3,2)=0
176 exch2_jthi_c(3,2)=33
177 exch2_opposingSend_record(3,2)=4
178
179 exch2_neighbourId(4,2)=1
180 exch2_pi(1,4,2)=1
181 exch2_pi(2,4,2)=0
182 exch2_pj(1,4,2)=0
183 exch2_pj(2,4,2)=1
184 exch2_oi(4,2)=0
185 exch2_oi_f(4,2)=0
186 exch2_oj(4,2)=0
187 exch2_oj_f(4,2)=0
188 exch2_itlo_c(4,2)=17
189 exch2_ithi_c(4,2)=17
190 exch2_jtlo_c(4,2)=0
191 exch2_jthi_c(4,2)=33
192 exch2_opposingSend_record(4,2)=3
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)=16
200 exch2_tny(3)=32
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)=1
207 exch2_isEedge(3)=0
208 exch2_isSedge(3)=1
209 exch2_myFace(3)=2
210 exch2_mydnx(3)=32
211 exch2_mydny(3)=32
212 exch2_nNeighbours(3)=4
213
214 exch2_neighbourId(1,3)=5
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)=32
222 exch2_oj_f(1,3)=32
223 exch2_itlo_c(1,3)=0
224 exch2_ithi_c(1,3)=17
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)=12
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)=17
239 exch2_ithi_c(2,3)=17
240 exch2_jtlo_c(2,3)=16
241 exch2_jthi_c(2,3)=33
242 exch2_opposingSend_record(2,3)=3
243
244 exch2_neighbourId(3,3)=4
245 exch2_pi(1,3,3)=1
246 exch2_pi(2,3,3)=0
247 exch2_pj(1,3,3)=0
248 exch2_pj(2,3,3)=1
249 exch2_oi(3,3)=0
250 exch2_oi_f(3,3)=0
251 exch2_oj(3,3)=0
252 exch2_oj_f(3,3)=0
253 exch2_itlo_c(3,3)=0
254 exch2_ithi_c(3,3)=0
255 exch2_jtlo_c(3,3)=0
256 exch2_jthi_c(3,3)=33
257 exch2_opposingSend_record(3,3)=5
258
259 exch2_neighbourId(4,3)=2
260 exch2_pi(1,4,3)=1
261 exch2_pi(2,4,3)=0
262 exch2_pj(1,4,3)=0
263 exch2_pj(2,4,3)=1
264 exch2_oi(4,3)=-32
265 exch2_oi_f(4,3)=-32
266 exch2_oj(4,3)=0
267 exch2_oj_f(4,3)=0
268 exch2_itlo_c(4,3)=17
269 exch2_ithi_c(4,3)=17
270 exch2_jtlo_c(4,3)=0
271 exch2_jthi_c(4,3)=33
272 exch2_opposingSend_record(4,3)=3
273 RETURN
274 END
275
276 SUBROUTINE W2_E2SETUP_4
277 C Topology for tile 4
278 #include "W2_EXCH2_TOPOLOGY.h"
279 exch2_tnx(4)=16
280 exch2_tny(4)=32
281 exch2_tbasex(4)=16
282 exch2_tbasey(4)=0
283 exch2_txglobalo(4)=49
284 exch2_tyglobalo(4)=1
285 exch2_isWedge(4)=0
286 exch2_isNedge(4)=1
287 exch2_isEedge(4)=1
288 exch2_isSedge(4)=1
289 exch2_myFace(4)=2
290 exch2_mydnx(4)=32
291 exch2_mydny(4)=32
292 exch2_nNeighbours(4)=5
293
294 exch2_neighbourId(1,4)=6
295 exch2_pi(1,1,4)=1
296 exch2_pi(2,1,4)=0
297 exch2_pj(1,1,4)=0
298 exch2_pj(2,1,4)=1
299 exch2_oi(1,4)=0
300 exch2_oi_f(1,4)=0
301 exch2_oj(1,4)=32
302 exch2_oj_f(1,4)=32
303 exch2_itlo_c(1,4)=0
304 exch2_ithi_c(1,4)=17
305 exch2_jtlo_c(1,4)=0
306 exch2_jthi_c(1,4)=0
307 exch2_opposingSend_record(1,4)=2
308
309 exch2_neighbourId(2,4)=12
310 exch2_pi(1,2,4)=0
311 exch2_pi(2,2,4)=-1
312 exch2_pj(1,2,4)=1
313 exch2_pj(2,2,4)=0
314 exch2_oi(2,4)=33
315 exch2_oi_f(2,4)=34
316 exch2_oj(2,4)=-32
317 exch2_oj_f(2,4)=-32
318 exch2_itlo_c(2,4)=17
319 exch2_ithi_c(2,4)=17
320 exch2_jtlo_c(2,4)=0
321 exch2_jthi_c(2,4)=17
322 exch2_opposingSend_record(2,4)=4
323
324 exch2_neighbourId(3,4)=7
325 exch2_pi(1,3,4)=0
326 exch2_pi(2,3,4)=1
327 exch2_pj(1,3,4)=-1
328 exch2_pj(2,3,4)=0
329 exch2_oi(3,4)=32
330 exch2_oi_f(3,4)=32
331 exch2_oj(3,4)=33
332 exch2_oj_f(3,4)=34
333 exch2_itlo_c(3,4)=0
334 exch2_ithi_c(3,4)=17
335 exch2_jtlo_c(3,4)=0
336 exch2_jthi_c(3,4)=0
337 exch2_opposingSend_record(3,4)=2
338
339 exch2_neighbourId(4,4)=8
340 exch2_pi(1,4,4)=0
341 exch2_pi(2,4,4)=1
342 exch2_pj(1,4,4)=-1
343 exch2_pj(2,4,4)=0
344 exch2_oi(4,4)=32
345 exch2_oi_f(4,4)=32
346 exch2_oj(4,4)=33
347 exch2_oj_f(4,4)=34
348 exch2_itlo_c(4,4)=0
349 exch2_ithi_c(4,4)=17
350 exch2_jtlo_c(4,4)=0
351 exch2_jthi_c(4,4)=0
352 exch2_opposingSend_record(4,4)=2
353
354 exch2_neighbourId(5,4)=3
355 exch2_pi(1,5,4)=1
356 exch2_pi(2,5,4)=0
357 exch2_pj(1,5,4)=0
358 exch2_pj(2,5,4)=1
359 exch2_oi(5,4)=0
360 exch2_oi_f(5,4)=0
361 exch2_oj(5,4)=0
362 exch2_oj_f(5,4)=0
363 exch2_itlo_c(5,4)=17
364 exch2_ithi_c(5,4)=17
365 exch2_jtlo_c(5,4)=0
366 exch2_jthi_c(5,4)=33
367 exch2_opposingSend_record(5,4)=3
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)=16
375 exch2_tny(5)=32
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)=1
382 exch2_isEedge(5)=0
383 exch2_isSedge(5)=1
384 exch2_myFace(5)=3
385 exch2_mydnx(5)=32
386 exch2_mydny(5)=32
387 exch2_nNeighbours(5)=5
388
389 exch2_neighbourId(1,5)=9
390 exch2_pi(1,1,5)=0
391 exch2_pi(2,1,5)=-1
392 exch2_pj(1,1,5)=1
393 exch2_pj(2,1,5)=0
394 exch2_oi(1,5)=33
395 exch2_oi_f(1,5)=34
396 exch2_oj(1,5)=32
397 exch2_oj_f(1,5)=32
398 exch2_itlo_c(1,5)=0
399 exch2_ithi_c(1,5)=0
400 exch2_jtlo_c(1,5)=16
401 exch2_jthi_c(1,5)=33
402 exch2_opposingSend_record(1,5)=4
403
404 exch2_neighbourId(2,5)=3
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)=17
415 exch2_jtlo_c(2,5)=33
416 exch2_jthi_c(2,5)=33
417 exch2_opposingSend_record(2,5)=1
418
419 exch2_neighbourId(3,5)=6
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)=0
425 exch2_oi_f(3,5)=0
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)=33
432 exch2_opposingSend_record(3,5)=4
433
434 exch2_neighbourId(4,5)=1
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)=0
444 exch2_ithi_c(4,5)=17
445 exch2_jtlo_c(4,5)=33
446 exch2_jthi_c(4,5)=33
447 exch2_opposingSend_record(4,5)=1
448
449 exch2_neighbourId(5,5)=2
450 exch2_pi(1,5,5)=0
451 exch2_pi(2,5,5)=1
452 exch2_pj(1,5,5)=-1
453 exch2_pj(2,5,5)=0
454 exch2_oi(5,5)=-32
455 exch2_oi_f(5,5)=-32
456 exch2_oj(5,5)=33
457 exch2_oj_f(5,5)=34
458 exch2_itlo_c(5,5)=0
459 exch2_ithi_c(5,5)=17
460 exch2_jtlo_c(5,5)=33
461 exch2_jthi_c(5,5)=33
462 exch2_opposingSend_record(5,5)=1
463 RETURN
464 END
465
466 SUBROUTINE W2_E2SETUP_6
467 C Topology for tile 6
468 #include "W2_EXCH2_TOPOLOGY.h"
469 exch2_tnx(6)=16
470 exch2_tny(6)=32
471 exch2_tbasex(6)=16
472 exch2_tbasey(6)=0
473 exch2_txglobalo(6)=81
474 exch2_tyglobalo(6)=1
475 exch2_isWedge(6)=0
476 exch2_isNedge(6)=1
477 exch2_isEedge(6)=1
478 exch2_isSedge(6)=1
479 exch2_myFace(6)=3
480 exch2_mydnx(6)=32
481 exch2_mydny(6)=32
482 exch2_nNeighbours(6)=4
483
484 exch2_neighbourId(1,6)=9
485 exch2_pi(1,1,6)=0
486 exch2_pi(2,1,6)=-1
487 exch2_pj(1,1,6)=1
488 exch2_pj(2,1,6)=0
489 exch2_oi(1,6)=33
490 exch2_oi_f(1,6)=34
491 exch2_oj(1,6)=32
492 exch2_oj_f(1,6)=32
493 exch2_itlo_c(1,6)=0
494 exch2_ithi_c(1,6)=0
495 exch2_jtlo_c(1,6)=0
496 exch2_jthi_c(1,6)=17
497 exch2_opposingSend_record(1,6)=5
498
499 exch2_neighbourId(2,6)=4
500 exch2_pi(1,2,6)=1
501 exch2_pi(2,2,6)=0
502 exch2_pj(1,2,6)=0
503 exch2_pj(2,2,6)=1
504 exch2_oi(2,6)=0
505 exch2_oi_f(2,6)=0
506 exch2_oj(2,6)=-32
507 exch2_oj_f(2,6)=-32
508 exch2_itlo_c(2,6)=0
509 exch2_ithi_c(2,6)=17
510 exch2_jtlo_c(2,6)=33
511 exch2_jthi_c(2,6)=33
512 exch2_opposingSend_record(2,6)=1
513
514 exch2_neighbourId(3,6)=7
515 exch2_pi(1,3,6)=1
516 exch2_pi(2,3,6)=0
517 exch2_pj(1,3,6)=0
518 exch2_pj(2,3,6)=1
519 exch2_oi(3,6)=32
520 exch2_oi_f(3,6)=32
521 exch2_oj(3,6)=0
522 exch2_oj_f(3,6)=0
523 exch2_itlo_c(3,6)=0
524 exch2_ithi_c(3,6)=0
525 exch2_jtlo_c(3,6)=0
526 exch2_jthi_c(3,6)=33
527 exch2_opposingSend_record(3,6)=4
528
529 exch2_neighbourId(4,6)=5
530 exch2_pi(1,4,6)=1
531 exch2_pi(2,4,6)=0
532 exch2_pj(1,4,6)=0
533 exch2_pj(2,4,6)=1
534 exch2_oi(4,6)=0
535 exch2_oi_f(4,6)=0
536 exch2_oj(4,6)=0
537 exch2_oj_f(4,6)=0
538 exch2_itlo_c(4,6)=17
539 exch2_ithi_c(4,6)=17
540 exch2_jtlo_c(4,6)=0
541 exch2_jthi_c(4,6)=33
542 exch2_opposingSend_record(4,6)=3
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)=16
550 exch2_tny(7)=32
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)=1
557 exch2_isEedge(7)=0
558 exch2_isSedge(7)=1
559 exch2_myFace(7)=4
560 exch2_mydnx(7)=32
561 exch2_mydny(7)=32
562 exch2_nNeighbours(7)=4
563
564 exch2_neighbourId(1,7)=9
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)=32
572 exch2_oj_f(1,7)=32
573 exch2_itlo_c(1,7)=0
574 exch2_ithi_c(1,7)=17
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)=4
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)=17
589 exch2_ithi_c(2,7)=17
590 exch2_jtlo_c(2,7)=16
591 exch2_jthi_c(2,7)=33
592 exch2_opposingSend_record(2,7)=3
593
594 exch2_neighbourId(3,7)=8
595 exch2_pi(1,3,7)=1
596 exch2_pi(2,3,7)=0
597 exch2_pj(1,3,7)=0
598 exch2_pj(2,3,7)=1
599 exch2_oi(3,7)=0
600 exch2_oi_f(3,7)=0
601 exch2_oj(3,7)=0
602 exch2_oj_f(3,7)=0
603 exch2_itlo_c(3,7)=0
604 exch2_ithi_c(3,7)=0
605 exch2_jtlo_c(3,7)=0
606 exch2_jthi_c(3,7)=33
607 exch2_opposingSend_record(3,7)=5
608
609 exch2_neighbourId(4,7)=6
610 exch2_pi(1,4,7)=1
611 exch2_pi(2,4,7)=0
612 exch2_pj(1,4,7)=0
613 exch2_pj(2,4,7)=1
614 exch2_oi(4,7)=-32
615 exch2_oi_f(4,7)=-32
616 exch2_oj(4,7)=0
617 exch2_oj_f(4,7)=0
618 exch2_itlo_c(4,7)=17
619 exch2_ithi_c(4,7)=17
620 exch2_jtlo_c(4,7)=0
621 exch2_jthi_c(4,7)=33
622 exch2_opposingSend_record(4,7)=3
623 RETURN
624 END
625
626 SUBROUTINE W2_E2SETUP_8
627 C Topology for tile 8
628 #include "W2_EXCH2_TOPOLOGY.h"
629 exch2_tnx(8)=16
630 exch2_tny(8)=32
631 exch2_tbasex(8)=16
632 exch2_tbasey(8)=0
633 exch2_txglobalo(8)=113
634 exch2_tyglobalo(8)=1
635 exch2_isWedge(8)=0
636 exch2_isNedge(8)=1
637 exch2_isEedge(8)=1
638 exch2_isSedge(8)=1
639 exch2_myFace(8)=4
640 exch2_mydnx(8)=32
641 exch2_mydny(8)=32
642 exch2_nNeighbours(8)=5
643
644 exch2_neighbourId(1,8)=10
645 exch2_pi(1,1,8)=1
646 exch2_pi(2,1,8)=0
647 exch2_pj(1,1,8)=0
648 exch2_pj(2,1,8)=1
649 exch2_oi(1,8)=0
650 exch2_oi_f(1,8)=0
651 exch2_oj(1,8)=32
652 exch2_oj_f(1,8)=32
653 exch2_itlo_c(1,8)=0
654 exch2_ithi_c(1,8)=17
655 exch2_jtlo_c(1,8)=0
656 exch2_jthi_c(1,8)=0
657 exch2_opposingSend_record(1,8)=2
658
659 exch2_neighbourId(2,8)=4
660 exch2_pi(1,2,8)=0
661 exch2_pi(2,2,8)=-1
662 exch2_pj(1,2,8)=1
663 exch2_pj(2,2,8)=0
664 exch2_oi(2,8)=33
665 exch2_oi_f(2,8)=34
666 exch2_oj(2,8)=-32
667 exch2_oj_f(2,8)=-32
668 exch2_itlo_c(2,8)=17
669 exch2_ithi_c(2,8)=17
670 exch2_jtlo_c(2,8)=0
671 exch2_jthi_c(2,8)=17
672 exch2_opposingSend_record(2,8)=4
673
674 exch2_neighbourId(3,8)=11
675 exch2_pi(1,3,8)=0
676 exch2_pi(2,3,8)=1
677 exch2_pj(1,3,8)=-1
678 exch2_pj(2,3,8)=0
679 exch2_oi(3,8)=32
680 exch2_oi_f(3,8)=32
681 exch2_oj(3,8)=33
682 exch2_oj_f(3,8)=34
683 exch2_itlo_c(3,8)=0
684 exch2_ithi_c(3,8)=17
685 exch2_jtlo_c(3,8)=0
686 exch2_jthi_c(3,8)=0
687 exch2_opposingSend_record(3,8)=2
688
689 exch2_neighbourId(4,8)=12
690 exch2_pi(1,4,8)=0
691 exch2_pi(2,4,8)=1
692 exch2_pj(1,4,8)=-1
693 exch2_pj(2,4,8)=0
694 exch2_oi(4,8)=32
695 exch2_oi_f(4,8)=32
696 exch2_oj(4,8)=33
697 exch2_oj_f(4,8)=34
698 exch2_itlo_c(4,8)=0
699 exch2_ithi_c(4,8)=17
700 exch2_jtlo_c(4,8)=0
701 exch2_jthi_c(4,8)=0
702 exch2_opposingSend_record(4,8)=2
703
704 exch2_neighbourId(5,8)=7
705 exch2_pi(1,5,8)=1
706 exch2_pi(2,5,8)=0
707 exch2_pj(1,5,8)=0
708 exch2_pj(2,5,8)=1
709 exch2_oi(5,8)=0
710 exch2_oi_f(5,8)=0
711 exch2_oj(5,8)=0
712 exch2_oj_f(5,8)=0
713 exch2_itlo_c(5,8)=17
714 exch2_ithi_c(5,8)=17
715 exch2_jtlo_c(5,8)=0
716 exch2_jthi_c(5,8)=33
717 exch2_opposingSend_record(5,8)=3
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)=16
725 exch2_tny(9)=32
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)=1
732 exch2_isEedge(9)=0
733 exch2_isSedge(9)=1
734 exch2_myFace(9)=5
735 exch2_mydnx(9)=32
736 exch2_mydny(9)=32
737 exch2_nNeighbours(9)=5
738
739 exch2_neighbourId(1,9)=1
740 exch2_pi(1,1,9)=0
741 exch2_pi(2,1,9)=-1
742 exch2_pj(1,1,9)=1
743 exch2_pj(2,1,9)=0
744 exch2_oi(1,9)=33
745 exch2_oi_f(1,9)=34
746 exch2_oj(1,9)=32
747 exch2_oj_f(1,9)=32
748 exch2_itlo_c(1,9)=0
749 exch2_ithi_c(1,9)=0
750 exch2_jtlo_c(1,9)=16
751 exch2_jthi_c(1,9)=33
752 exch2_opposingSend_record(1,9)=4
753
754 exch2_neighbourId(2,9)=7
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)=17
765 exch2_jtlo_c(2,9)=33
766 exch2_jthi_c(2,9)=33
767 exch2_opposingSend_record(2,9)=1
768
769 exch2_neighbourId(3,9)=10
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)=0
775 exch2_oi_f(3,9)=0
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)=33
782 exch2_opposingSend_record(3,9)=4
783
784 exch2_neighbourId(4,9)=5
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)=0
794 exch2_ithi_c(4,9)=17
795 exch2_jtlo_c(4,9)=33
796 exch2_jthi_c(4,9)=33
797 exch2_opposingSend_record(4,9)=1
798
799 exch2_neighbourId(5,9)=6
800 exch2_pi(1,5,9)=0
801 exch2_pi(2,5,9)=1
802 exch2_pj(1,5,9)=-1
803 exch2_pj(2,5,9)=0
804 exch2_oi(5,9)=-32
805 exch2_oi_f(5,9)=-32
806 exch2_oj(5,9)=33
807 exch2_oj_f(5,9)=34
808 exch2_itlo_c(5,9)=0
809 exch2_ithi_c(5,9)=17
810 exch2_jtlo_c(5,9)=33
811 exch2_jthi_c(5,9)=33
812 exch2_opposingSend_record(5,9)=1
813 RETURN
814 END
815
816 SUBROUTINE W2_E2SETUP_10
817 C Topology for tile 10
818 #include "W2_EXCH2_TOPOLOGY.h"
819 exch2_tnx(10)=16
820 exch2_tny(10)=32
821 exch2_tbasex(10)=16
822 exch2_tbasey(10)=0
823 exch2_txglobalo(10)=145
824 exch2_tyglobalo(10)=1
825 exch2_isWedge(10)=0
826 exch2_isNedge(10)=1
827 exch2_isEedge(10)=1
828 exch2_isSedge(10)=1
829 exch2_myFace(10)=5
830 exch2_mydnx(10)=32
831 exch2_mydny(10)=32
832 exch2_nNeighbours(10)=4
833
834 exch2_neighbourId(1,10)=1
835 exch2_pi(1,1,10)=0
836 exch2_pi(2,1,10)=-1
837 exch2_pj(1,1,10)=1
838 exch2_pj(2,1,10)=0
839 exch2_oi(1,10)=33
840 exch2_oi_f(1,10)=34
841 exch2_oj(1,10)=32
842 exch2_oj_f(1,10)=32
843 exch2_itlo_c(1,10)=0
844 exch2_ithi_c(1,10)=0
845 exch2_jtlo_c(1,10)=0
846 exch2_jthi_c(1,10)=17
847 exch2_opposingSend_record(1,10)=5
848
849 exch2_neighbourId(2,10)=8
850 exch2_pi(1,2,10)=1
851 exch2_pi(2,2,10)=0
852 exch2_pj(1,2,10)=0
853 exch2_pj(2,2,10)=1
854 exch2_oi(2,10)=0
855 exch2_oi_f(2,10)=0
856 exch2_oj(2,10)=-32
857 exch2_oj_f(2,10)=-32
858 exch2_itlo_c(2,10)=0
859 exch2_ithi_c(2,10)=17
860 exch2_jtlo_c(2,10)=33
861 exch2_jthi_c(2,10)=33
862 exch2_opposingSend_record(2,10)=1
863
864 exch2_neighbourId(3,10)=11
865 exch2_pi(1,3,10)=1
866 exch2_pi(2,3,10)=0
867 exch2_pj(1,3,10)=0
868 exch2_pj(2,3,10)=1
869 exch2_oi(3,10)=32
870 exch2_oi_f(3,10)=32
871 exch2_oj(3,10)=0
872 exch2_oj_f(3,10)=0
873 exch2_itlo_c(3,10)=0
874 exch2_ithi_c(3,10)=0
875 exch2_jtlo_c(3,10)=0
876 exch2_jthi_c(3,10)=33
877 exch2_opposingSend_record(3,10)=4
878
879 exch2_neighbourId(4,10)=9
880 exch2_pi(1,4,10)=1
881 exch2_pi(2,4,10)=0
882 exch2_pj(1,4,10)=0
883 exch2_pj(2,4,10)=1
884 exch2_oi(4,10)=0
885 exch2_oi_f(4,10)=0
886 exch2_oj(4,10)=0
887 exch2_oj_f(4,10)=0
888 exch2_itlo_c(4,10)=17
889 exch2_ithi_c(4,10)=17
890 exch2_jtlo_c(4,10)=0
891 exch2_jthi_c(4,10)=33
892 exch2_opposingSend_record(4,10)=3
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)=16
900 exch2_tny(11)=32
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)=1
907 exch2_isEedge(11)=0
908 exch2_isSedge(11)=1
909 exch2_myFace(11)=6
910 exch2_mydnx(11)=32
911 exch2_mydny(11)=32
912 exch2_nNeighbours(11)=4
913
914 exch2_neighbourId(1,11)=1
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)=32
922 exch2_oj_f(1,11)=32
923 exch2_itlo_c(1,11)=0
924 exch2_ithi_c(1,11)=17
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)=8
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)=17
939 exch2_ithi_c(2,11)=17
940 exch2_jtlo_c(2,11)=16
941 exch2_jthi_c(2,11)=33
942 exch2_opposingSend_record(2,11)=3
943
944 exch2_neighbourId(3,11)=12
945 exch2_pi(1,3,11)=1
946 exch2_pi(2,3,11)=0
947 exch2_pj(1,3,11)=0
948 exch2_pj(2,3,11)=1
949 exch2_oi(3,11)=0
950 exch2_oi_f(3,11)=0
951 exch2_oj(3,11)=0
952 exch2_oj_f(3,11)=0
953 exch2_itlo_c(3,11)=0
954 exch2_ithi_c(3,11)=0
955 exch2_jtlo_c(3,11)=0
956 exch2_jthi_c(3,11)=33
957 exch2_opposingSend_record(3,11)=5
958
959 exch2_neighbourId(4,11)=10
960 exch2_pi(1,4,11)=1
961 exch2_pi(2,4,11)=0
962 exch2_pj(1,4,11)=0
963 exch2_pj(2,4,11)=1
964 exch2_oi(4,11)=-32
965 exch2_oi_f(4,11)=-32
966 exch2_oj(4,11)=0
967 exch2_oj_f(4,11)=0
968 exch2_itlo_c(4,11)=17
969 exch2_ithi_c(4,11)=17
970 exch2_jtlo_c(4,11)=0
971 exch2_jthi_c(4,11)=33
972 exch2_opposingSend_record(4,11)=3
973 RETURN
974 END
975
976 SUBROUTINE W2_E2SETUP_12
977 C Topology for tile 12
978 #include "W2_EXCH2_TOPOLOGY.h"
979 exch2_tnx(12)=16
980 exch2_tny(12)=32
981 exch2_tbasex(12)=16
982 exch2_tbasey(12)=0
983 exch2_txglobalo(12)=177
984 exch2_tyglobalo(12)=1
985 exch2_isWedge(12)=0
986 exch2_isNedge(12)=1
987 exch2_isEedge(12)=1
988 exch2_isSedge(12)=1
989 exch2_myFace(12)=6
990 exch2_mydnx(12)=32
991 exch2_mydny(12)=32
992 exch2_nNeighbours(12)=5
993
994 exch2_neighbourId(1,12)=2
995 exch2_pi(1,1,12)=1
996 exch2_pi(2,1,12)=0
997 exch2_pj(1,1,12)=0
998 exch2_pj(2,1,12)=1
999 exch2_oi(1,12)=0
1000 exch2_oi_f(1,12)=0
1001 exch2_oj(1,12)=32
1002 exch2_oj_f(1,12)=32
1003 exch2_itlo_c(1,12)=0
1004 exch2_ithi_c(1,12)=17
1005 exch2_jtlo_c(1,12)=0
1006 exch2_jthi_c(1,12)=0
1007 exch2_opposingSend_record(1,12)=2
1008
1009 exch2_neighbourId(2,12)=8
1010 exch2_pi(1,2,12)=0
1011 exch2_pi(2,2,12)=-1
1012 exch2_pj(1,2,12)=1
1013 exch2_pj(2,2,12)=0
1014 exch2_oi(2,12)=33
1015 exch2_oi_f(2,12)=34
1016 exch2_oj(2,12)=-32
1017 exch2_oj_f(2,12)=-32
1018 exch2_itlo_c(2,12)=17
1019 exch2_ithi_c(2,12)=17
1020 exch2_jtlo_c(2,12)=0
1021 exch2_jthi_c(2,12)=17
1022 exch2_opposingSend_record(2,12)=4
1023
1024 exch2_neighbourId(3,12)=3
1025 exch2_pi(1,3,12)=0
1026 exch2_pi(2,3,12)=1
1027 exch2_pj(1,3,12)=-1
1028 exch2_pj(2,3,12)=0
1029 exch2_oi(3,12)=32
1030 exch2_oi_f(3,12)=32
1031 exch2_oj(3,12)=33
1032 exch2_oj_f(3,12)=34
1033 exch2_itlo_c(3,12)=0
1034 exch2_ithi_c(3,12)=17
1035 exch2_jtlo_c(3,12)=0
1036 exch2_jthi_c(3,12)=0
1037 exch2_opposingSend_record(3,12)=2
1038
1039 exch2_neighbourId(4,12)=4
1040 exch2_pi(1,4,12)=0
1041 exch2_pi(2,4,12)=1
1042 exch2_pj(1,4,12)=-1
1043 exch2_pj(2,4,12)=0
1044 exch2_oi(4,12)=32
1045 exch2_oi_f(4,12)=32
1046 exch2_oj(4,12)=33
1047 exch2_oj_f(4,12)=34
1048 exch2_itlo_c(4,12)=0
1049 exch2_ithi_c(4,12)=17
1050 exch2_jtlo_c(4,12)=0
1051 exch2_jthi_c(4,12)=0
1052 exch2_opposingSend_record(4,12)=2
1053
1054 exch2_neighbourId(5,12)=11
1055 exch2_pi(1,5,12)=1
1056 exch2_pi(2,5,12)=0
1057 exch2_pj(1,5,12)=0
1058 exch2_pj(2,5,12)=1
1059 exch2_oi(5,12)=0
1060 exch2_oi_f(5,12)=0
1061 exch2_oj(5,12)=0
1062 exch2_oj_f(5,12)=0
1063 exch2_itlo_c(5,12)=17
1064 exch2_ithi_c(5,12)=17
1065 exch2_jtlo_c(5,12)=0
1066 exch2_jthi_c(5,12)=33
1067 exch2_opposingSend_record(5,12)=3
1068 RETURN
1069 END
1070
  ViewVC Help
Powered by ViewVC 1.1.22