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/TDCM45.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Dragon/data/salmacro_proc/TDCM45.c2m')
| -rw-r--r-- | Dragon/data/salmacro_proc/TDCM45.c2m | 163 |
1 files changed, 163 insertions, 0 deletions
diff --git a/Dragon/data/salmacro_proc/TDCM45.c2m b/Dragon/data/salmacro_proc/TDCM45.c2m new file mode 100644 index 0000000..c09eb99 --- /dev/null +++ b/Dragon/data/salmacro_proc/TDCM45.c2m @@ -0,0 +1,163 @@ +*---- +* TEST CASE TDCM42 +* MACROSCOPIC CROSS SECTIONS +* CANDU NG 2 X 2 COLORSET OF UNIT CELL WITH MCCG (ISOTROPIC BC) +*---- +* Define STRUCTURES and MODULES used +*---- +MODULE G2S: SALT: MCCGT: FLU: MAC: UTL: ASM: DELETE: END: ; +PROCEDURE GeoNG2x2_iso assertS ; +LINKED_LIST GEOMF GEOMS MACRO FLUX T_EXC PREC ; +SEQ_ASCII Fil_SAL Fil_SAL.ps ; +SEQ_BINARY TF_EXC ; +REAL + TubeCal PasReseau + := + 7.8 22.0 + ; +* +* acceder aux informations de geometrie +* defaut: CANDU-NG +* +GEOMF GEOMS := GeoNG2x2_iso :: <<TubeCal>> <<PasReseau>> ; +Fil_SAL Fil_SAL.ps := G2S: GEOMF ; +T_EXC TF_EXC := SALT: Fil_SAL :: + EDIT 1 + TISO 4 10.0 REND +; + +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 36 NIFI 1 + READ INPUT + MIX 1 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 2 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 3 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 4 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 5 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 6 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 7 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 8 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 9 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 10 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 11 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 12 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 13 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 14 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 15 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 16 (*COMBUSTIBLE*) + TOTAL 0.3652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 17 (*GAINE*) + TOTAL 0.4029 SCAT 1 1 0.4000 + MIX 18 (*EAU LEGERE*) + TOTAL 0.3683 SCAT 1 1 0.3661 + MIX 19 (*EAU LOURDE*) + TOTAL 0.03683 SCAT 1 1 0.03661 + MIX 20 (*VOID*) + TOTAL 0.001 SCAT 1 1 0.0 + MIX 21 (*COMBUSTIBLE + DY*) + TOTAL 0.4652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 22 (*COMBUSTIBLE + DY*) + TOTAL 0.4652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 23 (*COMBUSTIBLE + DY*) + TOTAL 0.4652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 24 (*COMBUSTIBLE + DY*) + TOTAL 0.4652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 25 (*COMBUSTIBLE + DY*) + TOTAL 0.4652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 26 (*COMBUSTIBLE + DY*) + TOTAL 0.4652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 27 (*COMBUSTIBLE + DY*) + TOTAL 0.4652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 28 (*COMBUSTIBLE + DY*) + TOTAL 0.4652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 29 (*COMBUSTIBLE + DY*) + TOTAL 0.4652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 30 (*COMBUSTIBLE + DY*) + TOTAL 0.4652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 31 (*COMBUSTIBLE + DY*) + TOTAL 0.4652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 32 (*COMBUSTIBLE + DY*) + TOTAL 0.4652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 33 (*COMBUSTIBLE + DY*) + TOTAL 0.4652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 34 (*COMBUSTIBLE + DY*) + TOTAL 0.4652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 35 (*COMBUSTIBLE + DY*) + TOTAL 0.4652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 + MIX 36 (*COMBUSTIBLE + DY*) + TOTAL 0.4652 SCAT 1 1 0.3234 + NUSIGF 0.05564 CHI 1.0 +; + +PREC := ASM: MACRO T_EXC TF_EXC :: PIJ + EDIT 0 + ; +FLUX := FLU: MACRO PREC T_EXC TF_EXC :: + EDIT 1 TYPE K + ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.6597502 ; +FLUX PREC := DELETE: FLUX PREC ; + +T_EXC := MCCGT: T_EXC TF_EXC GEOMF :: + EDIT 2 GAUS 4 + AAC 1 EPSI 1E-5 + MAXI 100 KRYL 0 SCR 0 HDD 0.0 + ; + +PREC := ASM: MACRO T_EXC TF_EXC :: ARM + EDIT 0 + ; +FLUX := FLU: MACRO PREC T_EXC TF_EXC :: + EDIT 1 TYPE K + ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.6595184 ; + +ECHO "test TDCM45 completed" ; +END: ; +QUIT "LIST" . |