blob: 9a850b4c81ae746ef012f910eae09af730913afb (
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
|
*----
* TEST CASE TCM01
* MACROSCOPIC CROSS SECTIONS
* FISSION SOURCE PROBLEM
* 1-D ANNULAR CELL
*
* REF: none
*
*----
* Define STRUCTURES and MODULES used
*----
LINKED_LIST
MACRO ANGEO TRACK SYS FLUX EDITION ;
SEQ_ASCII
res ;
MODULE
GEO: SYBILT: SNT: MAC: ASM: FLU: EDI: DELETE: END: ;
PROCEDURE assertS ;
*----
* Macroscopic XS
*----
MACRO := MAC: ::
NGRO 2 NMIX 2 NIFI 1
READ INPUT
MIX 1 TOTAL 0.222222 0.833333
SCAT 1 1 0.19222 2 2 0.75333 0.02
NUSIGF 0.0 0.135 CHI 1.0 0.0
MIX 2 TOTAL 0.166667 1.111111
SCAT 2 2 0.00015 0.126667 2 2 1.10111 0.04
;
*----
* Geometry : ANGEO - Annular 2 regions
*----
ANGEO := GEO: :: TUBE 2
R+ REFL
RADIUS 0.0 0.19653 1.0
MIX 1 2
SPLITR 1 4 ;
*----
* Tracking : SYBILT
* Solution : PIJ
* 1- KEFF WITHOUT BUCKLING
* 2- BUCKLING WITH KEFF=1
* 3- LEAKAGE WITH KEFF=1
*----
TRACK := SYBILT: ANGEO ::
TITLE 'TCM01: ANNULAR GEOMETRY WITH MACROSCOPIC XS (SYBIL)'
EDIT 1 MAXR 5 QUA1 5 ;
SYS := ASM: MACRO TRACK ;
FLUX := FLU: SYS MACRO TRACK ::
TYPE K ;
assertS FLUX :: 'K-INFINITY' 1 4.048651E-1 ;
EDITION := EDI: MACRO TRACK FLUX ::
EDIT 3 SAVE ;
FLUX := FLU: FLUX SYS MACRO TRACK ::
TYPE B B0 PNL ;
assertS FLUX :: 'K-INFINITY' 1 4.060840E-1 ;
EDITION := EDI: EDITION MACRO TRACK FLUX ::
EDIT 3 SAVE ;
FLUX := FLU: FLUX SYS MACRO TRACK ::
TYPE L B0 PNL ;
assertS FLUX :: 'K-INFINITY' 1 4.060870E-1 ;
EDITION := EDI: EDITION MACRO TRACK FLUX ::
EDIT 3 SAVE ;
FLUX SYS TRACK := DELETE: FLUX SYS TRACK ;
*----
* Tracking : SNT
*----
TRACK := SNT: ANGEO ::
TITLE 'TCM01: ANNULAR GEOMETRY WITH MACROSCOPIC XS (SN)'
EDIT 2 MAXR 5 SN 4 SCAT 1 GMRES 4 ;
SYS := ASM: MACRO TRACK :: ARM ;
FLUX := FLU: SYS MACRO TRACK ::
EDIT 2 TYPE K ;
assertS FLUX :: 'K-INFINITY' 1 4.046264E-1 ;
ECHO "test TCM01 completed" ;
END: ;
QUIT "LIST" .
|
