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/te6wlib_proc/TCW607.c2m | 162 ++++++++++++++++++++++++++++++++++++ 1 file changed, 162 insertions(+) create mode 100644 Dragon/data/te6wlib_proc/TCW607.c2m (limited to 'Dragon/data/te6wlib_proc/TCW607.c2m') diff --git a/Dragon/data/te6wlib_proc/TCW607.c2m b/Dragon/data/te6wlib_proc/TCW607.c2m new file mode 100644 index 0000000..1efaf37 --- /dev/null +++ b/Dragon/data/te6wlib_proc/TCW607.c2m @@ -0,0 +1,162 @@ +*---- +* TEST CASE TCW607 +* CANDU-6 CARTESIAN CELL +* WIMS-AECL 89 GROUPS LIBRARY FILE E6MLIB +* TEST VARIOUS LEAKAGE OPTIONS +* +* REF: R. Roy et al. Ann. Nucl. Energy 21, 115 (1994) +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST + LIBRARY CANDU6S CANDU6T CANDU6SV CANDU6TV TRACK + SYS FLUX EDITION ; +MODULE + GEO: EXCELT: LIB: SHI: ASM: FLU: EDI: DELETE: END: ; +SEQ_BINARY + INTLIN ; +PROCEDURE assertS ; +*---- +* Microscopic cross sections from file E6MLIB format WIMS-AECL +*---- +LIBRARY := LIB: :: + EDIT 0 NMIX 10 CTRA WIMS + MIXS LIB: WIMSAECL FIL: E6MLIB + MIX 1 560.66 0.81212 O16 = O16 7.99449E-1 + D2D2O = DD2O 1.99768E-1 H1H2O = H1H2O 7.83774E-4 + MIX 2 560.66 6.57 Nb93 = NB93 2.50000 + BNat10 = B10 0.41790E-4 BNat11 = B11 1.68210E-4 + Zr91 = ZR91 9.75000E+1 + MIX 3 345.66 0.0014 He4 = O16 1.00000E+2 + MIX 4 345.66 6.44 Fe56 = FE56 1.60000E-1 + Ni58 = NI58 6.00000E-2 Cr52 = CR52 1.10000E-1 + BNat10 = B10 0.61690E-4 BNat11 = B11 2.48310E-4 + Zr91 = ZR91 9.97100E+1 + MIX 5 345.66 1.082885 O16 = O16 7.98895E-1 + D2D2O = DD2O 2.01016E-1 H1H2O = H1H2O 8.96000E-5 + MIX 6 941.29 10.4375010 O16 = O16 1.18473E+1 + U235 = U235 6.27118E-1 1 + U238 = U238 8.75256E+1 1 + MIX 7 COMB 6 1.0 + MIX 8 COMB 6 1.0 + MIX 9 COMB 6 1.0 + MIX 10 560.66 6.44 Fe56 = FE56 1.60000E-1 + Ni58 = NI58 6.00000E-2 Cr52 = CR52 1.10000E-1 + BNat10 = B10 0.61690E-4 BNat11 = B11 2.48310E-4 + Zr91 = ZR91 9.97100E+1 + ; +*---- +* Geometry CANDU6S : GEOMETRY FOR SELF-SHIELDING (NO VOID) +* CANDU6F : GEOMETRY FOR TRANSPORT (NO VOID) +* CANDU6FV: GEOMETRY FOR TRANSPORT (COOLANT VOID) +* CANDU6FV: GEOMETRY FOR TRANSPORT (COOLANT VOID) +*---- +CANDU6S := GEO: :: CARCEL 5 + X+ REFL X- REFL MESHX -14.2875 14.2875 + Y+ REFL Y- REFL MESHY -14.2875 14.2875 + RADIUS 0.00000 5.16890 5.60320 6.44780 6.58750 14.00 + MIX 1 2 3 4 5 5 + CLUSTER ROD1 ROD2 ROD3 ROD4 + ::: ROD1 := GEO: TUBE 2 MIX 6 10 NPIN 1 RPIN 0.0000 APIN 0.0000 + RADIUS 0.00000 0.6122 0.6540 ; + ::: ROD2 := GEO: ROD1 MIX 7 10 NPIN 6 RPIN 1.4885 APIN 0.0000 ; + ::: ROD3 := GEO: ROD1 MIX 8 10 NPIN 12 RPIN 2.8755 APIN 0.261799 ; + ::: ROD4 := GEO: ROD1 MIX 9 10 NPIN 18 RPIN 4.3305 APIN 0.0 ; + ; +CANDU6T := GEO: CANDU6S :: SPLITR 6 1 1 1 10 + ::: ROD1 := GEO: ROD1 SPLITR 2 1 ; + ::: ROD2 := GEO: ROD2 SPLITR 2 1 ; + ::: ROD3 := GEO: ROD3 SPLITR 2 1 ; + ::: ROD4 := GEO: ROD4 SPLITR 2 1 ; + ; +CANDU6SV := GEO: CANDU6S :: MIX 0 2 3 4 5 5 ; +CANDU6TV := GEO: CANDU6SV :: SPLITR 6 1 1 1 10 + ::: ROD1 := GEO: ROD1 SPLITR 2 1 ; + ::: ROD2 := GEO: ROD2 SPLITR 2 1 ; + ::: ROD3 := GEO: ROD3 SPLITR 2 1 ; + ::: ROD4 := GEO: ROD4 SPLITR 2 1 ; + ; +*---- +* CASE WITH NO VOID +* Self-Shielding calculation EXCEL +* Transport calculation EXCEL +* Flux TYPE K AND B WITH VARIOUS LEAKAGE OPTIONS +*---- +TRACK INTLIN := EXCELT: CANDU6S :: + TITLE 'TCW607: CANDU-6 CARTESIAN FUEL TEMP= 941.29' + EDIT 0 MAXR 14 TRAK TISO 7 20.0 SYMM 4 ; +LIBRARY := SHI: LIBRARY TRACK INTLIN :: EDIT 0 NOLJ ; +TRACK INTLIN := DELETE: TRACK INTLIN ; +TRACK INTLIN := EXCELT: CANDU6T :: + TITLE 'TCW607: CANDU-6 CARTESIAN FUEL TEMP= 941.29' + EDIT 0 MAXR 32 ANIS 2 TRAK TISO 7 20.0 SYMM 4 ; +SYS := ASM: LIBRARY TRACK INTLIN :: + EDIT 0 PIJK ; +FLUX := FLU: SYS LIBRARY TRACK :: + TYPE K ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9172119 ; +EDITION := EDI: FLUX LIBRARY TRACK :: + EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ; +FLUX := FLU: FLUX SYS LIBRARY TRACK :: + TYPE B B1 PNL ; +assertS FLUX :: 'K-INFINITY' 1 0.9222654 ; +EDITION := EDI: EDITION FLUX LIBRARY TRACK :: + EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ; +FLUX := FLU: FLUX SYS LIBRARY TRACK :: + TYPE B B1 HETE ; +assertS FLUX :: 'K-INFINITY' 1 0.9223002 ; +EDITION := EDI: EDITION FLUX LIBRARY TRACK :: + EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ; +FLUX SYS := DELETE: FLUX SYS ; +SYS := ASM: LIBRARY TRACK INTLIN :: + EDIT 0 PIJ ECCO ; +FLUX := FLU: SYS LIBRARY TRACK :: + TYPE B B1 ECCO ; +assertS FLUX :: 'K-INFINITY' 1 0.9222991 ; +EDITION := EDI: EDITION FLUX LIBRARY TRACK :: + EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ; +FLUX SYS TRACK INTLIN := DELETE: FLUX SYS TRACK INTLIN ; +*---- +* CASE WITH COOLANT VOIDED +* Self-Shielding calculation EXCEL +* Transport calculation EXCEL +* Flux TYPE K AND B WITH VARIOUS LEAKAGE OPTIONS +*---- +TRACK INTLIN := EXCELT: CANDU6SV :: + TITLE 'TCW607: CANDU-6 CARTESIAN FUEL TEMP= 941.29' + EDIT 0 MAXR 14 TRAK TISO 7 20.0 SYMM 4 ; +LIBRARY := SHI: LIBRARY TRACK INTLIN :: EDIT 0 NOLJ ; +TRACK INTLIN := DELETE: TRACK INTLIN ; +TRACK INTLIN := EXCELT: CANDU6TV :: + TITLE 'TCW607: CANDU-6 CARTESIAN FUEL TEMP= 941.29' + EDIT 0 MAXR 32 ANIS 2 TRAK TISO 7 20.0 SYMM 4 ; +SYS := ASM: LIBRARY TRACK INTLIN :: + EDIT 0 PIJK ; +FLUX := FLU: SYS LIBRARY TRACK :: + TYPE K ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9441713 ; +EDITION := EDI: EDITION FLUX LIBRARY TRACK :: + EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ; +FLUX := FLU: FLUX SYS LIBRARY TRACK :: + TYPE B B1 PNL ; +assertS FLUX :: 'K-INFINITY' 1 0.9469538 ; +EDITION := EDI: EDITION FLUX LIBRARY TRACK :: + EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ; +FLUX := FLU: FLUX SYS LIBRARY TRACK :: + TYPE B B1 TIBERE ; +assertS FLUX :: 'K-INFINITY' 1 0.9469025 ; +EDITION := EDI: EDITION FLUX LIBRARY TRACK :: + EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ; +FLUX SYS := DELETE: FLUX SYS ; +SYS := ASM: LIBRARY TRACK INTLIN :: + EDIT 0 PIJ ECCO ; +FLUX := FLU: SYS LIBRARY TRACK :: + TYPE B B1 ECCO ; +assertS FLUX :: 'K-INFINITY' 1 0.9469002 ; +EDITION := EDI: EDITION FLUX LIBRARY TRACK :: + EDIT 3 SAVE COND 4.0 TAKE REGI 1 4 7 10 16 24 ; +FLUX SYS TRACK INTLIN := DELETE: FLUX SYS TRACK INTLIN ; +ECHO "test TCW607 completed" ; +END: ; +QUIT "LIST" . -- cgit v1.2.3