blob: d14611532838b3a3873dd863395695385056633d (
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
|
*----
* TEST CASE TCM15
* VVER Assembly of central water hole with 6 identical fuel cells
* NXT flux
* Coarse mesh
*----
MODULE
MAC: GEO: NXT: ASM: FLU: DELETE: END: ;
LINKED_LIST
MACRO GEOMF TRACK PIJMAT FLUX ;
SEQ_BINARY
TRACK_LGT ;
PROCEDURE assertS ;
*----
* Macroscopic XS
*----
MACRO := MAC: ::
NGRO 2 NMIX 4 NIFI 1
READ INPUT
MIX 1 TOTAL 2.60458171E-1 3.77224326E-1
SCAT 2 2 5.98954648E-5 2.49342978E-1
2 2 3.77127469E-1 1.11155845E-2
MIX 2 TOTAL 1.49818063E-1 1.59792125E-1
SCAT 2 2 7.40572286E-5 1.47693634E-1
2 2 1.57371104E-1 1.30506000E-3
MIX 3 TOTAL 3.22798014E-1 3.81341100E-1
NUSIGF 5.46564534E-3 7.17375278E-2
CHI 1.0 0.0
SCAT 2 2 3.13575147E-4 3.11233580E-1
2 2 3.24143648E-1 2.19577667E-3
MIX 4 TOTAL 2.60458171E-1 3.77224326E-1
SCAT 2 2 5.98954648E-5 2.49342978E-1
2 2 3.77127469E-1 1.11155845E-2
;
*----
* Geometries NXT
*----
GEOMF := GEO: :: HEX 7
EDIT 2
HBC COMPLETE REFL
CELL CT CFI CFI CFI CFI CFI CFI
::: CT := GEO: HEXTCEL 2 1
SIDE 0.736121593
SPLITR 3 1
MIX 1 2 1
RADIUS 0.0 0.386 0.445
;
::: CFI := GEO: HEXTCEL 2 1
SIDE 0.736121593
SPLITR 3 1
MIX 3 2 1
RADIUS 0.0 0.386 0.445
;
;
*----
* Transport calculation
* Flux calculation
*----
TRACK TRACK_LGT := NXT: GEOMF ::
EDIT 3 TITL 'VVER-NXT: Flux'
TISO 50 100.0 ;
PIJMAT := ASM: MACRO TRACK TRACK_LGT ::
EDIT 1 ;
FLUX := FLU: PIJMAT MACRO TRACK ::
EDIT 1 TYPE K ;
assertS FLUX :: 'K-EFFECTIVE' 1 1.055674 ;
TRACK TRACK_LGT GEOMF := DELETE: TRACK TRACK_LGT GEOMF ;
PIJMAT FLUX := DELETE: PIJMAT FLUX ;
MACRO := DELETE: MACRO ;
ECHO "test TCM15 completed" ;
END: ;
QUIT "LIST" .
|
