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/tmacro_proc/TCM36.c2m | 176 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 176 insertions(+) create mode 100644 Dragon/data/tmacro_proc/TCM36.c2m (limited to 'Dragon/data/tmacro_proc/TCM36.c2m') diff --git a/Dragon/data/tmacro_proc/TCM36.c2m b/Dragon/data/tmacro_proc/TCM36.c2m new file mode 100644 index 0000000..538327a --- /dev/null +++ b/Dragon/data/tmacro_proc/TCM36.c2m @@ -0,0 +1,176 @@ +*---- +* TEST CASE TCM36 +* 9 X 9 ASSEMBLY WITH DOUBLE HETEROGENEITY (BIHET) MIXTURES +* ONE-GROUP MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST MACRO ASSMB TRACK SYS FLUX EDIT ; +MODULE GEO: SYBILT: EXCELT: NXT: MCCGT: MAC: ASM: FLU: DELETE: END: ; +SEQ_BINARY TRACK_FIL ; +PROCEDURE assertS ; +* +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + TOTAL 0.3683 SCAT 1 1 0.3661 + MIX 2 + TOTAL 0.36522 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 3 + TOTAL 0.8453 SCAT 1 1 0.5216 + MIX 4 + TOTAL 0.3683 SCAT 1 1 0.0 + ; +ASSMB := GEO: :: CAR2D 5 5 + X- DIAG X+ REFL + Y- SYME Y+ DIAG + CELL C1 C3 C2 C3 C4 + C3 C3 C3 C4 + C2 C3 C4 + C3 C4 + C5 + BIHET SPHE (*NG=*) 2 (* NMILG= *) 2 (* SPHERICAL MICRO-STRUCTURE *) + (* NS= *) 3 3 + (* M-S-1 *) 0.0 0.1 0.2 0.3 (* M-S 2 *) 0.0 0.2 0.4 0.5 + (* COMPOSITE MIXTURES *) 5 6 + (* MIXTURES SURROUNDING M-S *) 2 2 + (* COMPOSITE MIXTURE 4 FRACT *) 0.4 0.0 + (* REAL MIXTURE CONTENT M-S-1 *) 3 1 3 + (* COMPOSITE MIXTURE 5 FRACT *) 0.2 0.1 + (* REAL MIXTURE CONTENT M-S-1 *) 1 2 1 + (* REAL MIXTURE CONTENT M-S-2 *) 2 3 1 + ::: C1 := GEO: CARCEL 0 + MESHX 0.0 1.262082 + MESHY 0.0 1.262082 + MIX 4 + ; + ::: C2 := GEO: CARCEL 3 + MESHX 0.0 1.262082 + MESHY 0.0 1.262082 + RADIUS 0.0 3.25296E-01 4.60039E-01 5.63430E-01 + MIX 5 3 3 1 + ; + ::: C3 := GEO: CARCEL 1 + MESHX 0.0 1.262082 + MESHY 0.0 1.262082 + RADIUS 0.0 4.12660E-01 + MIX 6 1 + ; + ::: C4 := GEO: C3 + MESHX 0.0 1.322082 + MIX 6 1 + ; + ::: C5 := GEO: C4 + MESHY 0.0 1.322082 + RADIUS 0.0 5.76770008E-01 + MIX 6 1 + ; + ; +*---- +* Eurydice interface current approximation (PIJ) +* Hebert double heterogeneity model +*---- +TRACK := SYBILT: ASSMB :: + EDIT 1 + MAXR 200 (*MAXIMUM OF 200 REGIONS*) + TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON' + ROT+ ASKE ; +* +SYS := ASM: MACRO TRACK :: EDIT 2 PIJ ; +FLUX := FLU: MACRO TRACK SYS :: TYPE B B0 SIGS ; +assertS FLUX :: 'B2 B1HOM' 1 -1.959593E-02 ; +TRACK SYS FLUX := DELETE: TRACK SYS FLUX ; +*---- +* Eurydice interface current approximation (ARM) +* Hebert double heterogeneity model +*---- +TRACK := SYBILT: ASSMB :: + EDIT 1 + MAXR 200 (*MAXIMUM OF 200 REGIONS*) + TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON' + ROT+ ASKE ; +* +SYS := ASM: MACRO TRACK :: EDIT 2 ARM ; +FLUX := FLU: MACRO TRACK SYS :: TYPE B B0 SIGS ; +assertS FLUX :: 'B2 B1HOM' 1 -1.959593E-02 ; +TRACK SYS FLUX := DELETE: TRACK SYS FLUX ; +*---- +* Excell approximation +* Hebert double heterogeneity model +*---- +TRACK TRACK_FIL := EXCELT: ASSMB :: + EDIT 1 + MAXR 80 (*MAXIMUM OF 80 REGIONS*) + TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON' + ALLG TRAK TISO 12 12.0 ; +* +SYS := ASM: MACRO TRACK TRACK_FIL :: EDIT 2 PIJ ; +FLUX := FLU: MACRO TRACK SYS :: TYPE B B0 SIGS ; +assertS FLUX :: 'B2 B1HOM' 1 -2.034746E-02 ; +TRACK TRACK_FIL SYS FLUX := DELETE: TRACK TRACK_FIL SYS FLUX ; +*---- +* NXT approximation with PIJ +*---- +TRACK TRACK_FIL := NXT: ASSMB :: + EDIT 1 + TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON' + ALLG TISO 12 12.0 ; +* +SYS := ASM: MACRO TRACK TRACK_FIL :: EDIT 2 PIJ ; +FLUX := FLU: MACRO TRACK SYS :: TYPE B B0 SIGS ; +assertS FLUX :: 'B2 B1HOM' 1 -2.029928E-02 ; +TRACK TRACK_FIL SYS FLUX := DELETE: TRACK TRACK_FIL SYS FLUX ; +*---- +* NXT approximation with MOC (white boundary condition) +*---- +TRACK TRACK_FIL := NXT: ASSMB :: + EDIT 1 + TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON' + ALLG TISO 12 12.0 ; +* +TRACK := MCCGT: TRACK TRACK_FIL ASSMB :: + EDIT 1 + EPSI 1E-6 HDD 0.0 + MAXI 10 KRYL 10 SCR 1 AAC 1 TMT ; +* +SYS := ASM: MACRO TRACK TRACK_FIL :: EDIT 2 ARM ; +FLUX := FLU: MACRO TRACK TRACK_FIL SYS :: TYPE B B0 SIGS ; +assertS FLUX :: 'B2 B1HOM' 1 -2.03004E-02 ; +TRACK TRACK_FIL SYS FLUX := DELETE: TRACK TRACK_FIL SYS FLUX ; +*---- +* NXT approximation with MOC (cyclic tracking) +*---- +TRACK TRACK_FIL := NXT: ASSMB :: + EDIT 5 + TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON' + ALLG TSPC 12 12.0 ; +* +TRACK := MCCGT: TRACK TRACK_FIL ASSMB :: + EDIT 1 + EPSI 1E-6 HDD 0.0 + MAXI 10 GAUS KRYL 10 SCR 1 AAC 1 TMT ; +* +SYS := ASM: MACRO TRACK TRACK_FIL :: EDIT 2 ARM ; +FLUX := FLU: MACRO TRACK TRACK_FIL SYS :: TYPE B B0 SIGS ; +assertS FLUX :: 'B2 B1HOM' 1 -2.026781E-02 ; +TRACK TRACK_FIL SYS FLUX := DELETE: TRACK TRACK_FIL SYS FLUX ; +*---- +* Eurydice interface current approximation (ARM) +* Sanchez-Pomraning double heterogeneity model +*---- +TRACK := SYBILT: ASSMB :: + EDIT 1 + MAXR 200 (*MAXIMUM OF 200 REGIONS*) + TITLE 'MULTICELL 9 X 9 PWR BENCHMARK WITH POISON' + ROT+ ASKE SAPO ; +* +SYS := ASM: MACRO TRACK :: EDIT 2 ARM ; +FLUX := FLU: MACRO TRACK SYS :: TYPE B B0 SIGS ; +assertS FLUX :: 'B2 B1HOM' 1 -1.954746E-2 ; +TRACK SYS FLUX := DELETE: TRACK SYS FLUX ; +* +ECHO "test TCM36 completed" ; +END: ; +QUIT "LIST" . -- cgit v1.2.3