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/TDCM32.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Dragon/data/salmacro_proc/TDCM32.c2m')
| -rw-r--r-- | Dragon/data/salmacro_proc/TDCM32.c2m | 104 |
1 files changed, 104 insertions, 0 deletions
diff --git a/Dragon/data/salmacro_proc/TDCM32.c2m b/Dragon/data/salmacro_proc/TDCM32.c2m new file mode 100644 index 0000000..f2b360b --- /dev/null +++ b/Dragon/data/salmacro_proc/TDCM32.c2m @@ -0,0 +1,104 @@ +*---- +* TEST CASE TDCM32 +* MACROSCOPIC CROSS SECTIONS +* SIMPLE BWR WITH PIJ (SPECULAR BC) +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST MACRO GEOM TRACK PIJ FLUX ; +MODULE MAC: GEO: G2S: SALT: ASM: FLU: END: ; +SEQ_BINARY TRACK_FIL ; +SEQ_ASCII Fic_SAL :: FILE 'Fic_SAL_TDCM32.tdt' ; +SEQ_ASCII Fic_SAL.eps :: FILE 'Fic_SAL_TDCM32.eps' ; +PROCEDURE assertS ; +* +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 5 NIFI 1 + READ INPUT + MIX 1 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 2 (*GAINE*) + TOTAL 0.4029 SCAT 1 1 0.4000 + MIX 3 (*EAU*) + TOTAL 0.3683 SCAT 1 1 0.3661 +; +GEOM := GEO: :: + CAR2D 2 2 + X- REFL X+ REFL + Y- REFL Y+ REFL + MIX C1 C2 + C2 C4 + TURN A A + F A + ::: C1 := GEO: CAR2D 4 4 + MIX SC1 SC2 SC2 SC2 + SC2 SC3 SC3 SC3 + SC2 SC3 SC3 SC3 + SC2 SC3 SC3 SC3 + TURN A A A A + F A A A + F A A A + F A A A + ::: SC1 := GEO: CARCEL 1 + MESHX 0.0 2.25 + MESHY 0.0 2.25 + RADIUS 0.0 1.75 + OFFCENTER -1.125 -1.125 + MIX 2 3 + ; + ::: SC2 := GEO: CAR2D 1 2 + MIX SSC1 SC3 + ::: SSC1 := GEO: CARCEL 2 + MESHX 0.0 1.5 + MESHY 0.0 0.75 + RADIUS 0.0 0.4 0.6 + OFFCENTER 0.0 -0.375 + MIX 1 2 3 + ; + ; + ::: SC3 := GEO: CARCEL 2 + MESHX 0.0 1.5 + MESHY 0.0 1.5 + RADIUS 0.0 0.4 0.6 + MIX 1 2 3 + ; + ; + ::: C2 := GEO: CAR2D 1 6 + MIX SC4 C3 C3 C3 C3 C3 + ::: SC4 := GEO: CAR2D 1 1 + MESHX 0.0 0.5 + MESHY 0.0 1.75 + MIX 3 + ; + ::: C3 := GEO: CARCEL 1 + MESHX 0.0 0.5 + MESHY 0.0 1.0 + RADIUS 0.0 0.3 + OFFCENTER 0.25 0.0 + MIX 2 3 + ; + ; + ::: C4 := GEO: CARCEL 1 + MESHX 0.0 0.5 + MESHY 0.0 0.5 + RADIUS 0.0 0.3 + OFFCENTER 0.25 0.25 + MIX 2 3 + ; +; +Fic_SAL Fic_SAL.eps := G2S: GEOM ; + +TRACK TRACK_FIL := SALT: Fic_SAL :: + EDIT 1 + TSPC 4 10.0 + ; + +PIJ := ASM: MACRO TRACK TRACK_FIL :: PIJ ; + +FLUX := FLU: MACRO PIJ TRACK TRACK_FIL :: TYPE K ; + +assertS FLUX :: 'K-EFFECTIVE' 1 1.039986 ; + +ECHO "test TDCM32 completed" ; +END: ; |