From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001 From: stainer_t Date: Mon, 8 Sep 2025 13:48:49 +0200 Subject: Initial commit from Polytechnique Montreal --- Dragon/data/salmacro_proc/TDCM48.c2m | 165 +++++++++++++++++++++++++++++++++++ 1 file changed, 165 insertions(+) create mode 100644 Dragon/data/salmacro_proc/TDCM48.c2m (limited to 'Dragon/data/salmacro_proc/TDCM48.c2m') diff --git a/Dragon/data/salmacro_proc/TDCM48.c2m b/Dragon/data/salmacro_proc/TDCM48.c2m new file mode 100644 index 0000000..ab2227a --- /dev/null +++ b/Dragon/data/salmacro_proc/TDCM48.c2m @@ -0,0 +1,165 @@ +*---- +* TEST CASE TDCM48 +* MACROSCOPIC CROSS SECTIONS +* SIMPLE ASSEMBLY BENCHMARK WITH A WINDMILL DISCRETIZATION +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEON2 TRACK MACRO PIJ FLUX ; +SEQ_BINARY TF_EXC ; +SEQ_ASCII UOX_TBH :: FILE './GEOtst_g2s.tdt' ; +SEQ_ASCII GEOtstPS :: FILE './GEOtst2_g2s.ps' ; +MODULE GEO: G2S: MAC: ASM: FLU: END: ; +PROCEDURE geomProc ; +PROCEDURE assertS ; +* +*------------------------------------* +* BEGIN GEOMETRY FOR FLUX CALCULATION* +* -----------------------------------* +REAL Rcomb1 := 0.288712 ; +REAL Rcomb2 := 0.365195 ; +REAL Rcomb3 := 0.397962 ; +REAL Rcomb4 := 0.4083 ; +REAL R_int_G := 0.4165 ; +REAL R_ext_G := 0.4775 ; +REAL Cote := 1.26 ; +REAL Lame := 0.042 ; +REAL mesh1 := Cote ; +REAL mesh2 := mesh1 Cote + ; +REAL mesh3 := mesh2 Cote + ; +REAL mesh4 := mesh3 Lame + ; +* +GEON2 := GEO: :: CAR2D 4 4 + EDIT 0 + X- DIAG X+ REFL + Y- SYME Y+ DIAG + CELL + C0101 C0201 C0301 Lame_V + C0202 C0302 Lame_V + C0303 Lame_V + Lame_C + MESHX 0.0 <> <> <> <> + MESHY 0.0 <> <> <> <> + ::: Lame_C := GEO: CAR2D 1 1 + MESHX 0.0 <> MESHY 0.0 <> + MIX 7 ; + + ::: Lame_V := GEO: CAR2D 1 1 + MESHX 0.0 <> MESHY 0.0 <> + SPLITY 3 MIX 7 ; + + ::: C0101 := GEO: CARCEL 6 + MESHX 0.0 <> + MESHY 0.0 <> + SECT 4 6 + RADIUS 0.0 <> <> <> <> + <> <> + MIX 1 2 3 4 5 6 7 7 7 7 7 7 7 7 7 7 7 7 ; + + ::: C0201 := GEO: C0101 + MIX 8 9 10 11 5 6 7 7 7 7 7 7 7 7 7 7 7 7 ; + + ::: C0202 := GEO: C0101 + MIX 12 13 14 15 5 6 7 7 7 7 7 7 7 7 7 7 7 7 ; + + ::: C0301 := GEO: C0101 + MIX 16 17 18 19 5 6 7 7 7 7 7 7 7 7 7 7 7 7 ; + + ::: C0302 := GEO: C0101 + MIX 20 21 22 23 5 6 7 7 7 7 7 7 7 7 7 7 7 7 ; + + ::: C0303 := GEO: C0101 + MIX 24 25 26 27 5 6 7 7 7 7 7 7 7 7 7 7 7 7 ; +; +UOX_TBH GEOtstPS := G2S: GEON2 :: DRAWMIX ; + +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 27 NIFI 1 + READ INPUT + MIX 1 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 2 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 3 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 4 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 5 (*VOID*) + TOTAL 0.001 SCAT 1 1 0.0005 + MIX 6 (*CLAD*) + TOTAL 0.4029 SCAT 1 1 0.4000 + MIX 7 (*WATER*) + TOTAL 0.3683 SCAT 1 1 0.35 + MIX 8 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 9 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 10 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 11 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 12 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 13 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 14 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 15 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 16 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 17 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 18 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 19 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 20 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 21 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 22 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 23 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 24 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 25 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 26 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 + MIX 27 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.07664 CHI 1.0 +; +* +* flux calculation +* +FLUX := geomProc UOX_TBH MACRO :: 8 0.01 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.031027 ; +ECHO "test TDCM48 completed" ; +END: ; +QUIT "LIST" . -- cgit v1.2.3