diff options
| author | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
|---|---|---|
| committer | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
| commit | 7dfcc480ba1e19bd3232349fc733caef94034292 (patch) | |
| tree | 03ee104eb8846d5cc1a981d267687a729185d3f3 /Dragon/data/tmacro_proc/TCM09.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Dragon/data/tmacro_proc/TCM09.c2m')
| -rw-r--r-- | Dragon/data/tmacro_proc/TCM09.c2m | 117 |
1 files changed, 117 insertions, 0 deletions
diff --git a/Dragon/data/tmacro_proc/TCM09.c2m b/Dragon/data/tmacro_proc/TCM09.c2m new file mode 100644 index 0000000..dd72391 --- /dev/null +++ b/Dragon/data/tmacro_proc/TCM09.c2m @@ -0,0 +1,117 @@ +*---- +* TEST CASE TCM09 +* MACROSCOPIC CROSS SECTIONS +* FIXED SOURCE PROBLEM +* CARTESIAN 3 X 3 ASSEMBLY +* WATANABE-MAYNARD PROBLEM SIMILAR TO TCM09 +* +* REF: R. Roy, "The Cyclic Characteristics Method," +* Int. Conf. Physics of Nuclear Science and Technology, +* Long Island, NY, October 1998, pp. 407-414. +*---- +* +LINKED_LIST WATA WAT24 TRACK MACRO SYS FLUX EDITION ; +SEQ_BINARY WATATRK ; +STRING PolarAng := "CACB" ; +MODULE GEO: EXCELT: MCCGT: MAC: ASM: FLU: EDI: DELETE: END: ; +PROCEDURE assertV ; +* +* MACROSCOPIC CROSS SECTIONS +MACRO := MAC: :: + NGRO 1 NMIX 3 + READ INPUT + MIX 1 TOTAL 0.2 SCAT 1 1 0.19 FIXE 6.4 + MIX 2 TOTAL 0.2 SCAT 1 1 0.19 + MIX 3 TOTAL 0.0 SCAT 1 1 0.00 ; +* GEOMETRIES ENTERED WITH SYMMETRIES +* WAT24 - 24 X 24 REGIONS +WATA := GEO: :: CAR2D 3 3 + X- DIAG X+ VOID + MESHX 0.00 1.25 5.00 10.00 + Y- REFL Y+ DIAG + MESHY 0.00 1.25 5.00 10.00 + MIX 1 3 2 + 3 2 + 2 ; +WAT24 := GEO: WATA :: + SPLITX 3 9 12 + SPLITY 3 9 12 ; +* SOLUTION FOR WAT24 +TRACK WATATRK := EXCELT: WAT24 :: + TITLE 'TCM09: WATANABE-MAYNARD 24X24 ' + MAXR 300 + TRAK TSPC 12 12.0 ; +TRACK := MCCGT: TRACK WATATRK :: + EDIT 1 <<PolarAng>> 4 + AAC 80 TMT EPSI 1E-5 MCU 2500 + MAXI 1 KRYL 0 SCR 0 HDD 0.0 ; +SYS := ASM: MACRO TRACK WATATRK :: + EDIT 2 ARM ; +FLUX := FLU: MACRO TRACK SYS WATATRK :: + TYPE S THER 1.E-6 100 EXTE 1.E-6 100 ; +* UPPER QUADRANT FLUX FOR 24X24 +* RESULTS GIVEN IN TABLE 1. (ref. p. 411 ) +EDITION := EDI: FLUX MACRO TRACK :: + EDIT 2 SAVE + MERGE REGION + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 + + 0 0 0 0 0 0 0 0 0 0 0 0 + 1 0 0 2 0 0 3 0 0 4 0 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 + 5 0 0 6 0 0 7 0 + 0 0 0 0 0 0 0 + 0 0 0 0 0 0 + 8 0 0 9 0 + 0 0 0 0 + 0 0 0 + 10 0 + 0 + ; +* FLUX AT X=5.625CM FOR 24X24 +EDITION := EDI: EDITION FLUX MACRO TRACK :: + EDIT 2 SAVE + MERGE REGION + 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 5 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 6 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 7 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 8 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 9 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 10 0 0 0 0 0 0 0 0 0 0 + 0 0 0 11 0 0 0 0 0 0 0 0 0 0 + 0 0 12 0 0 0 0 0 0 0 0 0 0 + + 0 13 0 0 0 0 0 0 0 0 0 0 + 14 15 16 17 18 19 20 21 22 23 24 + 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 + 0 0 0 0 0 0 + 0 0 0 0 0 + 0 0 0 0 + 0 0 0 + 0 0 + 0 + ; +WATATRK := DELETE: WATATRK ; +assertV FLUX :: 'FLUX' (*GROUP*) 1 (*REGION*) 30 4.896158 ; +ECHO "test TCM09 completed" ; +END: ; +QUIT "LIST" . |