/[MITgcm]/MITgcm/utils/exch2/code-mods/s6t_32x32/w2_e2setup.F
ViewVC logotype

Contents of /MITgcm/utils/exch2/code-mods/s6t_32x32/w2_e2setup.F

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


Revision 1.3 - (show annotations) (download)
Sat Oct 20 17:31:48 2012 UTC (10 years, 3 months ago) by jmc
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +1 -1 lines
FILE REMOVED
remove far out of date code (not working since the switch to fortran code
 to define exch2 topology in May 2009)

1 C $Header: /u/gcmpack/MITgcm/utils/exch2/code-mods/s6t_32x32/w2_e2setup.F,v 1.2 2008/07/29 19:37:49 jmc Exp $
2 C $Name: $
3
4 C *** THIS FILE IS AUTOMATICALLY GENERATED ***
5 SUBROUTINE W2_E2SETUP
6
7 C Tile toplogy settings data structures
8 #include "W2_EXCH2_TOPOLOGY.h"
9
10 C Tile settings table
11 CALL W2_E2SETUP_1
12 CALL W2_E2SETUP_2
13 CALL W2_E2SETUP_3
14 CALL W2_E2SETUP_4
15 CALL W2_E2SETUP_5
16 CALL W2_E2SETUP_6
17 RETURN
18 END
19
20 SUBROUTINE W2_E2SETUP_1
21 C Topology for tile 1
22 #include "W2_EXCH2_TOPOLOGY.h"
23 exch2_tNx(1)=32
24 exch2_tNy(1)=32
25 exch2_tBasex(1)=0
26 exch2_tBasey(1)=0
27 exch2_txGlobalo(1)=1
28 exch2_tyGlobalo(1)=1
29 exch2_isWedge(1)=1
30 exch2_isNedge(1)=1
31 exch2_isEedge(1)=1
32 exch2_isSedge(1)=1
33 exch2_myFace(1)=1
34 exch2_mydNx(1)=32
35 exch2_mydNy(1)=32
36 exch2_nNeighbours(1)=4
37
38 exch2_neighbourId(1,1)=3
39 exch2_iLo(1,1)=0
40 exch2_iHi(1,1)=33
41 exch2_jLo(1,1)=33
42 exch2_jHi(1,1)=33
43 exch2_opposingSend(1,1)=4
44 exch2_pij(1,1,1)=0
45 exch2_pij(2,1,1)=-1
46 exch2_pij(3,1,1)=1
47 exch2_pij(4,1,1)=0
48 exch2_oi(1,1)=33
49 exch2_oj(1,1)=32
50
51 exch2_neighbourId(2,1)=6
52 exch2_iLo(2,1)=0
53 exch2_iHi(2,1)=33
54 exch2_jLo(2,1)=0
55 exch2_jHi(2,1)=0
56 exch2_opposingSend(2,1)=1
57 exch2_pij(1,2,1)=1
58 exch2_pij(2,2,1)=0
59 exch2_pij(3,2,1)=0
60 exch2_pij(4,2,1)=1
61 exch2_oi(2,1)=0
62 exch2_oj(2,1)=-32
63
64 exch2_neighbourId(3,1)=2
65 exch2_iLo(3,1)=33
66 exch2_iHi(3,1)=33
67 exch2_jLo(3,1)=0
68 exch2_jHi(3,1)=33
69 exch2_opposingSend(3,1)=4
70 exch2_pij(1,3,1)=1
71 exch2_pij(2,3,1)=0
72 exch2_pij(3,3,1)=0
73 exch2_pij(4,3,1)=1
74 exch2_oi(3,1)=32
75 exch2_oj(3,1)=0
76
77 exch2_neighbourId(4,1)=5
78 exch2_iLo(4,1)=0
79 exch2_iHi(4,1)=0
80 exch2_jLo(4,1)=0
81 exch2_jHi(4,1)=33
82 exch2_opposingSend(4,1)=1
83 exch2_pij(1,4,1)=0
84 exch2_pij(2,4,1)=1
85 exch2_pij(3,4,1)=-1
86 exch2_pij(4,4,1)=0
87 exch2_oi(4,1)=-32
88 exch2_oj(4,1)=33
89 RETURN
90 END
91
92 SUBROUTINE W2_E2SETUP_2
93 C Topology for tile 2
94 #include "W2_EXCH2_TOPOLOGY.h"
95 exch2_tNx(2)=32
96 exch2_tNy(2)=32
97 exch2_tBasex(2)=0
98 exch2_tBasey(2)=0
99 exch2_txGlobalo(2)=33
100 exch2_tyGlobalo(2)=1
101 exch2_isWedge(2)=1
102 exch2_isNedge(2)=1
103 exch2_isEedge(2)=1
104 exch2_isSedge(2)=1
105 exch2_myFace(2)=2
106 exch2_mydNx(2)=32
107 exch2_mydNy(2)=32
108 exch2_nNeighbours(2)=4
109
110 exch2_neighbourId(1,2)=3
111 exch2_iLo(1,2)=0
112 exch2_iHi(1,2)=33
113 exch2_jLo(1,2)=33
114 exch2_jHi(1,2)=33
115 exch2_opposingSend(1,2)=2
116 exch2_pij(1,1,2)=1
117 exch2_pij(2,1,2)=0
118 exch2_pij(3,1,2)=0
119 exch2_pij(4,1,2)=1
120 exch2_oi(1,2)=0
121 exch2_oj(1,2)=32
122
123 exch2_neighbourId(2,2)=6
124 exch2_iLo(2,2)=0
125 exch2_iHi(2,2)=33
126 exch2_jLo(2,2)=0
127 exch2_jHi(2,2)=0
128 exch2_opposingSend(2,2)=3
129 exch2_pij(1,2,2)=0
130 exch2_pij(2,2,2)=-1
131 exch2_pij(3,2,2)=1
132 exch2_pij(4,2,2)=0
133 exch2_oi(2,2)=33
134 exch2_oj(2,2)=-32
135
136 exch2_neighbourId(3,2)=4
137 exch2_iLo(3,2)=33
138 exch2_iHi(3,2)=33
139 exch2_jLo(3,2)=0
140 exch2_jHi(3,2)=33
141 exch2_opposingSend(3,2)=2
142 exch2_pij(1,3,2)=0
143 exch2_pij(2,3,2)=1
144 exch2_pij(3,3,2)=-1
145 exch2_pij(4,3,2)=0
146 exch2_oi(3,2)=32
147 exch2_oj(3,2)=33
148
149 exch2_neighbourId(4,2)=1
150 exch2_iLo(4,2)=0
151 exch2_iHi(4,2)=0
152 exch2_jLo(4,2)=0
153 exch2_jHi(4,2)=33
154 exch2_opposingSend(4,2)=3
155 exch2_pij(1,4,2)=1
156 exch2_pij(2,4,2)=0
157 exch2_pij(3,4,2)=0
158 exch2_pij(4,4,2)=1
159 exch2_oi(4,2)=-32
160 exch2_oj(4,2)=0
161 RETURN
162 END
163
164 SUBROUTINE W2_E2SETUP_3
165 C Topology for tile 3
166 #include "W2_EXCH2_TOPOLOGY.h"
167 exch2_tNx(3)=32
168 exch2_tNy(3)=32
169 exch2_tBasex(3)=0
170 exch2_tBasey(3)=0
171 exch2_txGlobalo(3)=65
172 exch2_tyGlobalo(3)=1
173 exch2_isWedge(3)=1
174 exch2_isNedge(3)=1
175 exch2_isEedge(3)=1
176 exch2_isSedge(3)=1
177 exch2_myFace(3)=3
178 exch2_mydNx(3)=32
179 exch2_mydNy(3)=32
180 exch2_nNeighbours(3)=4
181
182 exch2_neighbourId(1,3)=5
183 exch2_iLo(1,3)=0
184 exch2_iHi(1,3)=33
185 exch2_jLo(1,3)=33
186 exch2_jHi(1,3)=33
187 exch2_opposingSend(1,3)=4
188 exch2_pij(1,1,3)=0
189 exch2_pij(2,1,3)=-1
190 exch2_pij(3,1,3)=1
191 exch2_pij(4,1,3)=0
192 exch2_oi(1,3)=33
193 exch2_oj(1,3)=32
194
195 exch2_neighbourId(2,3)=2
196 exch2_iLo(2,3)=0
197 exch2_iHi(2,3)=33
198 exch2_jLo(2,3)=0
199 exch2_jHi(2,3)=0
200 exch2_opposingSend(2,3)=1
201 exch2_pij(1,2,3)=1
202 exch2_pij(2,2,3)=0
203 exch2_pij(3,2,3)=0
204 exch2_pij(4,2,3)=1
205 exch2_oi(2,3)=0
206 exch2_oj(2,3)=-32
207
208 exch2_neighbourId(3,3)=4
209 exch2_iLo(3,3)=33
210 exch2_iHi(3,3)=33
211 exch2_jLo(3,3)=0
212 exch2_jHi(3,3)=33
213 exch2_opposingSend(3,3)=4
214 exch2_pij(1,3,3)=1
215 exch2_pij(2,3,3)=0
216 exch2_pij(3,3,3)=0
217 exch2_pij(4,3,3)=1
218 exch2_oi(3,3)=32
219 exch2_oj(3,3)=0
220
221 exch2_neighbourId(4,3)=1
222 exch2_iLo(4,3)=0
223 exch2_iHi(4,3)=0
224 exch2_jLo(4,3)=0
225 exch2_jHi(4,3)=33
226 exch2_opposingSend(4,3)=1
227 exch2_pij(1,4,3)=0
228 exch2_pij(2,4,3)=1
229 exch2_pij(3,4,3)=-1
230 exch2_pij(4,4,3)=0
231 exch2_oi(4,3)=-32
232 exch2_oj(4,3)=33
233 RETURN
234 END
235
236 SUBROUTINE W2_E2SETUP_4
237 C Topology for tile 4
238 #include "W2_EXCH2_TOPOLOGY.h"
239 exch2_tNx(4)=32
240 exch2_tNy(4)=32
241 exch2_tBasex(4)=0
242 exch2_tBasey(4)=0
243 exch2_txGlobalo(4)=97
244 exch2_tyGlobalo(4)=1
245 exch2_isWedge(4)=1
246 exch2_isNedge(4)=1
247 exch2_isEedge(4)=1
248 exch2_isSedge(4)=1
249 exch2_myFace(4)=4
250 exch2_mydNx(4)=32
251 exch2_mydNy(4)=32
252 exch2_nNeighbours(4)=4
253
254 exch2_neighbourId(1,4)=5
255 exch2_iLo(1,4)=0
256 exch2_iHi(1,4)=33
257 exch2_jLo(1,4)=33
258 exch2_jHi(1,4)=33
259 exch2_opposingSend(1,4)=2
260 exch2_pij(1,1,4)=1
261 exch2_pij(2,1,4)=0
262 exch2_pij(3,1,4)=0
263 exch2_pij(4,1,4)=1
264 exch2_oi(1,4)=0
265 exch2_oj(1,4)=32
266
267 exch2_neighbourId(2,4)=2
268 exch2_iLo(2,4)=0
269 exch2_iHi(2,4)=33
270 exch2_jLo(2,4)=0
271 exch2_jHi(2,4)=0
272 exch2_opposingSend(2,4)=3
273 exch2_pij(1,2,4)=0
274 exch2_pij(2,2,4)=-1
275 exch2_pij(3,2,4)=1
276 exch2_pij(4,2,4)=0
277 exch2_oi(2,4)=33
278 exch2_oj(2,4)=-32
279
280 exch2_neighbourId(3,4)=6
281 exch2_iLo(3,4)=33
282 exch2_iHi(3,4)=33
283 exch2_jLo(3,4)=0
284 exch2_jHi(3,4)=33
285 exch2_opposingSend(3,4)=2
286 exch2_pij(1,3,4)=0
287 exch2_pij(2,3,4)=1
288 exch2_pij(3,3,4)=-1
289 exch2_pij(4,3,4)=0
290 exch2_oi(3,4)=32
291 exch2_oj(3,4)=33
292
293 exch2_neighbourId(4,4)=3
294 exch2_iLo(4,4)=0
295 exch2_iHi(4,4)=0
296 exch2_jLo(4,4)=0
297 exch2_jHi(4,4)=33
298 exch2_opposingSend(4,4)=3
299 exch2_pij(1,4,4)=1
300 exch2_pij(2,4,4)=0
301 exch2_pij(3,4,4)=0
302 exch2_pij(4,4,4)=1
303 exch2_oi(4,4)=-32
304 exch2_oj(4,4)=0
305 RETURN
306 END
307
308 SUBROUTINE W2_E2SETUP_5
309 C Topology for tile 5
310 #include "W2_EXCH2_TOPOLOGY.h"
311 exch2_tNx(5)=32
312 exch2_tNy(5)=32
313 exch2_tBasex(5)=0
314 exch2_tBasey(5)=0
315 exch2_txGlobalo(5)=129
316 exch2_tyGlobalo(5)=1
317 exch2_isWedge(5)=1
318 exch2_isNedge(5)=1
319 exch2_isEedge(5)=1
320 exch2_isSedge(5)=1
321 exch2_myFace(5)=5
322 exch2_mydNx(5)=32
323 exch2_mydNy(5)=32
324 exch2_nNeighbours(5)=4
325
326 exch2_neighbourId(1,5)=1
327 exch2_iLo(1,5)=0
328 exch2_iHi(1,5)=33
329 exch2_jLo(1,5)=33
330 exch2_jHi(1,5)=33
331 exch2_opposingSend(1,5)=4
332 exch2_pij(1,1,5)=0
333 exch2_pij(2,1,5)=-1
334 exch2_pij(3,1,5)=1
335 exch2_pij(4,1,5)=0
336 exch2_oi(1,5)=33
337 exch2_oj(1,5)=32
338
339 exch2_neighbourId(2,5)=4
340 exch2_iLo(2,5)=0
341 exch2_iHi(2,5)=33
342 exch2_jLo(2,5)=0
343 exch2_jHi(2,5)=0
344 exch2_opposingSend(2,5)=1
345 exch2_pij(1,2,5)=1
346 exch2_pij(2,2,5)=0
347 exch2_pij(3,2,5)=0
348 exch2_pij(4,2,5)=1
349 exch2_oi(2,5)=0
350 exch2_oj(2,5)=-32
351
352 exch2_neighbourId(3,5)=6
353 exch2_iLo(3,5)=33
354 exch2_iHi(3,5)=33
355 exch2_jLo(3,5)=0
356 exch2_jHi(3,5)=33
357 exch2_opposingSend(3,5)=4
358 exch2_pij(1,3,5)=1
359 exch2_pij(2,3,5)=0
360 exch2_pij(3,3,5)=0
361 exch2_pij(4,3,5)=1
362 exch2_oi(3,5)=32
363 exch2_oj(3,5)=0
364
365 exch2_neighbourId(4,5)=3
366 exch2_iLo(4,5)=0
367 exch2_iHi(4,5)=0
368 exch2_jLo(4,5)=0
369 exch2_jHi(4,5)=33
370 exch2_opposingSend(4,5)=1
371 exch2_pij(1,4,5)=0
372 exch2_pij(2,4,5)=1
373 exch2_pij(3,4,5)=-1
374 exch2_pij(4,4,5)=0
375 exch2_oi(4,5)=-32
376 exch2_oj(4,5)=33
377 RETURN
378 END
379
380 SUBROUTINE W2_E2SETUP_6
381 C Topology for tile 6
382 #include "W2_EXCH2_TOPOLOGY.h"
383 exch2_tNx(6)=32
384 exch2_tNy(6)=32
385 exch2_tBasex(6)=0
386 exch2_tBasey(6)=0
387 exch2_txGlobalo(6)=161
388 exch2_tyGlobalo(6)=1
389 exch2_isWedge(6)=1
390 exch2_isNedge(6)=1
391 exch2_isEedge(6)=1
392 exch2_isSedge(6)=1
393 exch2_myFace(6)=6
394 exch2_mydNx(6)=32
395 exch2_mydNy(6)=32
396 exch2_nNeighbours(6)=4
397
398 exch2_neighbourId(1,6)=1
399 exch2_iLo(1,6)=0
400 exch2_iHi(1,6)=33
401 exch2_jLo(1,6)=33
402 exch2_jHi(1,6)=33
403 exch2_opposingSend(1,6)=2
404 exch2_pij(1,1,6)=1
405 exch2_pij(2,1,6)=0
406 exch2_pij(3,1,6)=0
407 exch2_pij(4,1,6)=1
408 exch2_oi(1,6)=0
409 exch2_oj(1,6)=32
410
411 exch2_neighbourId(2,6)=4
412 exch2_iLo(2,6)=0
413 exch2_iHi(2,6)=33
414 exch2_jLo(2,6)=0
415 exch2_jHi(2,6)=0
416 exch2_opposingSend(2,6)=3
417 exch2_pij(1,2,6)=0
418 exch2_pij(2,2,6)=-1
419 exch2_pij(3,2,6)=1
420 exch2_pij(4,2,6)=0
421 exch2_oi(2,6)=33
422 exch2_oj(2,6)=-32
423
424 exch2_neighbourId(3,6)=2
425 exch2_iLo(3,6)=33
426 exch2_iHi(3,6)=33
427 exch2_jLo(3,6)=0
428 exch2_jHi(3,6)=33
429 exch2_opposingSend(3,6)=2
430 exch2_pij(1,3,6)=0
431 exch2_pij(2,3,6)=1
432 exch2_pij(3,3,6)=-1
433 exch2_pij(4,3,6)=0
434 exch2_oi(3,6)=32
435 exch2_oj(3,6)=33
436
437 exch2_neighbourId(4,6)=5
438 exch2_iLo(4,6)=0
439 exch2_iHi(4,6)=0
440 exch2_jLo(4,6)=0
441 exch2_jHi(4,6)=33
442 exch2_opposingSend(4,6)=3
443 exch2_pij(1,4,6)=1
444 exch2_pij(2,4,6)=0
445 exch2_pij(3,4,6)=0
446 exch2_pij(4,4,6)=1
447 exch2_oi(4,6)=-32
448 exch2_oj(4,6)=0
449 RETURN
450 END
451

  ViewVC Help
Powered by ViewVC 1.1.22