blob: 238e568a9e1d8a99dc0510f911752f8ad2770079 (
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
|
*****************************************************************
* *
* Procedure : InterpCP0.c2m *
* Purpose : Cross section and diffusion coefficient *
* interpolation according to core properties *
* for the particularized isotopes and the residue *
* for the CP0 cores (Fessenheim, Bugey, Almaraz). *
* Author : M. Cordiez, V. Salino *
* *
* CALL : *
* MicroFuel MacroTot Matex Fmap := Steady *
* [MicroFuel] MacroTot Matex Fmap :: *
* <<CB>> <<TypeRefl>> <<Palier>> <<MethodRefl>> ; *
* *
* Parameters: input *
* Fmap fuel map *
* MicroFuel object containing interpolated cross sections *
* *
* Parameters: output *
* XeMicroF object containing interpolated cross sections *
* LibType type of fuel library (SAPHYB or MULTICOMPO) *
* *
*****************************************************************
PROCEDURE MarguetRefl ;
PARAMETER MicroFuel MacroTot Matex Fmap REFL UOX210 UOX310 UOX260_Py12
UOX260_Py16 UOX260_Py20 UOX310_Py12 UOX310_Py16 ::
::: LINKED_LIST Matex Fmap ;
::: XSM_FILE REFL UOX210 UOX310 UOX260_Py12 UOX260_Py16 UOX260_Py20
UOX310_Py12 UOX310_Py16 ; ;
MODULE SCR: NCR: MACINI: MAC: GREP: UTL: DELETE: ABORT: END: ;
*----
* Definition STRUCTURES, MODULES et PROCEDURES
*----
LINKED_LIST MacroFuel MacroRefl ;
REAL CB ;
STRING TypeRefl Palier MethodRefl ;
:: >>CB<< >>TypeRefl<< >>Palier<< >>MethodRefl<< ;
*----
* Fuel cross sections
*----
MicroFuel := SCR: UOX210 UOX310 UOX260_Py12 UOX260_Py16 UOX260_Py20
UOX310_Py12 UOX310_Py16 Fmap ::
EDIT 2
MICRO LINEAR EQUI EQVS
TABLE UOX210 'BURN'
MIX 4
INST-BURN
SET 'DMOD' MAP
SET 'TFUE' MAP
SET 'BARR' 1. ! No rods
MICRO ALL
'B10' *
'B11' *
'Xe135' 0.
'I135' 0.
'Nd147' 0.
'Pm147' 0.
'Pm148' 0.
'Pm148m' 0.
'Pm149' 0.
'Sm149' 0.
'*MAC*RES' 1.
ENDMIX
TABLE UOX310 'BURN'
MIX 5
INST-BURN
SET 'DMOD' MAP
SET 'TFUE' MAP
SET 'BARR' 1. ! No rods
MICRO ALL
'B10' *
'B11' *
'Xe135' 0.
'I135' 0.
'Nd147' 0.
'Pm147' 0.
'Pm148' 0.
'Pm148m' 0.
'Pm149' 0.
'Sm149' 0.
'*MAC*RES' 1.
ENDMIX
TABLE UOX260_Py12 'BURN'
MIX 6
INST-BURN
SET 'DMOD' MAP
SET 'TFUE' MAP
SET 'BARR' 4. ! Pyrex
MICRO ALL
'B10' *
'B11' *
'Xe135' 0.
'I135' 0.
'Nd147' 0.
'Pm147' 0.
'Pm148' 0.
'Pm148m' 0.
'Pm149' 0.
'Sm149' 0.
'*MAC*RES' 1.
ENDMIX
TABLE UOX260_Py16 'BURN'
MIX 7
INST-BURN
SET 'DMOD' MAP
SET 'TFUE' MAP
SET 'BARR' 4. ! Pyrex
MICRO ALL
'B10' *
'B11' *
'Xe135' 0.
'I135' 0.
'Nd147' 0.
'Pm147' 0.
'Pm148' 0.
'Pm148m' 0.
'Pm149' 0.
'Sm149' 0.
'*MAC*RES' 1.
ENDMIX
TABLE UOX260_Py20 'BURN'
MIX 8
INST-BURN
SET 'DMOD' MAP
SET 'TFUE' MAP
SET 'BARR' 4. ! Pyrex
MICRO ALL
'B10' *
'B11' *
'Xe135' 0.
'I135' 0.
'Nd147' 0.
'Pm147' 0.
'Pm148' 0.
'Pm148m' 0.
'Pm149' 0.
'Sm149' 0.
'*MAC*RES' 1.
ENDMIX
TABLE UOX310_Py12 'BURN'
MIX 9
INST-BURN
SET 'DMOD' MAP
SET 'TFUE' MAP
SET 'BARR' 4. ! Pyrex
MICRO ALL
'B10' *
'B11' *
'Xe135' 0.
'I135' 0.
'Nd147' 0.
'Pm147' 0.
'Pm148' 0.
'Pm148m' 0.
'Pm149' 0.
'Sm149' 0.
'*MAC*RES' 1.
ENDMIX
TABLE UOX310_Py16 'BURN'
MIX 10
INST-BURN
SET 'DMOD' MAP
SET 'TFUE' MAP
SET 'BARR' 4. ! Pyrex
MICRO ALL
'B10' *
'B11' *
'Xe135' 0.
'I135' 0.
'Nd147' 0.
'Pm147' 0.
'Pm148' 0.
'Pm148m' 0.
'Pm149' 0.
'Sm149' 0.
'*MAC*RES' 1.
ENDMIX
TABLE UOX210 'BURN'
MIX 11
INST-BURN
SET 'DMOD' MAP
SET 'TFUE' MAP
SET 'BARR' 2. ! AIC
MICRO ALL
'B10' *
'B11' *
'Xe135' 0.
'I135' 0.
'Nd147' 0.
'Pm147' 0.
'Pm148' 0.
'Pm148m' 0.
'Pm149' 0.
'Sm149' 0.
'*MAC*RES' 1.
ENDMIX
;
MacroFuel := MicroFuel :: STEP UP MACROLIB ;
*----
* Reflector
*----
IF TypeRefl "TousPaliers" = THEN
MacroRefl := NCR: REFL ::
EDIT 1
MACRO LINEAR
NMIX 3
COMPO REFL 'Radial'
MIX 1 FROM 1
SET 'C-BORE' <<CB>>
SET 'Method' <<MethodRefl>>
SET 'Palier' <<Palier>>
SET 'dBaffleBarrl' 14.4
ENDMIX
COMPO REFL 'Bottom'
MIX 2 FROM 1
SET 'C-BORE' <<CB>>
SET 'Method' <<MethodRefl>>
ENDMIX
COMPO REFL 'Top'
MIX 3 FROM 1
SET 'C-BORE' <<CB>>
SET 'Method' <<MethodRefl>>
ENDMIX
;
ELSEIF TypeRefl "MargCpy" = TypeRefl "MargCpyAdjus" = + THEN
MacroRefl := MarguetRefl :: <<CB>> <<TypeRefl>> ;
ELSE
ECHO "Unknown reflector modelling" ;
ABORT: ;
ENDIF ;
MacroTot Matex := MACINI: Matex MacroRefl MacroFuel ;
END: ;
QUIT "LIST" .
|
