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/salmacro_proc/TDCM52.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Dragon/data/salmacro_proc/TDCM52.c2m')
| -rw-r--r-- | Dragon/data/salmacro_proc/TDCM52.c2m | 71 |
1 files changed, 71 insertions, 0 deletions
diff --git a/Dragon/data/salmacro_proc/TDCM52.c2m b/Dragon/data/salmacro_proc/TDCM52.c2m new file mode 100644 index 0000000..fbf2ad3 --- /dev/null +++ b/Dragon/data/salmacro_proc/TDCM52.c2m @@ -0,0 +1,71 @@ +*---- +* TEST CASE TDCM52 +* MACROSCOPIC CROSS SECTIONS +* Benchmark VV1K3D WITH MOC +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK MACRO PIJ FLUX ; +MODULE GEO: G2S: SALT: MCCGT: MAC: ASM: FLU: GREP: END: ; +SEQ_ASCII Fic_SAL ; +SEQ_ASCII VV1K2D.ps :: FILE './VV1K2D.ps' ; +SEQ_BINARY TRACK_FIL ; +REAL Kinf ; +INTEGER an2d := 6 ; +REAL densur := 15.0 ; +PROCEDURE assertS ; + +GEOM := GEO: :: + HEX 169 + EDIT 2 + HBC COMPLETE ALBE 0.0 + SIDE 13.6255 + MIX + 2 1 1 1 1 1 1 1 4 1 4 1 4 1 4 1 4 1 4 3 1 1 + 3 1 1 3 1 1 3 1 1 3 1 1 3 1 1 1 1 1 1 1 1 + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 2 1 4 1 4 + 1 2 3 1 4 1 2 3 1 3 2 1 4 1 4 1 2 3 1 3 2 1 4 + 5 4 1 3 1 3 5 3 1 3 1 4 5 3 1 3 1 4 5 4 1 3 1 3 + 5 3 1 3 1 4 5 4 1 3 1 3 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 + 5 5 5 5 5 5 5 5 +; +Fic_SAL VV1K2D.ps := G2S: GEOM :: DRAWMIX ; +*---- +* Macroscopic XS +*---- +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 21 NIFI 1 + READ INPUT + MIX 1 (*FUEL*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.045 CHI 1.0 + MIX 2 (*PRESSURE TUBE*) + TOTAL 0.4029 SCAT 1 1 0.4000 + MIX 3 (*FUEL*) + TOTAL 0.3552 SCAT 1 1 0.3100 + NUSIGF 0.041 CHI 1.0 + MIX 4 (*PRESSURE TUBE*) + TOTAL 0.4029 SCAT 1 1 0.4000 + MIX 5 (*H2O*) + TOTAL 0.3683 SCAT 1 1 0.3661 +; +*---- +* Perform tracking +*---- +TRACK TRACK_FIL := SALT: Fic_SAL :: + EDIT 1 + TISO <<an2d>> <<densur>> LONG ; +TRACK := MCCGT: TRACK TRACK_FIL :: + CACB 4 AAC 80 TMT EPSI 1E-5 MCU 100000 ; +*---- +* Compute flux +*---- +PIJ := ASM: MACRO TRACK TRACK_FIL :: ARM ; +FLUX := FLU: PIJ MACRO TRACK TRACK_FIL :: + TYPE K ; +GREP: FLUX :: GETVAL 'K-INFINITY ' 1 1 1 >>Kinf<< ; +ECHO "@@@ Kinf=" Kinf ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.000605 ; +ECHO "test TDCM52 completed" ; +END: ; |