blob: 0bd010ff8b9a3c005e14fb303f5153fdd7d2cfd1 (
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
|
*----
* TEST CASE TCND07
* CANDU-6 CARTESIAN CELL
* NDAS 89-GROUP CROSS-SECTION LIBRARY
* TEST VARIOUS LEAKAGE OPTIONS
*
*----
* 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 ;
*----
* Depletion data from file in NDAS format
* Microscopic cross sections from file in NDAS format
*----
PROCEDURE TCND05Lib ;
INTEGER iedit := 1 ;
LIBRARY := TCND05Lib :: <<iedit>> ;
*----
* 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 'TCND07: 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 'TCND07: 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 1.117730 ;
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 1.109864 ;
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 1.109848 ;
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 1.109855 ;
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 'TCND07: 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 'TCND07: 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 1.137467 ;
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 1.129905 ;
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 1.130159 ;
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 1.130171 ;
FLUX SYS TRACK INTLIN := DELETE: FLUX SYS TRACK INTLIN ;
ECHO "test TCND07 completed" ;
END: ;
QUIT "LIST" .
|
