blob: 1d0d955d10712ae05db5759128f1d386d4f2093b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
|
*----
* Exemple of the use of HMIX for cell homogenization
* 2-D supercell with fuel clusters based on AECL supercell model
* for G2 SOR and MCA with fuel and reactivity devices parallel
* References
* PREPARED BY : G. Marleau on 2013/06/11
*
*----
* modules and data structures
*----
SEQ_ASCII MACROLIBF ;
LINKED_LIST SORINS SORIN TRACK MicLib FLUX EDITION ;
XSM_FILE ASMPIJ ;
SEQ_ASCII FigReg.ps FigMix.ps FigHom.ps ;
SEQ_ASCII HomMix.txt HomHMix.txt ;
SEQ_BINARY Lines ;
MODULE GEO: EXCELT: EXCELL: SHI: ASM: LIB: FLU:
EDI: UTL: DELETE: FREE: END: INFO: CPO: MAC:
NXT: PSP: ;
PROCEDURE TCWE17Lib ;
PROCEDURE assertS ;
INTEGER iedit := 1 ;
MicLib := TCWE17Lib :: <<iedit>> ;
*----
* DEFINE GEOMETRY FOR SUPERCELL CALCULATION
* SORINS : 2D self-shielding geometry with SHUT-OFF ROD & GT in
* for annular fuel.
* SORIN : 2D transport geometry with SHUT-OFF ROD & GT in
* for annular fuel.
*----
SORINS := GEO: :: CAR2D 5 3
EDIT 0
X- REFL X+ REFL
Y- REFL Y+ REFL
CELL M MXL MX2 MXR M
MY FXYL BXY FXYR MY
M MXL MX2 MXR M
::: M := GEO: CAR2D 1 1
MESHX 0.0 7.14375
MESHY 0.0 7.14375
HMIX 0
MIX 5 ;
::: MXL := GEO: CAR2D 2 1
MESHX -7.14375 0.0 7.14375
MESHY 0.0 7.14375
HMIX 0 1
MIX 5 15 ;
::: MX2 := GEO: CAR2D 1 1
MESHX -7.14375 7.14375
MESHY 0.0 7.14375
HMIX 1
MIX 15 ;
::: MXR := GEO: CAR2D 2 1
MESHX -7.14375 0.0 7.14375
MESHY 0.0 7.14375
HMIX 1 0
MIX 15 5 ;
::: MY := GEO: CAR2D 1 2
MESHY -7.14375 0.0 7.14375
MESHX 0.0 7.14375
HMIX 0 0
MIX 5 5 ;
::: BXY := GEO: CARCEL 2
MESHX -7.14375 7.14375
MESHY -7.14375 7.14375
RADIUS 0.0 6.380 6.530
HMIX 1 1 1
MIX 15 15 15
CLUSTER ROD
::: ROD := GEO: TUBE 4
NPIN 1 RPIN 0.0 APIN 0.0
RADIUS 0.0 5.4115 5.4877 5.5791 5.6553
HMIX 1 1 1 1
MIX 15 14 21 14 ; ;
::: FXYL := GEO: CARCEL 5 2 1
MESHX -7.14375 0.0 7.14375
MESHY -7.14375 7.14375
RADIUS 0.00000 5.16890 5.60320 6.44780 6.58750 7.00
HMIX 0 0 0 0 0 0
1 1 1 1 1 1
MIX 1 2 3 4 5 5
11 12 13 14 15 15
CLUSTER ROD1 ROD2L ROD2R ROD3L ROD3R ROD4L ROD4R
::: ROD1 := GEO: TUBE 2 1 2 MIX 6 10 16 20 HMIX 0 0 1 1
NPIN 1 RPIN 0.0000 APIN 0.0000
MESHX -0.6540 0.6540
MESHY -0.6540 0.0 0.6540
RADIUS 0.00000 0.6122 0.6540 ;
::: ROD2L := GEO: TUBE 2 MIX 7 10 HMIX 0 0
RADIUS 0.00000 0.6122 0.6540
NPIN 3 RPIN 1.4885
APIN 2.09439510 3.14159265 4.18879020 ;
::: ROD2R := GEO: TUBE 2 MIX 17 20 HMIX 1 1
RADIUS 0.00000 0.6122 0.6540
NPIN 3 RPIN 1.4885
APIN -1.04719755 0.0000 1.04719755 ;
::: ROD3L := GEO: TUBE 2 MIX 8 10 HMIX 0 0
RADIUS 0.00000 0.6122 0.6540
NPIN 6 RPIN 2.8755
APIN -2.87979327 -2.35619449 -1.83259571
1.83259571 2.35619449 2.87979327 ;
::: ROD3R := GEO: TUBE 2 MIX 18 20 HMIX 1 1
RADIUS 0.00000 0.6122 0.6540
NPIN 6 RPIN 2.8755
APIN -1.30899694 -0.78539816 -0.26179939
0.26179939 0.78539816 1.30899694 ;
::: ROD4L := GEO: TUBE 2 MIX 9 10 HMIX 0 0
RADIUS 0.00000 0.6122 0.6540
NPIN 9 RPIN 4.3305
APIN 1.74532925 2.09439510 2.44346095
2.79252680 3.14159265 3.49065850
3.83972435 4.18879020 4.53785606 ;
::: ROD4R := GEO: TUBE 2 MIX 19 20 HMIX 1 1
RADIUS 0.00000 0.6122 0.6540
NPIN 9 RPIN 4.3305
APIN -1.39626340 -1.04719755 -0.69813170
-0.34906585 0.0 0.34906585
0.69813170 1.04719755 1.39626340 ;
;
::: FXYR := GEO: CARCEL 5 2 1
MESHX -7.14375 0.0 7.14375
MESHY -7.14375 7.14375
RADIUS 0.00000 5.16890 5.60320 6.44780 6.58750 7.00
HMIX 1 1 1 1 1 1
0 0 0 0 0 0
MIX 11 12 13 14 15 15
1 2 3 4 5 5
CLUSTER ROD1 ROD2L ROD2R ROD3L ROD3R ROD4L ROD4R
::: ROD1 := GEO: TUBE 2 1 2 MIX 16 20 6 10 HMIX 1 1 0 0
NPIN 1 RPIN 0.0000 APIN 0.0000
MESHX -0.6540 0.6540
MESHY -0.6540 0.0 0.6540
RADIUS 0.00000 0.6122 0.6540 ;
::: ROD2L := GEO: TUBE 2 MIX 17 20 HMIX 1 1
RADIUS 0.00000 0.6122 0.6540
NPIN 3 RPIN 1.4885
APIN 2.09439510 3.14159265 4.18879020 ;
::: ROD2R := GEO: TUBE 2 MIX 7 10 HMIX 0 0
RADIUS 0.00000 0.6122 0.6540
NPIN 3 RPIN 1.4885
APIN -1.04719755 0.0000 1.04719755 ;
::: ROD3L := GEO: TUBE 2 MIX 18 20 HMIX 1 1
RADIUS 0.00000 0.6122 0.6540
NPIN 6 RPIN 2.8755
APIN -2.87979327 -2.35619449 -1.83259571
1.83259571 2.35619449 2.87979327 ;
::: ROD3R := GEO: TUBE 2 MIX 8 10 HMIX 0 0
RADIUS 0.00000 0.6122 0.6540
NPIN 6 RPIN 2.8755
APIN -1.30899694 -0.78539816 -0.26179939
0.26179939 0.78539816 1.30899694 ;
::: ROD4L := GEO: TUBE 2 MIX 19 20 HMIX 1 1
RADIUS 0.00000 0.6122 0.6540
NPIN 9 RPIN 4.3305
APIN 1.74532925 2.09439510 2.44346095
2.79252680 3.14159265 3.49065850
3.83972435 4.18879020 4.53785606 ;
::: ROD4R := GEO: TUBE 2 MIX 9 10 HMIX 0 0
RADIUS 0.00000 0.6122 0.6540
NPIN 9 RPIN 4.3305
APIN -1.39626340 -1.04719755 -0.69813170
-0.34906585 0.0 0.34906585
0.69813170 1.04719755 1.39626340 ;
;
;
SORIN := GEO: :: CAR2D 5 3
EDIT 0
X- REFL X+ REFL
Y- REFL Y+ REFL
CELL M MXL MX2 MXR M
MY FXYL BXY FXYR MY
M MXL MX2 MXR M
::: M := GEO: CAR2D 1 1
MESHX 0.0 7.14375 SPLITX 2
MESHY 0.0 7.14375 SPLITY 2
HMIX 0
MIX 5 ;
::: MXL := GEO: CAR2D 2 1
MESHX -7.14375 0.0 7.14375 SPLITX 3 3
MESHY 0.0 7.14375 SPLITY 3
HMIX 0 1
MIX 5 15 ;
::: MX2 := GEO: CAR2D 1 1
MESHX -7.14375 7.14375 SPLITX 6
MESHY 0.0 7.14375 SPLITY 3
HMIX 1
MIX 15 ;
::: MXR := GEO: CAR2D 2 1
MESHX -7.14375 0.0 7.14375 SPLITX 3 3
MESHY 0.0 7.14375 SPLITY 3
HMIX 1 0
MIX 15 5 ;
::: MY := GEO: CAR2D 1 2
MESHY -7.14375 0.0 7.14375 SPLITY 3 3
MESHX 0.0 7.14375 SPLITX 3
HMIX 0 0
MIX 5 5 ;
::: BXY := GEO: CARCEL 2
MESHX -7.14375 7.14375 SPLITX 6
MESHY -7.14375 7.14375 SPLITY 6
RADIUS 0.0 6.380 6.530
SPLITR 2 2
HMIX 1 1 1
MIX 15 15 15
CLUSTER ROD
::: ROD := GEO: TUBE 4
NPIN 1 RPIN 0.0 APIN 0.0
RADIUS 0.0 5.4115 5.4877 5.5791 5.6553
SPLITR 1 1 1 1
HMIX 1 1 1 1
MIX 15 14 21 14 ; ;
::: FXYL := GEO: CARCEL 5 2 1
MESHX -7.14375 0.0 7.14375 SPLITX 3 3
MESHY -7.14375 7.14375 SPLITY 6
RADIUS 0.00000 5.16890 5.60320 6.44780 6.58750 7.00
HMIX 0 0 0 0 0 0
1 1 1 1 1 1
MIX 1 2 3 4 5 5
11 12 13 14 15 15
CLUSTER ROD1 ROD2L ROD2R ROD3L ROD3R ROD4L ROD4R
::: ROD1 := GEO: TUBE 2 1 2 MIX 6 10 16 20 HMIX 0 0 1 1
NPIN 1 RPIN 0.0000 APIN 0.0000
MESHX -0.6540 0.6540
MESHY -0.6540 0.0 0.6540
RADIUS 0.00000 0.6122 0.6540 ;
::: ROD2L := GEO: TUBE 2 MIX 7 10 HMIX 0 0
RADIUS 0.00000 0.6122 0.6540
NPIN 3 RPIN 1.4885
APIN 2.09439510 3.14159265 4.18879020 ;
::: ROD2R := GEO: TUBE 2 MIX 17 20 HMIX 1 1
RADIUS 0.00000 0.6122 0.6540
NPIN 3 RPIN 1.4885
APIN -1.04719755 0.0000 1.04719755 ;
::: ROD3L := GEO: TUBE 2 MIX 8 10 HMIX 0 0
RADIUS 0.00000 0.6122 0.6540
NPIN 6 RPIN 2.8755
APIN -2.87979327 -2.35619449 -1.83259571
1.83259571 2.35619449 2.87979327 ;
::: ROD3R := GEO: TUBE 2 MIX 18 20 HMIX 1 1
RADIUS 0.00000 0.6122 0.6540
NPIN 6 RPIN 2.8755
APIN -1.30899694 -0.78539816 -0.26179939
0.26179939 0.78539816 1.30899694 ;
::: ROD4L := GEO: TUBE 2 MIX 9 10 HMIX 0 0
RADIUS 0.00000 0.6122 0.6540
NPIN 9 RPIN 4.3305
APIN 1.74532925 2.09439510 2.44346095
2.79252680 3.14159265 3.49065850
3.83972435 4.18879020 4.53785606 ;
::: ROD4R := GEO: TUBE 2 MIX 19 20 HMIX 1 1
RADIUS 0.00000 0.6122 0.6540
NPIN 9 RPIN 4.3305
APIN -1.39626340 -1.04719755 -0.69813170
-0.34906585 0.0 0.34906585
0.69813170 1.04719755 1.39626340 ;
;
::: FXYR := GEO: CARCEL 5 2 1
MESHX -7.14375 0.0 7.14375 SPLITX 3 3
MESHY -7.14375 7.14375 SPLITY 6
RADIUS 0.00000 5.16890 5.60320 6.44780 6.58750 7.00
HMIX 1 1 1 1 1 1
0 0 0 0 0 0
MIX 11 12 13 14 15 15
1 2 3 4 5 5
CLUSTER ROD1 ROD2L ROD2R ROD3L ROD3R ROD4L ROD4R
::: ROD1 := GEO: TUBE 2 1 2 MIX 16 20 6 10 HMIX 1 1 0 0
NPIN 1 RPIN 0.0000 APIN 0.0000
MESHX -0.6540 0.6540
MESHY -0.6540 0.0 0.6540
RADIUS 0.00000 0.6122 0.6540 ;
::: ROD2L := GEO: TUBE 2 MIX 17 20 HMIX 1 1
RADIUS 0.00000 0.6122 0.6540
NPIN 3 RPIN 1.4885
APIN 2.09439510 3.14159265 4.18879020 ;
::: ROD2R := GEO: TUBE 2 MIX 7 10 HMIX 0 0
RADIUS 0.00000 0.6122 0.6540
NPIN 3 RPIN 1.4885
APIN -1.04719755 0.0000 1.04719755 ;
::: ROD3L := GEO: TUBE 2 MIX 18 20 HMIX 1 1
RADIUS 0.00000 0.6122 0.6540
NPIN 6 RPIN 2.8755
APIN -2.87979327 -2.35619449 -1.83259571
1.83259571 2.35619449 2.87979327 ;
::: ROD3R := GEO: TUBE 2 MIX 8 10 HMIX 0 0
RADIUS 0.00000 0.6122 0.6540
NPIN 6 RPIN 2.8755
APIN -1.30899694 -0.78539816 -0.26179939
0.26179939 0.78539816 1.30899694 ;
::: ROD4L := GEO: TUBE 2 MIX 19 20 HMIX 1 1
RADIUS 0.00000 0.6122 0.6540
NPIN 9 RPIN 4.3305
APIN 1.74532925 2.09439510 2.44346095
2.79252680 3.14159265 3.49065850
3.83972435 4.18879020 4.53785606 ;
::: ROD4R := GEO: TUBE 2 MIX 9 10 HMIX 0 0
RADIUS 0.00000 0.6122 0.6540
NPIN 9 RPIN 4.3305
APIN -1.39626340 -1.04719755 -0.69813170
-0.34906585 0.0 0.34906585
0.69813170 1.04719755 1.39626340 ;
;
;
*----
* Rod and GT absent
*----
TRACK Lines := NXT: SORINS :: EDIT 3
ALLG BATCH 100 MERGMIX
TISO 40 30.0 ;
MicLib := SHI: MicLib TRACK Lines ;
TRACK Lines := DELETE: TRACK Lines ;
TRACK Lines := NXT: SORIN :: EDIT 3
ALLG BATCH 100
TISO 40 30.0 ;
FigReg.ps := PSP: TRACK :: TYPE REGI ;
FigMix.ps := PSP: TRACK :: TYPE MIXT ;
FigHom.ps := PSP: TRACK :: TYPE HMIX ;
ASMPIJ := ASM: MicLib TRACK Lines :: PIJ ;
FLUX := FLU: ASMPIJ MicLib TRACK :: TYPE K ;
assertS FLUX :: 'K-EFFECTIVE' 1 1.039269 ;
EDITION := EDI: FLUX MicLib TRACK ::
EDIT 3
COND 0.625
MERG HMIX
SAVE ON SORINHMIX ;
HomHMix.txt := EDITION ;
EDITION := DELETE: EDITION ;
EDITION := EDI: FLUX MicLib TRACK ::
EDIT 3
COND 0.625
MERG MIX 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
SAVE ON SORINMIX ;
HomMix.txt := EDITION ;
EDITION := DELETE: EDITION ;
TRACK FLUX ASMPIJ Lines := DELETE: TRACK FLUX ASMPIJ Lines ;
ECHO "test TCWE17 completed" ;
END: ;
QUIT "LIST" .
|
