blob: 2284e4298b9783a92e100cf4b668880f4ec12a00 (
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
|
*----
* TEST CASE UOX_5x5_TG6_sym8_multiDom
* SIMPLE 5 X 5 PWR ASSEMBLY WITH SYBIL
* Input cross section data from Apex
*----
* Define STRUCTURES and MODULES used
*----
LINKED_LIST ASSMB TRACK MACRO SYS FLUX ;
HDF5_FILE UOX_5x5 :: FILE './UOX_5x5_TG6_sym8_multiDom.h5' ;
MODULE GEO: HUTL: SPH: SYBILT: ASM: FLU: END: ;
REAL B2 ;
PROCEDURE assertS ;
REAL side1 := 1.26 ;
REAL side2 := side1 1.26 + ;
REAL side3 := side2 1.26 + ;
ASSMB := GEO: :: CAR2D 3 3 (*ASSEMBLY 5 X 5*)
X- DIAG X+ REFL
Y- SYME Y+ DIAG
MESHX 0.0 <<side1>> <<side2>> <<side3>>
MIX 1 2 4
3 5
6
;
TRACK := SYBILT: ASSMB ::
EDIT 1
MAXR 40 (*MAXIMUM OF 40 REGIONS*)
MAXZ 100000
TITLE 'SIMPLE 5x5 FUEL ASSEMBLY'
QUA2 6 6
DP00 ;
HUTL: UOX_5x5 :: DIR
GREP '/calc 1/miscellaneous/B2' 1 >>B2<< ;
ECHO 'buckling B2=' B2 ;
UOX_5x5 := SPH: UOX_5x5 TRACK :: EDIT 6 STEP AT 1
EQUI 'equivalence_P0c_up0' ;
MACRO := SPH: UOX_5x5 :: EDIT 3 STEP AT 1 MACRO SPRD
EQUI 'equivalence_P0c_up0' ;
SYS := ASM: MACRO TRACK :: PIJ ;
FLUX := FLU: MACRO TRACK SYS :: TYPE K LKRD SIGS BUCK <<B2>> ;
assertS FLUX :: 'K-INFINITY' 1 1.320080 ;
ECHO "UOX_5x5_TG6_sym8_multiDom completed" ;
END: ;
|
