diff options
Diffstat (limited to 'Dragon/data/tndas_proc/TCND03.c2m')
| -rw-r--r-- | Dragon/data/tndas_proc/TCND03.c2m | 154 |
1 files changed, 154 insertions, 0 deletions
diff --git a/Dragon/data/tndas_proc/TCND03.c2m b/Dragon/data/tndas_proc/TCND03.c2m new file mode 100644 index 0000000..a1a0b9b --- /dev/null +++ b/Dragon/data/tndas_proc/TCND03.c2m @@ -0,0 +1,154 @@ +*---- +* TEST CASE TCND03 +* MULTICELL HEXAGONAL ASSEMBLY WITH POISON +* WIMS-AECL 69 GROUPS LIBRARY FILE WIMSLIB +* NDAS 89-GROUP CROSS-SECTION LIBRARY +* +* REF: none +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST + ASSMBH DISCR LIBRARY CP CALC OUT DATABASE ISOT SPHGEOM MTRACK ; +SEQ_ASCII + res ; +MODULE + GEO: SYBILT: BIVACT: LIB: SHI: ASM: FLU: EDI: COMPO: SPH: DELETE: + END: ; +PROCEDURE assertS ; +*---- +* Microscopic cross sections from file in NDAS format +*---- +LIBRARY := LIB: :: + NMIX 11 CTRA WIMS + MIXS LIB: NDAS FIL: E65LIB6.idx:E65LIB6.sdb + MIX 1 579.9 + H1H2O = H1H2O 4.76690E-2 O16H2O = O16 2.38345E-2 + B10 = B10 4.71444E-6 B11 = B11 1.90959E-5 + MIX 2 579.9 O16 = O16 3.06711E-4 + Cr52 = CR52 7.54987E-5 Fe56 = FE56 1.47624E-4 + Zr90 = ZR90 2.15171E-2 Zr91 = ZR91 4.68856E-3 + Zr92 = ZR92 7.15842E-3 Zr94 = ZR94 7.32587E-3 + MIX 3 579.9 + H1H2O = H1H2O 4.65292E-2 O16H2O = O16 2.32646E-2 + Nb93 = NB93 7.07082E-6 Cr52 = CR52 4.79927E-5 + Fe56 = FE56 4.45845E-5 Ni58 = NI58 1.13521E-4 + Co59 = CO59 1.07714E-7 Mo95 = MO95 4.03755E-6 + Ti48 = TI 2.33305E-6 Al27 = AL27 2.35231E-6 + Mn55 = MN55 4.15901E-7 + B10 = B10 4.60867E-6 B11 = B11 1.86674E-5 + Zr91 = ZR91 8.92427E-4 + MIX 4 933.6 O16 = O16 4.49355E-2 + U235 = U235 7.39237E-4 1 + U238 = U238 2.17285E-2 1 + MIX 5 579.9 In115 = IN115 7.57464E-3 + Cd113 = CD113 2.62493E-3 + Ag109 = AG109 4.49188E-2 + MIX 6 579.9 Cr52 = CR52 1.52702E-2 + Fe56 = FE56 5.57670E-2 Ni58 = NI58 7.51418E-3 + Mn55 = MN55 8.02943E-4 + MIX 7 579.9 + H1H2O = H1H2O 3.06466E-2 O16H2O = O16 1.53233E-2 + Fe56 = FE56 5.27485E-5 Cr52 = CR52 2.69769E-5 + B10 = B10 3.03092E-6 B11 = B11 1.22768E-5 + Zr90 = ZR90 7.68841E-3 Zr91 = ZR91 1.67530E-3 + Zr92 = ZR92 2.55782E-3 Zr94 = ZR94 2.61765E-3 + MIX 8 579.9 + H1H2O = H1H2O 4.65292E-2 O16H2O = O16 2.32646E-2 + Nb93 = NB93 7.07082E-6 Cr52 = CR52 4.79927E-5 + Fe56 = FE56 4.45845E-5 Ni58 = NI58 1.13521E-4 + Co59 = CO59 1.07714E-7 Mo95 = MO95 4.03755E-6 + Ti48 = TI 2.33305E-6 Al27 = AL27 2.35231E-6 + Mn55 = MN55 4.15901E-7 + B10 = B10 4.60867E-6 B11 = B11 1.86674E-5 + Zr91 = ZR91 8.92427E-4 + MIX 9 579.9 O16 = O16 2.87335E-4 + Cr52 = CR52 7.07291E-5 Fe56 = FE56 1.38298E-4 + Zr90 = ZR90 2.01578E-2 Zr91 = ZR91 4.39236E-3 + Zr92 = ZR92 6.70619E-3 Zr94 = ZR94 6.86306E-3 + MIX 10 579.9 + H1H2O = H1H2O 4.71346E-2 O16H2O = O16 2.35673E-2 + Nb93 = NB93 3.31482E-6 Cr52 = CR52 2.24991E-5 + Fe56 = FE56 2.09013E-5 Ni58 = NI58 5.32188E-5 + Co59 = CO59 5.04968E-8 Mo95 = MO95 1.89281E-6 + Ti48 = TI 1.09374E-6 Al27 = AL27 1.10277E-6 + Mn55 = MN55 1.94976E-7 B10 = B10 4.66484E-6 + B11 = B11 1.88950E-5 Zr91 = ZR91 4.18372E-4 + MIX 11 579.9 + H1H2O = H1H2O 4.71676E-2 O16H2O = O16 2.35838E-2 + Nb93 = NB93 3.11049E-6 Cr52 = CR52 2.11122E-5 + Fe56 = FE56 1.96130E-5 Ni58 = NI58 4.99383E-5 + Co59 = CO59 4.73842E-8 Mo95 = MO95 1.77614E-6 + Ti48 = TI 1.02632E-6 Al27 = AL27 1.03479E-6 + Mn55 = MN55 1.82957E-7 + B10 = B10 4.66791E-6 B11 = B11 1.89074E-5 + Zr91 = ZR91 3.92583E-4 + ; +*---- +* Geometry ASSMBH : hexagonal assembly with poison +* contains C1 : cell without fuel +* C2 : poison cell +* C3 : normal fuel cell +* C4 : peripheral cell +*---- +ASSMBH := GEO: :: HEX 36 + HBC S30 REFL + CELL C1 C3 C3 C3 C3 C3 C2 C3 C3 C3 C2 C3 C3 C3 C3 C3 C3 C2 + C3 C3 C2 C3 C3 C3 C3 C3 C3 C3 C3 C3 C4 C4 C4 C4 C4 C4 + TURN A A A A A A A A B D A I A C F J B A + F A A E E A A E A A A A A A A A A A + MERGE 1 2 3 4 5 4 6 7 8 7 9 8 10 7 7 4 7 11 + 12 13 14 15 12 16 17 12 16 18 18 19 20 21 21 22 22 23 + ::: C1 := GEO: HEXCEL 2 + SIDE 0.707297 RADIUS 0.0 0.412282 0.475917 + MIX 1 2 3 ; + ::: C2 := GEO: HEXCEL 5 + SIDE 0.707297 RADIUS 0.0 0.25057 0.354359 0.436 0.486 0.6125 + MIX 5 5 5 6 7 8 ; + ::: C3 := GEO: C1 MIX 4 9 10 ; + ::: C4 := GEO: C3 MIX 4 9 11 ; + ; +*---- +* Self-Shielding calculation SYBIL +* Transport calculation SYBIL +* Flux calculation for B1 homogeneous leakage +* Editing using SPH model for transport-diffusion +*---- +DISCR := SYBILT: ASSMBH :: + TITLE 'TCND03: MULTICELL HEXAGONAL ASSEMBLY WITH POISON' + MAXR 400 MAXZ 15000 QUA2 6 3 ; +LIBRARY := SHI: LIBRARY DISCR :: EDIT 0 NOLJ ; +CP := ASM: LIBRARY DISCR ; +CALC := FLU: CP LIBRARY DISCR :: + TYPE B B1 PNL ; +assertS CALC :: 'K-INFINITY' 1 0.6605623 ; +OUT := EDI: CALC LIBRARY DISCR ASSMBH :: + EDIT 3 UPS SAVE MICR RES MERGE CELL COND 4.0 + ; +SPHGEOM := OUT :: STEP UP 'MACRO-GEOM' ; +SPHGEOM := GEO: SPHGEOM :: SPLITH 0 ; +MTRACK := BIVACT: SPHGEOM :: PRIM 1 2 ; +OUT := SPH: OUT MTRACK ; +SPHGEOM MTRACK := DELETE: SPHGEOM MTRACK ; + +DATABASE := COMPO: :: + EDIT 5 + COMM 'Multi-parameter reactor database' ENDC + INIT + ; +DATABASE := COMPO: DATABASE OUT :: + EDIT 3 + ; +res := DATABASE ; + +ISOT := DATABASE :: STEP UP default + STEP UP MIXTURES STEP AT 5 + STEP UP CALCULATIONS STEP AT 1 + STEP UP ISOTOPESLIST STEP AT 1 ; +assertS ISOT :: 'NWT0' 1 1.534770E+00 ; +assertS ISOT :: 'NWT0' 2 1.382994E-01 ; + +ECHO "test TCND03 completed" ; +END: ; +QUIT "LIST" . |