blob: e616b3ffc864dee7a4b02a7426153750feb1dc5e (
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
|
*DECK Mix_UOX
*----
* Name : Mix_UOX.c2m
* Type : DRAGON procedure
* Use : Microlib generation with Apolib3 for
* UOX calculation with 20 fuel regions
* Author : A. Hebert
*
* Procedure called as:
*
* LIBRARY := Mix_UOX ::
* <<library>> <<dens_mod>> <<pbore>> ;
*
* Input data :
* Library : Cross-section library name
* dens_mod : Coolant density
* pbore : Natural boron concentration (ppm)
*
* Output data :
* LIBRARY : Microlib with table of probabilities
PARAMETER LIBRARY ::
EDIT 0
::: LINKED_LIST LIBRARY ;
;
*----
* Input data recovery
*----
STRING Library ;
:: >>Library<< ;
REAL dens_mod pbore ;
:: >>dens_mod<< >>pbore<< ;
*----
* Modules used in this procedure
*----
MODULE LIB: UTL: DELETE: END: ABORT: ;
* Calculation of moderator data
REAL A := 6.022094E-1 ; ! Avogadro number
REAL P_B10 P_B11 := 0.202 0.798 ;
REAL M_H2O := 15.9994 2.0 1.00794 * + ;
REAL M_B := P_B10 10.012938 * P_B11 11.009276 * + ;
REAL f1 := 1.0 1.0E-06 pbore * - ;
REAL f2 := 1.0E-06 pbore * ;
REAL N_H2O := dens_mod f1 A * * M_H2O / ;
REAL N_B10 := P_B10 dens_mod f2 A * * * M_B / ;
REAL N_B11 := P_B11 dens_mod f2 A * * * M_B / ;
ECHO "Mix_UOX H2O=" N_H2O ;
ECHO "Mix_UOX B10=" N_B10 ;
ECHO "Mix_UOX B11=" N_B11 ;
LIBRARY := LIB: ::
EDIT 2
NMIX 24 (*MAXIMUM OF MATERIAL MIXTURES*)
CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*)
ANIS 2
ADED 4 NELAS N4N N2N N3N
SUBG (*HELIOS TYPE PROBABILITY TABLES*)
*----
* Depletion Chain
*----
MIXS LIB: APLIB3 FIL: <<Library>>
*----
* Cladding
*----
MIX 1 600.0 NOEV
Zr90 = Zr90 2.16576E-2 2
Zr91 = Zr91 4.72300E-3 2
Zr92 = Zr92 7.21921E-3 2
Zr94 = Zr94 7.31603E-3 2
Zr96 = Zr96 1.17864E-3 2
*----
* Moderator
*----
MIX 2 600.0 NOEV
H2O = H2O <<N_H2O>>
B10 = B10 <<N_B10>>
B11 = B11 <<N_B11>>
*----
* Fuel -> 5 * 4 evolving mixes
*----
* C1 Cell
MIX 3 900.0
U235 = U235 4.08785E-4 1
U238 = U238 2.20157E-2 1
O16 = O16 4.48565E-2
MIX 4
COMB 3 1.0
MIX 5
COMB 3 1.0
MIX 6
COMB 3 1.0
MIX 7
COMB 3 1.0
MIX 8
COMB 3 1.0
MIX 9
COMB 3 1.0
MIX 10
COMB 3 1.0
MIX 11
COMB 3 1.0
MIX 12
COMB 3 1.0
MIX 13
COMB 3 1.0
MIX 14
COMB 3 1.0
MIX 15
COMB 3 1.0
MIX 16
COMB 3 1.0
MIX 17
COMB 3 1.0
MIX 18
COMB 3 1.0
MIX 19
COMB 3 1.0
MIX 20
COMB 3 1.0
MIX 21
COMB 3 1.0
MIX 22
COMB 3 1.0
*----
* Tube
*----
MIX 23
COMB 1 1.0
*----
* Stiffner
*----
MIX 24
COMB 1 1.0
;
END: ;
QUIT .
|
