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/tndas_proc/TCND07.c2m | 136 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 136 insertions(+) create mode 100644 Dragon/data/tndas_proc/TCND07.c2m (limited to 'Dragon/data/tndas_proc/TCND07.c2m') diff --git a/Dragon/data/tndas_proc/TCND07.c2m b/Dragon/data/tndas_proc/TCND07.c2m new file mode 100644 index 0000000..0bd010f --- /dev/null +++ b/Dragon/data/tndas_proc/TCND07.c2m @@ -0,0 +1,136 @@ +*---- +* TEST CASE TCND07 +* CANDU-6 CARTESIAN CELL +* NDAS 89-GROUP CROSS-SECTION LIBRARY +* TEST VARIOUS LEAKAGE OPTIONS +* +*---- +* 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 ; +*---- +* Depletion data from file in NDAS format +* Microscopic cross sections from file in NDAS format +*---- +PROCEDURE TCND05Lib ; +INTEGER iedit := 1 ; +LIBRARY := TCND05Lib :: <> ; +*---- +* 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 'TCND07: 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 'TCND07: 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 1.117730 ; +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 1.109864 ; +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 1.109848 ; +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 1.109855 ; +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 'TCND07: 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 'TCND07: 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 1.137467 ; +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 1.129905 ; +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 1.130159 ; +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 1.130171 ; +FLUX SYS TRACK INTLIN := DELETE: FLUX SYS TRACK INTLIN ; +ECHO "test TCND07 completed" ; +END: ; +QUIT "LIST" . -- cgit v1.2.3