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/TCM05.c2m | 204 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 204 insertions(+) create mode 100644 Dragon/data/tmacro_proc/TCM05.c2m (limited to 'Dragon/data/tmacro_proc/TCM05.c2m') diff --git a/Dragon/data/tmacro_proc/TCM05.c2m b/Dragon/data/tmacro_proc/TCM05.c2m new file mode 100644 index 0000000..0b25179 --- /dev/null +++ b/Dragon/data/tmacro_proc/TCM05.c2m @@ -0,0 +1,204 @@ +*---- +* TEST CASE TCM05 +* MACROSCOPIC CROSS SECTIONS +* FISSION SOURCE PROBLEM +* 2-D CARTESIAN/ANNULAR CELL +* Validating leakage options +* TYPE K B L FOR MOSTELC (NO VOID) +* TYPE K B L FOR MOSTELCV (MOSTELC WITH VOID) +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST + MOSTELC MOSTELCV TRACK MACRO SYS FLUX EDITION ; +SEQ_BINARY + TRKSPC ; +MODULE + GEO: EXCELT: MAC: ASM: FLU: EDI: DELETE: END: ; +PROCEDURE assertS ; +*---- +* Macroscopic XS +*---- +MACRO := MAC: :: + NGRO 2 ANIS 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 + 1 1 0.1 2 2 0.5 0.01 + 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 + 2 2 0.0001 0.1 2 2 0.5 0.01 + ; +*---- +* Geometry : MOSTELC - Cartesian 2D cell without void region +* MOSTELCV - Cartesian 2D cell with void region +*---- +MOSTELC := GEO: :: CARCEL 2 + X- REFL X+ REFL Y- REFL Y+ REFL + MESHX 0.0 1.26209 MESHY 0.0 1.26209 + RADIUS 0.0 0.39306 0.45802 SPLITR 2 1 + MIX 1 2 2 ; +MOSTELCV := GEO: MOSTELC :: + MIX 1 0 2 ; +*---- +* Tracking : EXCELT - MOSTELC +* ANIS 2 for adequate dimensions in PIJK +* Solution : TYPE K, B or L +* Leakage : B1 PNL, B1 TIBERE +*---- +TRACK TRKSPC := EXCELT: MOSTELC :: + TITLE 'TCM05: ANNULAR GEOMETRY WITH MACROSCOPIC XS' + MAXR 5 ANIS 2 TRAK TISO 12 20.0 ; +SYS := ASM: MACRO TRACK TRKSPC :: + PIJK ; +FLUX := FLU: SYS MACRO TRACK :: + TYPE K ; +assertS FLUX :: 'K-INFINITY' 1 1.199508 ; +EDITION := EDI: MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE K B1 PNL BUCK 1.51429E-03 ; +assertS FLUX :: 'K-INFINITY' 1 1.195777 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE B B1 PNL KEFF 1.199538 ; +assertS FLUX :: 'K-INFINITY' 1 1.199508 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE B B1 PNL ; +assertS FLUX :: 'K-INFINITY' 1 1.195775 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE L B1 PNL ; +assertS FLUX :: 'K-INFINITY' 1 1.195778 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := DELETE: FLUX ; +FLUX := FLU: SYS MACRO TRACK :: + TYPE K B1 TIBERE BUCK 1.50298E-03 ; +assertS FLUX :: 'K-INFINITY' 1 1.195597 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE B B1 TIBERE KEFF 1.199538 ; +assertS FLUX :: 'K-INFINITY' 1 1.199507 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE B B1 TIBERE R BUCK Z 5.00993E-04 ; +assertS FLUX :: 'K-INFINITY' 1 1.195596 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE B B1 TIBERE Z BUCK R 1.001986E-03 ; +assertS FLUX :: 'K-INFINITY' 1 1.195598 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE B B1 TIBERE ; +assertS FLUX :: 'K-INFINITY' 1 1.195598 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE L B1 TIBERE R BUCK Z 5.00993E-04 ; +assertS FLUX :: 'K-INFINITY' 1 1.195598 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE L B1 TIBERE Z BUCK R 1.001986E-03 ; +assertS FLUX :: 'K-INFINITY' 1 1.195598 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE L B1 TIBERE ; +assertS FLUX :: 'K-INFINITY' 1 1.195598 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX SYS := DELETE: FLUX SYS ; +*---- +* Tracking : EXCELT - MOSTELCV only update TRACK TRKSPC files +* since only change is in one material +* Solution : TYPE K, B or L +* Leakage : B1 PNL, B1 TIBERE +*---- +TRACK TRKSPC := DELETE: TRACK TRKSPC ; +TRACK TRKSPC := EXCELT: MOSTELCV :: + TITLE 'TCM05: ANNULAR GEOMETRY WITH MACROSCOPIC XS (VOID)' + MAXR 5 ANIS 2 TRAK TISO 12 20.0 ; +SYS := ASM: MACRO TRACK TRKSPC :: + PIJK ; +FLUX := FLU: SYS MACRO TRACK :: + TYPE K ; +assertS FLUX :: 'K-INFINITY' 1 1.227979 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE K B1 PNL BUCK 1.40181E-03 ; +assertS FLUX :: 'K-INFINITY' 1 1.223228 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE B B1 PNL KEFF 1.228007 ; +assertS FLUX :: 'K-INFINITY' 1 1.227979 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE B B1 PNL ; +assertS FLUX :: 'K-INFINITY' 1 1.223224 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE L B1 PNL ; +assertS FLUX :: 'K-INFINITY' 1 1.223230 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := DELETE: FLUX ; +FLUX := FLU: SYS MACRO TRACK :: + TYPE K B1 TIBERE BUCK 1.40181E-03 ; +assertS FLUX :: 'K-INFINITY' 1 1.222947 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE B B1 TIBERE KEFF 1.228007 ; +assertS FLUX :: 'K-INFINITY' 1 1.227979 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE B B1 TIBERE R BUCK Z 5.00993E-04 ; +assertS FLUX :: 'K-INFINITY' 1 1.222990 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE B B1 TIBERE Z BUCK R 1.001986E-03 ; +assertS FLUX :: 'K-INFINITY' 1 1.223001 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE B B1 TIBERE ; +assertS FLUX :: 'K-INFINITY' 1 1.223001 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE L B1 TIBERE R BUCK Z 5.00993E-04 ; +assertS FLUX :: 'K-INFINITY' 1 1.222994 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE L B1 TIBERE Z BUCK R 1.001986E-03 ; +assertS FLUX :: 'K-INFINITY' 1 1.223001 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +FLUX := FLU: FLUX SYS MACRO TRACK :: + TYPE L B1 TIBERE ; +assertS FLUX :: 'K-INFINITY' 1 1.222996 ; +EDITION := EDI: EDITION MACRO TRACK FLUX :: + EDIT 2 SAVE ; +TRKSPC := DELETE: TRKSPC ; +ECHO "test TCM05 completed" ; +END: ; +QUIT "LIST" . -- cgit v1.2.3