diff options
Diffstat (limited to 'Dragon/data/tdraglib_proc/TCDR15.c2m')
| -rw-r--r-- | Dragon/data/tdraglib_proc/TCDR15.c2m | 200 |
1 files changed, 200 insertions, 0 deletions
diff --git a/Dragon/data/tdraglib_proc/TCDR15.c2m b/Dragon/data/tdraglib_proc/TCDR15.c2m new file mode 100644 index 0000000..7b70a14 --- /dev/null +++ b/Dragon/data/tdraglib_proc/TCDR15.c2m @@ -0,0 +1,200 @@ +*-------------------------------------------------------------------- +* TEST CASE TCDR15 +* HTTR Fuel +* Block ID:f393320 +* JAVIER ORTENSI +* Jef2.2 evaluation +* XMAS172 Group Structure +* Description: models a fuel block in infinite medium with spatial +* homogenization of the burnable poison region (BP x-section) +* and the rest of the assembly (background x-section). +*-------------------------------------------------------------------- +* Define STRUCTURES and MODULES used +*-------------------------------------------------------------------- +LINKED_LIST LATTIC LIBRARY LIBRARY2 OUT1G OUT2G FLUX TRACK SYS ; +SEQ_ASCII EDIT.out ; +SEQ_BINARY TRACK_FIL ; +PROCEDURE assertS ; + +MODULE GEO: EXCELT: LIB: ASM: FLU: EDI: USS: END: DELETE: ; +*-------------------------------------------------------------------- +* Define variables used +*-------------------------------------------------------------------- +LIBRARY := LIB: :: + NMIX 14 CTRA WIMS + SUBG + ANIS 2 + MIXS LIB: DRAGON FIL: DLIB_J2 +* Fuel Kernel + MIX 1 300.0 + B10 = 'B10' 1.1010E-07 + B11 = 'B11' 4.4317E-07 + O16 = 'O16' 4.8150E-02 + O17 = 'O17' 1.8304E-05 + U235 = 'U235' 8.0367E-04 1 IRSET 0.0 81 + U238 = 'U238' 2.3280E-02 1 IRSET 0.0 81 +* Porous C buffer + MIX 2 300.0 + C12 = 'C0_GR' 5.8060E-02 +* IPyC + MIX 3 300.0 + C12 = 'C0_GR' 9.3909E-02 +* SiC coating layer + MIX 4 300.0 + C12 = 'C0' 4.8151E-02 + SI28 = 'Si0' 4.4410E-02 + SI29 = 'Si0' 2.2487E-03 + SI30 = 'Si0' 1.4927E-03 +* OPyC + MIX 5 300.0 + C12 = 'C0_GR' 9.3007E-02 +* Graphite matrix (Compact) + MIX 6 300.0 + C12 = 'C0_GR' 8.5085E-02 + B10 = 'B10' 2.4543E-08 + B11 = 'B11' 9.8790E-08 +* Graphite sleeve + MIX 7 300.0 + C12 = 'C0_GR' 8.8745E-02 + B10 = 'B10' 7.1811E-09 + B11 = 'B11' 2.8905E-08 +* Helium Coolant + MIX 8 300.0 + HE3 = 'He3' 1.3230E-09 + HE4 = 'He4' 9.6573E-04 +* Block Graphite inside fuel cell + MIX 9 300.0 + C12 = 'C0_GR' 8.8745E-02 + B10 = 'B10' 7.8482E-09 + B11 = 'B11' 3.1590E-08 +* Block Graphite around fuel handling hole (rho adjusted) + MIX 10 300.0 + C12 = 'C0_GR' 6.7791E-02 + B10 = 'B10' 5.9951E-09 + B11 = 'B11' 2.4131E-08 + HE3 = 'He3' 3.1239E-10 + HE4 = 'He4' 2.2802E-04 +* Block Graphite outside fuel cell (rho adjusted) + MIX 11 300.0 + C12 = 'C0_GR' 9.0845E-02 + B10 = 'B10' 8.0339E-09 + B11 = 'B11' 3.2338E-08 +* Burnable Poison + MIX 12 300.0 + C12 = 'C0_GR' 8.7821E-02 + B10 = 'B10' 3.5588E-04 + B11 = 'B11' 1.4071E-03 +* Helium Coolant + MIX 13 300.0 + HE3 = 'He3' 1.3230E-09 + HE4 = 'He4' 9.6573E-04 +* Block Graphite around BP + MIX 14 300.0 + C12 = 'C0_GR' 8.8745E-02 + B10 = 'B10' 7.8482E-09 + B11 = 'B11' 3.1590E-08 +; +*-------------------------------------------------------------------- +* FUEL BLOCK SECTION +*-------------------------------------------------------------------- +* Define mixture for the fuel block +*-------------------------------------------------------------------- +LATTIC := GEO: :: HEX 61 + HBC COMPLETE REFL + CELL +* Ring 0 (center cell) +FH +* Ring 1 (6 cells) +F F F F F F +* Ring 2 (12 cells) +F F F F F F F F F F F F +* Ring 3 (18 cells) +BPE F F F F F BP F F F F F BP F F F F F +* Ring 4 (24 cells) +C C C C C C C C C C C C C C C C C C C C C C C C +* Spherical microstruture model + BIHET SPHE 1 1 + (* NS *) 5 + (* RS *) 0.0 0.0297 0.0359 0.0389 0.0418 0.0464 + (* milie *) 15 + (* mixdil *) 6 + (* loop over NMISTR *) + (* fract *) 0.3040 + (* mixgr *) 1 2 3 4 5 +* Side length based on the pin pitch +* Fuel cell + ::: F := GEO: HEXCEL 5 + SIDE 2.973354 + RADIUS 0.0 0.4995 1.3000 1.3130 1.7000 1.9800 + MIX 8 15 8 7 8 9 ; +* Fuel handling hole + ::: FH := GEO: HEXCEL 0 + SIDE 2.973354 + MIX 10 ; +* Burnable Poison Cell (Empty) +* To be homogenized with fuel (use mat 8&9) + ::: BPE := GEO: HEXCEL 1 + SIDE 2.973354 + RADIUS 0.0 0.6950 + MIX 8 9 ; +* Burnable Poison Cell + ::: BP := GEO: HEXCEL 2 + SIDE 2.973354 + RADIUS 0.0 0.6950 0.7500 + MIX 12 13 14 ; +* graphite cell + ::: C := GEO: HEXCEL 0 + SIDE 2.973354 + MIX 11 ; +; +*-------------------------------------------------------------------- +* Use SYBILT, USS, ASM and FLU for flux solution +*-------------------------------------------------------------------- +*---- +* Tracking calculation +*---- +TRACK TRACK_FIL := EXCELT: LATTIC :: + EDIT 0 + MAXR 400 + ANIS 2 + TRAK TISO 8 20.0 +; +*--- +* Self Shielding calculation +*--- +LIBRARY2 := USS: LIBRARY TRACK TRACK_FIL :: + EDIT 1 +; +*--- +* Multigroup Flux Calculation +*--- + SYS := ASM: LIBRARY2 TRACK TRACK_FIL :: + EDIT 1 ; + FLUX := FLU: SYS LIBRARY2 TRACK TRACK_FIL :: + EDIT 1 + TYPE B B1 PNL + EXTE 100 1E-5 THER 5 1E-5 ; + OUT1G := EDI: FLUX LIBRARY2 TRACK LATTIC :: + EDIT 3 + MERG MIX 1 1 1 1 1 1 1 1 1 1 1 0 0 0 + COND 7.4080E06 3.6790E06 6.7210E05 1.1110E05 1.9310E04 3.3550E03 + 1.5850E03 7.4850E02 2.7540E02 1.3010E02 6.1440E01 2.9000E01 + 1.3700E01 8.3200E00 5.0400E00 2.3800E00 1.2900E00 6.5000E-01 + 3.5000E-01 2.0000E-01 1.2000E-01 8.0000E-02 5.0000E-02 2.0000E-02 + 1.0000E-02 + MICR ISOTXS ASCII ALL + SAVE ; + OUT1G := EDI: OUT1G FLUX LIBRARY2 TRACK :: + EDIT 3 + MERG MIX 0 0 0 0 0 0 0 0 0 0 0 1 1 1 + COND 7.4080E06 3.6790E06 6.7210E05 1.1110E05 1.9310E04 3.3550E03 + 1.5850E03 7.4850E02 2.7540E02 1.3010E02 6.1440E01 2.9000E01 + 1.3700E01 8.3200E00 5.0400E00 2.3800E00 1.2900E00 6.5000E-01 + 3.5000E-01 2.0000E-01 1.2000E-01 8.0000E-02 5.0000E-02 2.0000E-02 + 1.0000E-02 + MICR ISOTXS ASCII ALL + SAVE ; +assertS FLUX :: K-INFINITY 1 1.145036 ; +ECHO "test TCDR15 completed" ; +EDIT.out := OUT1G ; +END: ; |