blob: 328428ca051817921d1961010de11f4c02d7169e (
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
|
*----
* TEST CASE TCM52
* 9 X 9 PWR CASE WITH SYBIL AND EDF-TYPE SPH EQUIVALENCE
* MACROLIB-DEFINED CROSS SECTIONS
*----
* Define STRUCTURES and MODULES used
*----
LINKED_LIST ASSMB TRACK MACRO SYS FLUX EDIT ASSMB2 MACRO2 TRACK2
SYS2 FLUX2 ;
MODULE GEO: SYBILT: MAC: ASM: FLU: EDI: BIVACT: SPH: DELETE: END: ;
PROCEDURE assertS ;
*
MACRO := MAC: ::
EDIT 2 NGRO 1 NMIX 3 NIFI 1 ANIS 2
READ INPUT
MIX 1 (*EAU*)
TOTAL 0.3683
SCAT 1 1 0.3661 1 1 0.1212
MIX 2 (*COMBUSTIBLE*)
TOTAL 0.36522
SCAT 1 1 0.3234 1 1 0.1100
NUSIGF 0.09564 CHI 1.0
MIX 3 (*ARGENT*)
TOTAL 0.8453
SCAT 1 1 0.5216 1 1 0.4212
;
ASSMB := GEO: :: CAR2D 6 6 (*ASSEMBLAGE 9 X 9*)
X- DIAG X+ REFL
Y- SYME Y+ DIAG
CELL C1 C3 C2 C3 C3 C4
C3 C3 C3 C3 C4
C2 C3 C3 C4
C3 C3 C4
C3 C4
C5
MERGE 1 2 3 4 5 14
6 7 8 9 15
10 11 9 15
12 9 15
13 16
17
::: C1 := GEO: CARCEL 1 (*CELLULE SANS COMBUSTIBLE*)
MESHX 0.0 1.262082
MESHY 0.0 1.262082
RADIUS 0.0 4.12660E-01
MIX 1 1
;
::: C2 := GEO: CARCEL 3 (*CELLULE EMPOISONNEE*)
MESHX 0.0 1.262082
MESHY 0.0 1.262082
RADIUS 0.0 3.25296E-01 4.60039E-01 5.63430E-01
MIX 3 3 3 1
;
::: C3 := GEO: CARCEL 1 (*CELLULE NORMALE*)
MESHX 0.0 1.262082
MESHY 0.0 1.262082
RADIUS 0.0 4.12660E-01
MIX 2 1
;
::: C4 := GEO: CARCEL 0 (*LAME PERIPHERIQUE*)
MESHX 1.262082 1.322082
MESHY 0.0 1.262082
MIX 1
;
::: C5 := GEO: CARCEL 0 (*LAME DE COIN*)
MESHX 1.262082 1.322082
MESHY 1.262082 1.322082
MIX 1
;
;
TRACK := SYBILT: ASSMB ::
EDIT 10
MAXR 60 (*MAXIMUM OF 40 REGIONS*)
TITLE 'TCM32: MULTICELL 9 X 9 PWR BENCHMARK WITH POISON'
DP00
;
*
SYS := ASM: MACRO TRACK :: PIJ ;
FLUX := FLU: SYS MACRO TRACK ::
TYPE B B1 ;
assertS FLUX :: 'K-INFINITY' 1 0.9956894 ;
*----
* TRANSPORT-DIFFUSION EQUIVALENCE (FLUX-VOLUME STANDARD NORMALIZATION)
*----
* EDITION FOR HETEROGENEOUS DIFFUSION CALCULATIONS
* CELL-BY-CELL SPH HOMOGENIZATION OF THE ASSEMBLY
ASSMB2 := GEO: :: CAR2D 5 5 (*HOMOGENIZED ASSEMBLY 9 X 9*)
X- DIAG X+ REFL
Y- SYME Y+ DIAG
MIX 1 2 3 4 5
6 7 8 9
10 11 9
12 9
13
MESHX 0.0 1.262082 2.524164 3.786246 5.048328 6.37041
MESHY 0.0 1.262082 2.524164 3.786246 5.048328 6.37041
;
EDIT := EDI: FLUX MACRO TRACK ASSMB2 ::
EDIT 9 SAVE MERG REGI 1 1 2 2 3 3 3 3 4 4 5 5 6 6
7 7 8 8 9 9 10 10 10 10 11 11
12 12 13 13 5 9 13 13
MGEO ASSMB2
;
TRACK2 := BIVACT: ASSMB2 :: DUAL (*IELEM=*) 1 (*ICOL=*) 2 ;
EDIT := SPH: EDIT TRACK2 ::
EDIT 9 STD ITER 1.0E-5
;
*
* VERIFICATION CALCULATION (FLUX-VOLUME STANDARD NORMALIZATION)
ASSMB2 := DELETE: ASSMB2 ;
ASSMB2 := EDIT :: STEP UP 'MACRO-GEOM' ;
MACRO2 := EDIT :: STEP UP 'REF-CASE0001' STEP UP 'MACROLIB' ;
SYS2 := ASM: MACRO2 TRACK2 :: ARM ;
FLUX2 := FLU: MACRO2 TRACK2 SYS2 :: TYPE K LKRD BUCK 0.0 ;
assertS FLUX2 :: K-EFFECTIVE 1 0.9957190 ;
ASSMB2 MACRO2 TRACK2 EDIT SYS2 FLUX2
:= DELETE: ASSMB2 MACRO2 TRACK2 SYS2 FLUX2 EDIT ;
*----
* TRANSPORT-DIFFUSION EQUIVALENCE (EDF-TYPE SELENGUT)
*----
* EDITION FOR HETEROGENEOUS DIFFUSION CALCULATIONS
* CELL-BY-CELL SPH HOMOGENIZATION OF THE ASSEMBLY
ASSMB2 := GEO: :: CAR2D 5 5 (*HOMOGENIZED ASSEMBLY 9 X 9*)
X- DIAG X+ REFL
Y- SYME Y+ DIAG
MIX 1 2 3 4 5
6 7 8 9
10 11 9
12 9
13
MESHX 0.0 1.262082 2.524164 3.786246 5.048328 6.37041
MESHY 0.0 1.262082 2.524164 3.786246 5.048328 6.37041
;
EDIT := EDI: FLUX MACRO TRACK ASSMB2 ::
EDIT 9 SAVE MERG REGI 1 1 2 2 3 3 3 3 4 4 5 5 6 6
7 7 8 8 9 9 10 10 10 10 11 11
12 12 13 13 5 9 13 13
MGEO ASSMB2
ADF 'FD_B' REGI 31 32 33 34 ENDR
;
TRACK2 := BIVACT: ASSMB2 :: DUAL (*IELEM=*) 1 (*ICOL=*) 2 ;
EDIT := SPH: EDIT TRACK2 ::
EDIT 9 SELE_FD ITER 1.0E-5
;
*
* VERIFICATION CALCULATION (EDF-TYPE SELENGUT)
ASSMB2 := DELETE: ASSMB2 ;
ASSMB2 := EDIT :: STEP UP 'MACRO-GEOM' ;
MACRO2 := EDIT :: STEP UP 'REF-CASE0001' STEP UP 'MACROLIB' ;
SYS2 := ASM: MACRO2 TRACK2 :: ARM ;
FLUX2 := FLU: MACRO2 TRACK2 SYS2 :: TYPE K LKRD BUCK 0.0 ;
assertS FLUX2 :: K-EFFECTIVE 1 0.9957197 ;
ASSMB2 MACRO2 TRACK2 EDIT SYS2 FLUX2
:= DELETE: ASSMB2 MACRO2 TRACK2 SYS2 FLUX2 EDIT ;
*----
* TRANSPORT-DIFFUSION EQUIVALENCE (EDF-TYPE GENERALIZED SELENGUT)
*----
* EDITION FOR HETEROGENEOUS DIFFUSION CALCULATIONS
* CELL-BY-CELL SPH HOMOGENIZATION OF THE ASSEMBLY
ASSMB2 := GEO: :: CAR2D 5 5 (*HOMOGENIZED ASSEMBLY 9 X 9*)
X- DIAG X+ REFL
Y- SYME Y+ DIAG
MIX 1 2 3 4 5
6 7 8 9
10 11 9
12 9
13
MESHX 0.0 1.262082 2.524164 3.786246 5.048328 6.37041
MESHY 0.0 1.262082 2.524164 3.786246 5.048328 6.37041
;
EDIT := EDI: FLUX MACRO TRACK ASSMB2 ::
EDIT 9 SAVE MERG REGI 1 1 2 2 3 3 3 3 4 4 5 5 6 6
7 7 8 8 9 9 10 10 10 10 11 11
12 12 13 13 5 9 13 13
MGEO ASSMB2
ADF 'FD_B' REGI 31 32 33 34 ENDR
ADF 'FD_H' REGI 11 12 19 20 29 30 31 32 33 34 ENDR
;
TRACK2 := BIVACT: ASSMB2 :: DUAL (*IELEM=*) 1 (*ICOL=*) 2 ;
EDIT := SPH: EDIT TRACK2 ::
EDIT 9 SELE_EDF ITER 1.0E-5
;
*
* VERIFICATION CALCULATION (EDF-TYPE GENERALIZED SELENGUT)
ASSMB2 := DELETE: ASSMB2 ;
ASSMB2 := EDIT :: STEP UP 'MACRO-GEOM' ;
MACRO2 := EDIT :: STEP UP 'REF-CASE0001' STEP UP 'MACROLIB' ;
SYS2 := ASM: MACRO2 TRACK2 :: ARM ;
FLUX2 := FLU: MACRO2 TRACK2 SYS2 :: TYPE K LKRD BUCK 0.0 ;
assertS FLUX2 :: K-EFFECTIVE 1 0.9957194 ;
ASSMB2 EDIT := DELETE: ASSMB2 EDIT ;
ECHO "test TCM52 completed" ;
END: ;
QUIT "LIST" .
|
