blob: ce1825eb87535a2282bfbd12ff49b76946849935 (
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
|
*---
* Regression test 3 for MCCG: and MOCC:
*---
* TEST CASE TCA241
* 9 x 9 PWR SIMPLIFIED ASSEMBLY WITH POISON
* CEA93V4 99 GROUPS LIBRARY FILE CEA93V4
*---
*----
* Define STRUCTURES and MODULES used
*----
LINKED_LIST LIBRARY ASSMB TRACK SYS FLUX EDIT ;
SEQ_BINARY TRACK_FIL ;
MODULE GEO: EXCELT: MCCGT: MAC: LIB: ASM: FLU: EDI: END: DELETE: ;
PROCEDURE assertS ;
*----
* Microscopic cross sections
*----
LIBRARY := LIB: ::
EDIT 0 ANIS 2 NMIX 3
MIXS LIB: APLIB2 FIL: CEA93V4
MIX 1 300.16
H2O = H2O_3_P5 2.3934E-02
MIX 2 579.9
U238 = U238_4 2.2089E-02 1 SHIB U238SS_3 IRSET 0.0 38
U235 = U235_4 8.6623E-04 1 SHIB U235SS_4 IRSET 0.0 38
O16 = O16_6 4.5910E-02
MIX 3 300.16
AL27 = AL27_4 3.9222E-02
;
*----
* Geometry ASSMB : a 9 X 9 PWR ASSEMBLY
* contains C1 : cell without fuel
* C2 : poisoned cell
* C3 : normal fuel cell
* C4 : peripheral cell
* C5 : corner cell
*----
ASSMB := GEO: :: CAR2D 5 5
X- DIAG X+ REFL Y- SYME Y+ DIAG
CELL C1 C3 C2 C3 C4
C3 C3 C3 C4
C2 C3 C4
C3 C4
C5
::: C1 := GEO: CARCEL 1
MESHX 0.0 1.262082
MESHY 0.0 1.262082
RADIUS 0.0 4.12660E-01
SPLITR 4
MIX 1 1
;
::: C2 := GEO: CARCEL 3
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: C1
MIX 2 1
;
::: C4 := GEO: C3
MESHX 0.0 1.322082
;
::: C5 := GEO: C4
MESHY 0.0 1.322082
;
;
*----
* MCCG (isotropic BC)
*----
*----
* Tracking calculation
*----
TRACK TRACK_FIL := EXCELT: ASSMB ::
EDIT 1 MAXR 100
TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON'
ANIS 2 TRAK TISO 12 20.0
;
*---
* Multigroup Flux Calculation
* Edition
*---
TRACK := MCCGT: TRACK TRACK_FIL ASSMB ::
EDIT 1 CACB 4
AAC 80 TMT EPSI 1E-5 STIS 1
MAXI 1 KRYL 0 SCR 0 HDD 100000.0 ;
SYS := ASM: LIBRARY TRACK TRACK_FIL ::
ARM EDIT 1 ;
FLUX := FLU: LIBRARY TRACK SYS TRACK_FIL ::
EDIT 1 TYPE K THER 5 5E-5 EXTE 100 1E-5 ;
assertS FLUX :: 'K-EFFECTIVE' 1 1.050948 ;
EDIT := EDI: FLUX LIBRARY TRACK ASSMB ::
EDIT 2 COND 14 27 52 75 89 99
MERGE MIX 1 2 3 ;
*---
* Memory Release
*---
TRACK TRACK_FIL SYS FLUX EDIT := DELETE:
TRACK TRACK_FIL SYS FLUX EDIT ;
*----
* MOCC (cyclic tracking)
*----
*----
* Tracking calculation
*----
TRACK TRACK_FIL := EXCELT: ASSMB ::
EDIT 1 MAXR 100
TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON'
ANIS 2 TRAK TSPC 7 20.0
;
*---
* Multigroup Flux Calculation
* Edition
*---
TRACK := MCCGT: TRACK TRACK_FIL ASSMB ::
EDIT 1 CACB 4
AAC 80 TMT EPSI 1E-5
MAXI 1 KRYL 0 SCR 0 HDD 0.0 ;
SYS := ASM: LIBRARY TRACK TRACK_FIL ::
ARM EDIT 2 ;
FLUX := FLU: LIBRARY TRACK SYS TRACK_FIL ::
EDIT 1 TYPE K THER 5 5E-5 EXTE 100 1E-5 ;
assertS FLUX :: 'K-EFFECTIVE' 1 1.071877 ;
EDIT := EDI: FLUX LIBRARY TRACK ASSMB ::
EDIT 2 COND 14 27 52 75 89 99
MERGE MIX 1 2 3 ;
*---
* Memory Release
*---
TRACK TRACK_FIL LIBRARY ASSMB SYS FLUX EDIT := DELETE:
TRACK TRACK_FIL LIBRARY ASSMB SYS FLUX EDIT ;
ECHO "test TCA241 completed" ;
END: ;
QUIT "LIST" .
|
