blob: bc049ae02297faf86d9a08f12ad087a7c8bf9960 (
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
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
|
*--------------------
* Nom : SCWR64Core.x2m
* Utilisation : Calcul coeur pour CANDU-SCWR 64
* Auteur : U. Le Tennier
* Date : 03/06/2019
*
*---------------------------
* Calcul coeur CANDU-SCWR 64
* 3 ou 4 burnups par rechargement
*
*-------------------------------------------------------------------------
* Definition des structures de donnees
*-------------------------------------------------------------------------
MODULE TRIVAT: GREP: DELETE: END: UTL: SIM: FLPOW:
FLUD: CRE: NCR: RESINI:
TRIVAA: MACINI: USPLIT: GEO: ;
LINKED_LIST GeoCore Matex Track MacroRfl ;
LINKED_LIST FuelMap System Flux ;
LINKED_LIST DbRef_03 DbRefl MacroFl ;
LINKED_LIST Puissance Macro2 ;
SEQ_ASCII DBREF_03 :: FILE 'DBREF_03.txt' ; ! Copie en entree de DBREF_03
SEQ_ASCII DBREFL :: FILE 'DBREFL.txt' ; ! Copie en entree de DBREFL
PROCEDURE assertS ;
*-------------------------------------------------------------------------
* Definition des indices et variables
*-------------------------------------------------------------------------
REAL Keff Pui ;
REAL PuiCore := 2032.0 ; !MW
INTEGER MaxReg := 17248 ;
INTEGER CycleIndex := 1 ;
INTEGER CycleRef := 1 ;
INTEGER Step StepCycle := 0 0 ;
REAL TimeIni := 0. ;
REAL Delt := 0. ;
STRING NameCycl := "Cycle" CycleIndex I_TO_S + ;
STRING NamePreCycl ;
REAL TempMod := 342.16 ;
REAL DensMod := 1.0851 ;
* Pour l enrichissement 03
REAL DensCU1 := 0.2624 ;
REAL DensCD1 := 0.584373 ;
REAL TempF1 := 1056.26 ;
REAL TempCU1 := 671.1 ;
REAL TempCD1 := 634.62625 ;
REAL FuB1 := 0. ;
REAL ppmB := 1.E-4 ;
EVALUATE Pui := 57.61 ; !kW/kg
GeoCore := GEO: ::
CAR3D 28 28 22
EDIT 0
X- VOID X+ VOID
Y- VOID Y+ VOID
Z- VOID Z+ VOID
MIX
PLANE 1
* - - - - A B C D E F G H I J K L M N O P Q R S T - - - -
0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 ! -
0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 ! -
0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 ! 1
0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 ! 2
0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 ! 3
0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 ! 4
0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 ! 5
0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 ! 6
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 7
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 8
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 9
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 0
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 2
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 3
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 4
0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 ! 5
0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 ! 6
0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 ! 7
0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 ! 8
0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 ! 9
0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 ! 0
0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 ! -
0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 ! -
PLANE 2
0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 ! -
0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 ! -
0 0 0 0 1 1 1 1 1 1 2 2 2 2 2 2 2 2 1 1 1 1 1 1 0 0 0 0 ! 1
0 0 0 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 0 0 0 ! 2
0 0 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 0 0 ! 3
0 0 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 0 0 ! 4
0 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 0 ! 5
0 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 0 ! 6
1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 ! 7
1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 ! 8
1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 ! 9
1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 ! 0
1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 ! 1
1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 ! 2
1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 ! 3
1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 ! 4
0 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 0 ! 5
0 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 0 ! 6
0 0 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 0 0 ! 7
0 0 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 0 0 ! 8
0 0 0 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 0 0 0 ! 9
0 0 0 0 1 1 1 1 1 1 2 2 2 2 2 2 2 2 1 1 1 1 1 1 0 0 0 0 ! 0
0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 ! -
0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 ! -
PLANE 3 SAME 2
PLANE 4 SAME 2
PLANE 5 SAME 2
PLANE 6 SAME 2
PLANE 7 SAME 2
PLANE 8 SAME 2
PLANE 9 SAME 2
PLANE 10 SAME 2
PLANE 11 SAME 2
PLANE 12 SAME 2
PLANE 13 SAME 2
PLANE 14 SAME 2
PLANE 15 SAME 2
PLANE 16 SAME 2
PLANE 17 SAME 2
PLANE 18 SAME 2
PLANE 19 SAME 2
PLANE 20 SAME 2
PLANE 21 SAME 2
PLANE 22 SAME 1
MESHX 0.0 25.0 50.0 75.0 100.0 125.0 150.0 175.0
200.0 225.0 250.0 275.0 300.0 325.0 350.0 375.0
400.0 425.0 450.0 475.0 500.0 525.0 550.0 575.0
600.0 625.0 650.0 675.0 700.0
MESHY 0.0 25.0 50.0 75.0 100.0 125.0 150.0 175.0
200.0 225.0 250.0 275.0 300.0 325.0 350.0 375.0
400.0 425.0 450.0 475.0 500.0 525.0 550.0 575.0
600.0 625.0 650.0 675.0 700.0
MESHZ 0.0 75.0 100.0 125.0 150.0 175.0 200.0 225.0 250.0
275.0 300.0 325.0 350.0 375.0 400.0 425.0 450.0 475.0
500.0 525.0 550.0 575.0 650.0 ;
GeoCore Matex := USPLIT: GeoCore ::
NGRP 3
MAXR <<MaxReg>>
NMIX 2
NREFL 1 RMIX 1
NFUEL 1 FMIX 2 ;
Track := TRIVAT: GeoCore :: EDIT 5
MAXR <<MaxReg>> MCFD 1 ;
FuelMap Matex := RESINI: Matex ::
::: GEO:
CAR3D 28 28 22
EDIT 0
X- VOID X+ VOID
Y- VOID Y+ VOID
Z- VOID Z+ VOID
MIX
PLANE 1
* - - - - A B C D E F G H I J K L M N O P Q R S T - - - -
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 1
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 2
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 3
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 4
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 5
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 6
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 7
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 8
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 9
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 1
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 2
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 3
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 4
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 5
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 6
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 7
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 8
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 9
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
PLANE 2
* - - - - A B C D E F G H I J K L M N O P Q R S T - - - -
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 ! 1
0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 ! 2
0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 ! 3
0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 ! 4
0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 ! 5
0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 ! 6
0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! 7
0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! 8
0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! 9
0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! 0
0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! 1
0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! 2
0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! 3
0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! 4
0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 ! 5
0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 ! 6
0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 ! 7
0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 ! 8
0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 ! 9
0 0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 ! 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
PLANE 3 SAME 2
PLANE 4 SAME 2
PLANE 5 SAME 2
PLANE 6 SAME 2
PLANE 7 SAME 2
PLANE 8 SAME 2
PLANE 9 SAME 2
PLANE 10 SAME 2
PLANE 11 SAME 2
PLANE 12 SAME 2
PLANE 13 SAME 2
PLANE 14 SAME 2
PLANE 15 SAME 2
PLANE 16 SAME 2
PLANE 17 SAME 2
PLANE 18 SAME 2
PLANE 19 SAME 2
PLANE 20 SAME 2
PLANE 21 SAME 2
PLANE 22 SAME 1
MESHX 0.0 25.0 50.0 75.0 100.0 125.0 150.0 175.0
200.0 225.0 250.0 275.0 300.0 325.0 350.0 375.0
400.0 425.0 450.0 475.0 500.0 525.0 550.0 575.0
600.0 625.0 650.0 675.0 700.0
MESHY 0.0 25.0 50.0 75.0 100.0 125.0 150.0 175.0
200.0 225.0 250.0 275.0 300.0 325.0 350.0 375.0
400.0 425.0 450.0 475.0 500.0 525.0 550.0 575.0
600.0 625.0 650.0 675.0 700.0
MESHZ 0.0 75.0 100.0 125.0 150.0 175.0 200.0 225.0 250.0
275.0 300.0 325.0 350.0 375.0 400.0 425.0 450.0 475.0
500.0 525.0 550.0 575.0 650.0 ;
NYNAME '--' '--' '-' '-'
'A' 'B' 'C' 'D' 'E' 'F' 'G' 'H' 'I' 'J'
'K' 'L' 'M' 'N' 'O' 'P' 'Q' 'R' 'S' 'T'
'-' '-' '--' '--'
NXNAME '--' '--' '-' '-'
'01' '02' '03' '04' '05' '06' '07' '08' '09' '10'
'11' '12' '13' '14' '15' '16' '17' '18' '19' '20'
'-' '-' '--' '--'
SIM 20 20
G01 H01 I01 J01
K01 L01 M01 N01
E02 F02 G02 H02 I02 J02
K02 L02 M02 N02 O02 P02
C03 D03 E03 F03 G03 H03 I03 J03
K03 L03 M03 N03 O03 P03 Q03 R03
C04 D04 E04 F04 G04 H04 I04 J04
K04 L04 M04 N04 O04 P04 Q04 R04
B05 C05 D05 E05 F05 G05 H05 I05 J05
K05 L05 M05 N05 O05 P05 Q05 R05 S05
B06 C06 D06 E06 F06 G06 H06 I06 J06
K06 L06 M06 N06 O06 P06 Q06 R06 S06
A07 B07 C07 D07 E07 F07 G07 H07 I07 J07
K07 L07 M07 N07 O07 P07 Q07 R07 S07 T07
A08 B08 C08 D08 E08 F08 G08 H08 I08 J08
K08 L08 M08 N08 O08 P08 Q08 R08 S08 T08
A09 B09 C09 D09 E09 F09 G09 H09 I09 J09
K09 L09 M09 N09 O09 P09 Q09 R09 S09 T09
A10 B10 C10 D10 E10 F10 G10 H10 I10 J10
K10 L10 M10 N10 O10 P10 Q10 R10 S10 T10
A11 B11 C11 D11 E11 F11 G11 H11 I11 J11
K11 L11 M11 N11 O11 P11 Q11 R11 S11 T11
A12 B12 C12 D12 E12 F12 G12 H12 I12 J12
K12 L12 M12 N12 O12 P12 Q12 R12 S12 T12
A13 B13 C13 D13 E13 F13 G13 H13 I13 J13
K13 L13 M13 N13 O13 P13 Q13 R13 S13 T13
A14 B14 C14 D14 E14 F14 G14 H14 I14 J14
K14 L14 M14 N14 O14 P14 Q14 R14 S14 T14
B15 C15 D15 E15 F15 G15 H15 I15 J15
K15 L15 M15 N15 O15 P15 Q15 R15 S15
B16 C16 D16 E16 F16 G16 H16 I16 J16
K16 L16 M16 N16 O16 P16 Q16 R16 S16
C17 D17 E17 F17 G17 H17 I17 J17
K17 L17 M17 N17 O17 P17 Q17 R17
C18 D18 E18 F18 G18 H18 I18 J18
K18 L18 M18 N18 O18 P18 Q18 R18
E19 F19 G19 H19 I19 J19
K19 L19 M19 N19 O19 P19
G20 H20 I20 J20
K20 L20 M20 N20
NCOMB 84
B-ZONE
1 2 3 4 4 3 2 1
5 6 7 8 9 10 10 9 8 7 6 5
11 12 13 14 15 16 17 18 18 17 16 15 14 13 12 11
19 20 21 22 23 24 25 26 26 25 24 23 22 21 20 19
27 28 29 30 31 32 33 34 35 35 34 33 32 31 30 29 28 27
36 37 38 39 40 41 42 43 44 44 43 42 41 40 39 38 37 36
45 46 47 48 49 50 51 52 53 54 54 53 52 51 50 49 48 47 46 45
55 56 57 58 59 60 61 62 63 64 64 63 62 61 60 59 58 57 56 55
65 66 67 68 69 70 71 72 73 74 74 73 72 71 70 69 68 67 66 65
75 76 77 78 79 80 81 82 83 84 84 83 82 81 80 79 78 77 76 75
75 76 77 78 79 80 81 82 83 84 84 83 82 81 80 79 78 77 76 75
65 66 67 68 69 70 71 72 73 74 74 73 72 71 70 69 68 67 66 65
55 56 57 58 59 60 61 62 63 64 64 63 62 61 60 59 58 57 56 55
45 46 47 48 49 50 51 52 53 54 54 53 52 51 50 49 48 47 46 45
36 37 38 39 40 41 42 43 44 44 43 42 41 40 39 38 37 36
27 28 29 30 31 32 33 34 35 35 34 33 32 31 30 29 28 27
19 20 21 22 23 24 25 26 26 25 24 23 22 21 20 19
11 12 13 14 15 16 17 18 18 17 16 15 14 13 12 11
5 6 7 8 9 10 10 9 8 7 6 5
1 2 3 4 4 3 2 1
BTYPE INST-BURN
ADD-PARAM PNAME 'Mod Dens ' PARKEY 'Mod Dens ' GLOBAL
ADD-PARAM PNAME 'Bore ppm ' PARKEY 'Bore ppm ' GLOBAL
ADD-PARAM PNAME 'Mod Temp ' PARKEY 'Mod Temp ' GLOBAL
ADD-PARAM PNAME 'Puissance ' PARKEY 'Puissance ' GLOBAL
ADD-PARAM PNAME 'CaloUp Dens ' PARKEY 'CaloUp Dens ' GLOBAL
ADD-PARAM PNAME 'CaloDw Dens ' PARKEY 'CaloDw Dens ' GLOBAL
ADD-PARAM PNAME 'Fuel Temp ' PARKEY 'Fuel Temp ' GLOBAL
ADD-PARAM PNAME 'CaloUp Temp ' PARKEY 'CaloUp Temp ' GLOBAL
ADD-PARAM PNAME 'CaloDw Temp ' PARKEY 'CaloDw Temp ' GLOBAL
FUEL WEIGHT 10.498 ;
DbRef_03 := DBREF_03 ;
DbRefl := DBREFL ;
FuelMap := SIM: FuelMap ::
EDIT 0
CYCLE <<NameCycl>>
MAP
A B C D E F G H I J
K L M N O P Q R S T
01 | | | | | | SPC NEW SPC NEW
NEW SPC NEW SPC | | | | | |
02 | | | | NEW SPC NEW SPC NEW SPC
SPC NEW SPC NEW SPC NEW | | | |
03 | | NEW SPC SPC NEW SPC NEW SPC NEW
NEW SPC NEW SPC NEW SPC SPC NEW | |
04 | | SPC NEW SPC SPC SPC SPC SPC SPC
SPC SPC SPC SPC SPC SPC NEW SPC | |
05 | NEW SPC SPC SPC NEW SPC NEW SPC SPC
SPC SPC NEW SPC NEW SPC SPC SPC NEW |
06 | SPC NEW SPC NEW SPC NEW SPC SPC NEW
NEW SPC SPC NEW SPC NEW SPC NEW SPC |
07 SPC NEW SPC SPC SPC NEW SPC SPC NEW SPC
SPC NEW SPC SPC NEW SPC SPC SPC NEW SPC
08 NEW SPC NEW SPC NEW SPC SPC SPC SPC SPC
SPC SPC SPC SPC SPC NEW SPC NEW SPC NEW
09 SPC NEW SPC SPC SPC SPC NEW SPC SPC SPC
SPC SPC SPC NEW SPC SPC SPC SPC NEW SPC
10 NEW SPC NEW SPC SPC NEW SPC SPC SPC SPC
SPC SPC SPC SPC NEW SPC SPC NEW SPC NEW
* //
11 NEW SPC NEW SPC SPC NEW SPC SPC SPC SPC
SPC SPC SPC SPC NEW SPC SPC NEW SPC NEW
12 SPC NEW SPC SPC SPC SPC NEW SPC SPC SPC
SPC SPC SPC NEW SPC SPC SPC SPC NEW SPC
13 NEW SPC NEW SPC NEW SPC SPC SPC SPC SPC
SPC SPC SPC SPC SPC NEW SPC NEW SPC NEW
14 SPC NEW SPC SPC SPC NEW SPC SPC NEW SPC
SPC NEW SPC SPC NEW SPC SPC SPC NEW SPC
15 | SPC NEW SPC NEW SPC NEW SPC SPC NEW
NEW SPC SPC NEW SPC NEW SPC NEW SPC |
16 | NEW SPC SPC SPC NEW SPC NEW SPC SPC
SPC SPC NEW SPC NEW SPC SPC SPC NEW |
17 | | SPC NEW SPC SPC SPC SPC SPC SPC
SPC SPC SPC SPC SPC SPC NEW SPC | |
18 | | NEW SPC SPC NEW SPC NEW SPC NEW
NEW SPC NEW SPC NEW SPC SPC NEW | |
19 | | | | NEW SPC NEW SPC NEW SPC
SPC NEW SPC NEW SPC NEW | | | |
20 | | | | | | SPC NEW SPC NEW
NEW SPC NEW SPC | | | | | |
SPEC
G01 G20 N01 N20
F02 F19 O02 O19
E04 E17 P04 P17
F04 F17 O04 O17
G04 G17 N04 N17
I04 I17 L04 L17
J04 J17 K04 K17 SET AVGB <<FuB1>>
D05 D16 Q05 Q16
G05 G16 N05 N16
I05 I16 L05 L16
B06 B15 S06 S15
D06 D15 Q06 Q15
A07 A14 T07 T14
D07 D14 Q07 Q14 SET AVGB <<FuB1>>
E07 E14 P07 P14
H07 H14 M07 M14
G08 G13 N08 N13
H08 H13 M08 M13
I08 I13 L08 L13
J08 J13 K08 K13
D09 D12 Q09 Q12 SET AVGB <<FuB1>>
E09 E12 P09 P12
H09 H12 M09 M12
J09 J12 K09 K12
D10 D11 Q10 Q11
H10 H11 M10 M11
I10 I11 L10 L11
J10 J11 K10 K11 SET AVGB <<FuB1>>
I01 I20 L01 L20
H02 H19 M02 M19
J02 J19 K02 K19
D03 D18 Q03 Q18
E03 E18 P03 P18
G03 G18 N03 N18
I03 I18 L03 L18 SET AVGB <<FuB1>>
C04 C17 R04 R17
H04 H17 M04 M17
C05 C16 R05 R16
E05 E16 P05 P16
J05 J16 K05 K16
F06 F15 O06 O15
H06 H15 M06 M15 SET AVGB <<FuB1>>
I06 I15 L06 L15
C07 C14 R07 R14
G07 G14 N07 N14
J07 J14 K07 K14
B08 B13 S08 S13
D08 D13 Q08 Q13
F08 F13 O08 O13 SET AVGB <<FuB1>>
A09 A12 T09 T12
C09 C12 R09 R12
F09 F12 O09 O12
I09 I12 L09 L12
B10 B11 S10 S11
E10 E11 P10 P11
G10 G11 N10 N11 SET AVGB <<FuB1>>
ENDCYCLE
SET-PARAM 'Mod Dens ' <<DensMod>>
SET-PARAM 'Bore ppm ' <<ppmB>>
SET-PARAM 'Mod Temp ' <<TempMod>>
SET-PARAM 'Puissance ' <<Pui>>
SET-PARAM 'CaloUp Dens ' <<DensCU1>>
SET-PARAM 'CaloDw Dens ' <<DensCD1>>
SET-PARAM 'Fuel Temp ' <<TempF1>>
SET-PARAM 'CaloUp Temp ' <<TempCU1>>
SET-PARAM 'CaloDw Temp ' <<TempCD1>> ;
MacroRfl := CRE: DbRefl ::
EDIT 0 NMIX 1
READ COMPO DbRefl
MIX 1 'REP_BOTT 1'
ENDMIX ;
MacroFl := NCR: DbRef_03 FuelMap ::
EDIT 0
MACRO
TABLE DbRef_03 'Rep_03' 'burnup'
MIX 2
SET CUBIC 'Puissance ' MAP
SET CUBIC 'Mod Dens ' MAP
SET LINEAR 'Bore ppm ' MAP
SET LINEAR 'Mod Temp ' MAP
SET CUBIC 'CaloUp Dens ' MAP
SET CUBIC 'CaloDw Dens ' MAP
SET CUBIC 'Fuel Temp ' MAP
SET CUBIC 'CaloUp Temp ' MAP
SET CUBIC 'CaloDw Temp ' MAP
ENDMIX ;
Macro2 Matex := MACINI: Matex MacroRfl MacroFl ;
System := TRIVAA: Macro2 Track ;
Flux := FLUD: System Track ::
EDIT 0 ADI 4
EXTE 1000 1.0E-6
THER 1.0E-6 ;
Puissance := FLPOW: FuelMap Flux Track Matex ::
EDIT 0 PTOT <<PuiCore>> ;
EVALUATE NameCycl := "Cycle" CycleIndex I_TO_S + ;
FuelMap := SIM: FuelMap Puissance ::
EDIT 0
CYCLE <<NameCycl>>
TIME <<Delt>> DAY
ENDCYCLE ;
Puissance := DELETE: Puissance ;
assertS Flux :: 'K-EFFECTIVE' 1 1.033056 ;
Flux := DELETE: Flux ;
END: ;
QUIT "LIST" .
|
