blob: 732ab96be37a3e3507926a77f6b2621db5f4f7e9 (
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
|
*----
* 295-group eighth assembly in DRAGON
* one-level zero-burnup scheme
*----
SEQ_ASCII UOX_TBH :: FILE './UOX_TBH.dat' ;
LINKED_LIST GEOSS GEON1 TRACKSS TRACKN1 TRACKN2 LIBRARY LIBRARY2
SYS FLUX EDITION LIBEQ ;
MODULE SYBILT: SALT: MCCGT: USS: ASM: FLU: EDI: END: ;
REAL Rcomb1 Rcomb2 Rcomb3 Rcomb4 R_int_TG R_ext_TG R_int_TI R_ext_TI
R_int_G R_ext_G Cote CoteL RmodeN1 ;
REAL dens_mod_0 pbore_0 N_U5_UOX densU_UOX temp_comb_0 temp_mode_0
temp_clad_0 ;
SEQ_BINARY TF_EXC ;
INTEGER an2d := 8 ;
REAL densur := 20.0 ;
STRING Library := "DLIB_295" ;
PROCEDURE Geo_SS_32 Mix_UOX_32 MultLIBEQ_32 ;
PROCEDURE assertS ;
************************************************************************
* BEGIN GEOMETRY *
************************************************************************
EVALUATE Rcomb1 := 0.288712 ;
EVALUATE Rcomb2 := 0.365195 ;
EVALUATE Rcomb3 := 0.397962 ;
EVALUATE Rcomb4 := 0.4083 ;
EVALUATE R_int_TG := 0.5691 ;
EVALUATE R_ext_TG := 0.6095 ;
EVALUATE R_int_TI := 0.5691 ;
EVALUATE R_ext_TI := 0.6095 ;
EVALUATE R_int_G := 0.4165 ;
EVALUATE R_ext_G := 0.4775 ;
EVALUATE Cote := 1.26 ;
EVALUATE CoteL := 1.302 ;
EVALUATE RmodeN1 := 0.670 ;
GEOSS := Geo_SS_32 :: <<Rcomb1>> <<Rcomb2>> <<Rcomb3>> <<Rcomb4>>
<<R_int_TG>> <<R_ext_TG>> <<R_int_TI>>
<<R_ext_TI>> <<R_int_G>> <<R_ext_G>> <<Cote>>
<<CoteL>> ;
************************************************************************
* END GEOMETRY *
************************************************************************
************************************************************************
* BEGIN TRACKING *
************************************************************************
TRACKSS := SYBILT: GEOSS ::
EDIT 0
MAXR 500
MAXZ 1000000
TITLE 'TRACKING FOR ASSEMBLY SS'
QUA2 20 3
DP01 ;
TRACKN2 TF_EXC := SALT: UOX_TBH ::
EDIT 3
ALLG
TSPC EQW2 <<an2d>> <<densur>> REND
;
TRACKN2 := MCCGT: TRACKN2 TF_EXC ::
CACB 4 AAC 80 TMT EPSI 1E-5 MCU 10000 ;
************************************************************************
* END TRACKING *
************************************************************************
************************************************************************
* BEGIN LIBRARY READING *
************************************************************************
EVALUATE dens_mod_0 := 1.002 ;
EVALUATE pbore_0 := 0.0 ;
EVALUATE N_U5_UOX := 0.03 ;
EVALUATE densU_UOX := 10.45 ;
EVALUATE temp_comb_0 := 1200.0 ;
EVALUATE temp_mode_0 := 600.0 ;
EVALUATE temp_clad_0 := 900.0 ;
LIBRARY := Mix_UOX_32 ::
<<Library>> <<dens_mod_0>> <<pbore_0>> <<N_U5_UOX>> <<densU_UOX>>
<<temp_comb_0>> <<temp_mode_0>> <<temp_clad_0>> ;
************************************************************************
* END LIBRARY READING *
************************************************************************
*----
* USS
*----
LIBRARY2 := USS: LIBRARY TRACKSS :: EDIT 0 PASS 2 ARM ;
LIBRARY2 := MultLIBEQ_32 LIBRARY2 ;
SYS := ASM: LIBRARY2 TRACKN2 TF_EXC :: ARM EDIT 1 ;
FLUX := FLU: LIBRARY2 SYS TRACKN2 TF_EXC ::
EDIT 1 TYPE K ;
************************************************************************
* END SECOND LEVEL FLUX CALCULATION *
************************************************************************
assertS FLUX :: K-EFFECTIVE 1 1.368096 ;
ECHO "test UOX_TBH_eighth_1level completed" ;
END: ;
|
