blob: 1efaf37f9ec9bdcb7704bd8ab00746330e4471bd (
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
|
*----
* TEST CASE TCW607
* CANDU-6 CARTESIAN CELL
* WIMS-AECL 89 GROUPS LIBRARY FILE E6MLIB
* TEST VARIOUS LEAKAGE OPTIONS
*
* REF: R. Roy et al. Ann. Nucl. Energy 21, 115 (1994)
*
*----
* Define STRUCTURES and MODULES used
*----
LINKED_LIST
LIBRARY CANDU6S CANDU6T CANDU6SV CANDU6TV TRACK
SYS FLUX EDITION ;
MODULE
GEO: EXCELT: LIB: SHI: ASM: FLU: EDI: DELETE: END: ;
SEQ_BINARY
INTLIN ;
PROCEDURE assertS ;
*----
* Microscopic cross sections from file E6MLIB format WIMS-AECL
*----
LIBRARY := LIB: ::
EDIT 0 NMIX 10 CTRA WIMS
MIXS LIB: WIMSAECL FIL: E6MLIB
MIX 1 560.66 0.81212 O16 = O16 7.99449E-1
D2D2O = DD2O 1.99768E-1 H1H2O = H1H2O 7.83774E-4
MIX 2 560.66 6.57 Nb93 = NB93 2.50000
BNat10 = B10 0.41790E-4 BNat11 = B11 1.68210E-4
Zr91 = ZR91 9.75000E+1
MIX 3 345.66 0.0014 He4 = O16 1.00000E+2
MIX 4 345.66 6.44 Fe56 = FE56 1.60000E-1
Ni58 = NI58 6.00000E-2 Cr52 = CR52 1.10000E-1
BNat10 = B10 0.61690E-4 BNat11 = B11 2.48310E-4
Zr91 = ZR91 9.97100E+1
MIX 5 345.66 1.082885 O16 = O16 7.98895E-1
D2D2O = DD2O 2.01016E-1 H1H2O = H1H2O 8.96000E-5
MIX 6 941.29 10.4375010 O16 = O16 1.18473E+1
U235 = U235 6.27118E-1 1
U238 = U238 8.75256E+1 1
MIX 7 COMB 6 1.0
MIX 8 COMB 6 1.0
MIX 9 COMB 6 1.0
MIX 10 560.66 6.44 Fe56 = FE56 1.60000E-1
Ni58 = NI58 6.00000E-2 Cr52 = CR52 1.10000E-1
BNat10 = B10 0.61690E-4 BNat11 = B11 2.48310E-4
Zr91 = ZR91 9.97100E+1
;
*----
* Geometry CANDU6S : GEOMETRY FOR SELF-SHIELDING (NO VOID)
* CANDU6F : GEOMETRY FOR TRANSPORT (NO VOID)
* CANDU6FV: GEOMETRY FOR TRANSPORT (COOLANT VOID)
* CANDU6FV: GEOMETRY FOR TRANSPORT (COOLANT VOID)
*----
CANDU6S := GEO: :: CARCEL 5
X+ REFL X- REFL MESHX -14.2875 14.2875
Y+ REFL Y- REFL MESHY -14.2875 14.2875
RADIUS 0.00000 5.16890 5.60320 6.44780 6.58750 14.00
MIX 1 2 3 4 5 5
CLUSTER ROD1 ROD2 ROD3 ROD4
::: ROD1 := GEO: TUBE 2 MIX 6 10 NPIN 1 RPIN 0.0000 APIN 0.0000
RADIUS 0.00000 0.6122 0.6540 ;
::: ROD2 := GEO: ROD1 MIX 7 10 NPIN 6 RPIN 1.4885 APIN 0.0000 ;
::: ROD3 := GEO: ROD1 MIX 8 10 NPIN 12 RPIN 2.8755 APIN 0.261799 ;
::: ROD4 := GEO: ROD1 MIX 9 10 NPIN 18 RPIN 4.3305 APIN 0.0 ;
;
CANDU6T := GEO: CANDU6S :: SPLITR 6 1 1 1 10
::: ROD1 := GEO: ROD1 SPLITR 2 1 ;
::: ROD2 := GEO: ROD2 SPLITR 2 1 ;
::: ROD3 := GEO: ROD3 SPLITR 2 1 ;
::: ROD4 := GEO: ROD4 SPLITR 2 1 ;
;
CANDU6SV := GEO: CANDU6S :: MIX 0 2 3 4 5 5 ;
CANDU6TV := GEO: CANDU6SV :: SPLITR 6 1 1 1 10
::: ROD1 := GEO: ROD1 SPLITR 2 1 ;
::: ROD2 := GEO: ROD2 SPLITR 2 1 ;
::: ROD3 := GEO: ROD3 SPLITR 2 1 ;
::: ROD4 := GEO: ROD4 SPLITR 2 1 ;
;
*----
* CASE WITH NO VOID
* Self-Shielding calculation EXCEL
* Transport calculation EXCEL
* Flux TYPE K AND B WITH VARIOUS LEAKAGE OPTIONS
*----
TRACK INTLIN := EXCELT: CANDU6S ::
TITLE 'TCW607: CANDU-6 CARTESIAN FUEL TEMP= 941.29'
EDIT 0 MAXR 14 TRAK TISO 7 20.0 SYMM 4 ;
LIBRARY := SHI: LIBRARY TRACK INTLIN :: EDIT 0 NOLJ ;
TRACK INTLIN := DELETE: TRACK INTLIN ;
TRACK INTLIN := EXCELT: CANDU6T ::
TITLE 'TCW607: CANDU-6 CARTESIAN FUEL TEMP= 941.29'
EDIT 0 MAXR 32 ANIS 2 TRAK TISO 7 20.0 SYMM 4 ;
SYS := ASM: LIBRARY TRACK INTLIN ::
EDIT 0 PIJK ;
FLUX := FLU: SYS LIBRARY TRACK ::
TYPE K ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9172119 ;
EDITION := EDI: FLUX LIBRARY TRACK ::
EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ;
FLUX := FLU: FLUX SYS LIBRARY TRACK ::
TYPE B B1 PNL ;
assertS FLUX :: 'K-INFINITY' 1 0.9222654 ;
EDITION := EDI: EDITION FLUX LIBRARY TRACK ::
EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ;
FLUX := FLU: FLUX SYS LIBRARY TRACK ::
TYPE B B1 HETE ;
assertS FLUX :: 'K-INFINITY' 1 0.9223002 ;
EDITION := EDI: EDITION FLUX LIBRARY TRACK ::
EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ;
FLUX SYS := DELETE: FLUX SYS ;
SYS := ASM: LIBRARY TRACK INTLIN ::
EDIT 0 PIJ ECCO ;
FLUX := FLU: SYS LIBRARY TRACK ::
TYPE B B1 ECCO ;
assertS FLUX :: 'K-INFINITY' 1 0.9222991 ;
EDITION := EDI: EDITION FLUX LIBRARY TRACK ::
EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ;
FLUX SYS TRACK INTLIN := DELETE: FLUX SYS TRACK INTLIN ;
*----
* CASE WITH COOLANT VOIDED
* Self-Shielding calculation EXCEL
* Transport calculation EXCEL
* Flux TYPE K AND B WITH VARIOUS LEAKAGE OPTIONS
*----
TRACK INTLIN := EXCELT: CANDU6SV ::
TITLE 'TCW607: CANDU-6 CARTESIAN FUEL TEMP= 941.29'
EDIT 0 MAXR 14 TRAK TISO 7 20.0 SYMM 4 ;
LIBRARY := SHI: LIBRARY TRACK INTLIN :: EDIT 0 NOLJ ;
TRACK INTLIN := DELETE: TRACK INTLIN ;
TRACK INTLIN := EXCELT: CANDU6TV ::
TITLE 'TCW607: CANDU-6 CARTESIAN FUEL TEMP= 941.29'
EDIT 0 MAXR 32 ANIS 2 TRAK TISO 7 20.0 SYMM 4 ;
SYS := ASM: LIBRARY TRACK INTLIN ::
EDIT 0 PIJK ;
FLUX := FLU: SYS LIBRARY TRACK ::
TYPE K ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9441713 ;
EDITION := EDI: EDITION FLUX LIBRARY TRACK ::
EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ;
FLUX := FLU: FLUX SYS LIBRARY TRACK ::
TYPE B B1 PNL ;
assertS FLUX :: 'K-INFINITY' 1 0.9469538 ;
EDITION := EDI: EDITION FLUX LIBRARY TRACK ::
EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ;
FLUX := FLU: FLUX SYS LIBRARY TRACK ::
TYPE B B1 TIBERE ;
assertS FLUX :: 'K-INFINITY' 1 0.9469025 ;
EDITION := EDI: EDITION FLUX LIBRARY TRACK ::
EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ;
FLUX SYS := DELETE: FLUX SYS ;
SYS := ASM: LIBRARY TRACK INTLIN ::
EDIT 0 PIJ ECCO ;
FLUX := FLU: SYS LIBRARY TRACK ::
TYPE B B1 ECCO ;
assertS FLUX :: 'K-INFINITY' 1 0.9469002 ;
EDITION := EDI: EDITION FLUX LIBRARY TRACK ::
EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ;
FLUX SYS TRACK INTLIN := DELETE: FLUX SYS TRACK INTLIN ;
ECHO "test TCW607 completed" ;
END: ;
QUIT "LIST" .
|
