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/C2D20_proc/MicACRE620.c2m | 295 ++++++++++++++++++++++++++++++++++ 1 file changed, 295 insertions(+) create mode 100644 Dragon/data/C2D20_proc/MicACRE620.c2m (limited to 'Dragon/data/C2D20_proc/MicACRE620.c2m') diff --git a/Dragon/data/C2D20_proc/MicACRE620.c2m b/Dragon/data/C2D20_proc/MicACRE620.c2m new file mode 100644 index 0000000..d11cca5 --- /dev/null +++ b/Dragon/data/C2D20_proc/MicACRE620.c2m @@ -0,0 +1,295 @@ +*DECK MicACRE620.c2m +*---- +* Name : MicACRE620.c2m +* Type : DRAGON procedure +* Use : To generate the ENDF/B-VI Microlib for the ACR +* for 2.0 % enriched fuel. +* Author : G. Marleau +* Date : 2006/05/17 (Revision 0 by G. M.) +* Reference : fuel20n.pin +* +* Procedure called as: +* +* MicLib := MicACRE620 ; +* +* Parameters of the procedure +* MicLib : Microlib tabulated for the required parameters stored in an XSM file +* The minimal set of mixtures included in this microlib is: +* Mix 0 = void +* Mix 1 = coolant at reference conditions +* Mix 2 = pressure tube material +* Mix 3 = gap material +* Mix 4 = calendria tube material +* Mix 5 = moderator +* Mix 6 = fuel sheat +* Mix 7 = central (first) Dy+Gd element +* Mix 8 = second ring of fuel +* Mix 9 = third ring of fuel +* Mix 10 = last (fourth) ring of fuel +* Mix 11 = coolant at 50 % density +* Mix 12 = fuel at 1.8 % enrichment +* Mix 13 = fuel at 2.0 % enrichment +* +* General properties of the mixtures in file fuel20n.pin +* A) Coolant (light water): Mix 1 +* purety (D2O content) = 0.0 % (Cprty) +* Boron = 0.0 % (CB) +* Gd = 0.0 mg/kg (CGd) +* Temperature = 573.16 K (Ctemp) +* Density = computed g/cc (Cdens) +* B) Pressure tube (ZrNb 2.65): Mix 2 +* Temperature = 573.66 K (PTtemp) +* Density = 6.5018 g/cc (PTdens) +* C) Gap (CO2): Mix 3 +* Temperature = 459.66 K (Gaptemp) +* Density = 0.00128 g/cc (Gapdens) +* D) Calandria tube (ZrII): Mix 4 +* Temperature = 346.16 K (CTtemp) +* Density = 6.4635 g/cc (CTdens) +* E) Moderator (heavy water): Mix 5 +* purety (D2O content) = 99.75 % (Mprty) +* Boron = 0.0 mg/kg (MB) +* Gd = 0.0 mg/kg (MGd) +* Temperature = 346.16 K (Mtemp) +* Density = computed g/cc (Mdens) +* F) Fuel sheathing (ZrII): Mix 6 +* Temperature = 573.16 K (Shtemp) +* Density = 7.028222 g/cc (Shdens) +* G) Fuel +* a) Central element (Dy+Gd mixture): Mix 7 +* Temperature = 960.16 K (Ftemp1) +* Density = 6.09950 g/cc (Fdens1) +* b) 7 pins ring (fuel 2): Mix 8 +* Enrichment = 2.0 % +* Dy = 0.0 % +* Temperature = 960.16 K (Ftemp2) +* Density = 10.14937 g/cc (Fdens2) +* c) 14 pins ring (fuel 3): Mix 9 +* Enrichment = 2.0 % +* Dy = 0.0 % +* Temperature = 960.16 K (Ftemp3) +* Density = 10.14937 g/cc (Fdens3) +* d) 21 pins ring (fuel 4): Mix 10 +* Enrichment = 2.0 % +* Dy = 0.0 % +* Temperature = 960.16 K (Ftemp4) +* Density = 10.14937 g/cc (Fdens4) +* H) Coolant at half density: Mix 11 +* purety (D2O content) = 0.0 % +* Boron = 0.0 % +* Temperature = 573.16 K +* Density = (Mix 1)/2 g/cc +*---- +* Definition of output data structures +*---- +PARAMETER MicLib :: ::: XSM_FILE MicLib ; ; +*---- +* Local modules used in this procedure +*---- +MODULE INFO: LIB: DELETE: END: ; +*---- +* Local parameters used in this procedure +*---- +REAL Ctemp Cprty Cdens CB CGd := 573.16 0.0 0.0 0.0 0.0 ; +REAL Mtemp Mprty Mdens MB MGd := 346.16 99.75 0.0 0.0 0.0 ; +REAL PTtemp PTdens := Ctemp 6.5018 ; +REAL Gaptemp Gapdens := 459.66 0.00128 ; +REAL CTtemp CTdens := Mtemp 6.4635 ; +REAL Shtemp Shdens := Ctemp 6.4635 1.132060 * ; +REAL Ftemp1 Fdens1 := Ctemp 6.09950 ; +REAL Ftemp2 Fdens2 := 960.16 10.14937 ; +REAL Ftemp3 Fdens3 := 960.16 10.14937 ; +REAL Ftemp4 Fdens4 := 960.16 10.14937 ; +*---- +* Library and isotopes names +*---- +STRING LibName := "E6MLIB" ; +STRING IsoB10 IsoB11 := + "B10" "B11" ; +STRING IsoZr90 IsoZr91 IsoZr92 IsoZr94 IsoZr96 := + "ZR90" "ZR91" "ZR92" "ZR94" "ZR96" ; +STRING IsoZr90PT IsoZr91PT IsoZr92PT IsoZr94PT IsoZr96PT := + "ZR90PT" "ZR91PT" "ZR92PT" "ZR94PT" "ZR96PT" ; +STRING IsoZr90CT IsoZr91CT IsoZr92CT IsoZr94CT IsoZr96CT := + "ZR90CT" "ZR91CT" "ZR92CT" "ZR94CT" "ZR96CT" ; +STRING IsoZr90CL IsoZr91CL IsoZr92CL IsoZr94CL IsoZr96CL := + "ZR90CL" "ZR91CL" "ZR92CL" "ZR94CL" "ZR96CL" ; +STRING IsoCr50 IsoCr52 IsoCr53 IsoCr54 := + "CR50" "CR52" "CR53" "CR54" ; +STRING IsoFe54 IsoFe56 IsoFe57 IsoFe58 := + "FE54" "FE56" "FE57" "FE58" ; +STRING IsoNi58 IsoNi60 IsoNi61 IsoNi62 IsoNi64 := + "NI58" "NI60" "NI61" "NI62" "NI64" ; +STRING IsoDy160 IsoDy161 IsoDy162 IsoDy163 IsoDy164 := + "DY160" "DY161" "DY162" "DY163" "DY164" ; +STRING IsoGd152 IsoGd154 IsoGd155 IsoGd156 IsoGd157 IsoGd158 + IsoGd160 := + "GD152" "GD154" "GD155" "GD156" "GD157" "GD158" + "GD160" ; +STRING IsoNb := + "NB93" ; +STRING IsoU4 IsoU5 IsoU8 IsoU6 IsoPu9 IsoO16 + IsoH1 IsoD2 IsoC IsoMn55 := + "U234" "U235" "U238" "U236" "PU239" "O16" + "H1H2O" "DD2O" "C" "MN55" ; +*---- +* Coolant density and WGT% +*---- +REAL CwgtH1 CwgtD2 CwgtO16 ; +INFO: :: EDIT 0 + TMP: <> K + PUR: <> WGT% + CALC DENS WATER >>Cdens<< + LIB: WIMSAECL FIL: <> + ISO: 3 <> <> <> + CALC WGT% D2O >>CwgtH1<< >>CwgtD2<< >>CwgtO16<< ; +*---- +* Moderator density and WGT% +*---- +REAL MwgtH1 MwgtD2 MwgtO16 ; +INFO: :: EDIT 0 + TMP: <> K + PUR: <> WGT% + CALC DENS WATER >>Mdens<< + LIB: WIMSAECL FIL: <> + ISO: 3 <> <> <> + CALC WGT% D2O >>MwgtH1<< >>MwgtD2<< >>MwgtO16<< ; +*---- +* Create library +*---- +MicLib := LIB: :: + EDIT 1 + NMIX 13 CTRA WIMS + DEPL LIB: WIMSAECL FIL: <> + MIXS LIB: WIMSAECL FIL: <> +*---- +* Coolant mixture + MIX 1 <> <> + H1 = <> <> + O16 = <> <> +*---- +* Pressure tube mixture + MIX 2 <> <> + <> 49.172123 <> 10.842638 + <> 16.755391 <> 17.349846 + <> 2.854732 + <> 2.65 + <> 0.007339 <> 0.119472 + <> 0.002808 <> 0.000380 + <> 0.000417 <> 0.008370 + <> 0.000967 <> 0.000245 + <> 0.004368 <> 0.001740 + <> 0.000077 <> 0.000249 + <> 0.000066 + <> 0.005 + <> 0.008 + <> 0.135 + <> 0.0000294 +*---- +* Gap mixture + MIX 3 <> <> + <> 27.11 <> 72.89 +*---- +* Calandria tube mixture + MIX 4 <> 6.4635 + <> 49.663374 <> 10.950961 + <> 16.922785 <> 17.523178 + <> 2.883252 + <> 0.011856 <> 0.192993 + <> 0.004537 <> 0.000614 + <> 0.004704 <> 0.001874 + <> 0.000083 <> 0.000268 + <> 0.000071 + <> 0.004174 <> 0.083699 + <> 0.009674 <> 0.002453 + <> 0.04 + <> 0.125 + <> 0.01 + <> 0.005 + <> 0.0000698 +*---- +* Moderator mixture + MIX 5 <> <> + H1 = <> <> D2 = <> <> + O16 = <> <> +*---- +* Sheathing mixture + MIX 6 <> <> + <> 49.663374 <> 10.950961 + <> 16.922785 <> 17.523178 + <> 2.883252 + <> 0.011856 <> 0.192993 + <> 0.004537 <> 0.000614 + <> 0.004704 <> 0.001874 + <> 0.000083 <> 0.000268 + <> 0.000071 + <> 0.004174 <> 0.083699 + <> 0.009674 <> 0.002453 + <> 0.04 + <> 0.125 + <> 0.01 + <> 0.005 + <> 0.0000698 +*---- +* Fuel mixture in central (first) position + MIX 7 <> <> + O16 = <> 22.28412 + DY160 = <> 0.32158 + DY161 = <> 2.44767 + DY162 = <> 3.32248 + DY163 = <> 3.26310 + DY164 = <> 3.71562 + Gd152 = <> 0.02348 + Gd154 = <> 0.25925 + Gd155 = <> 1.77150 + Gd156 = <> 2.46598 + Gd157 = <> 1.89744 + ! Gd158 = <> 5.73194 + Gd158 = <> 3.03084 + Gd160 = <> 2.70110 + Zr90 = <> 26.65326 + Zr91 = <> 5.87699 + zr92 = <> 9.08178 + Zr94 = <> 9.40399 + Zr96 = <> 1.54733 +*---- +* Fuel mixture in second ring + MIX 8 <> <> + U5 = <> 2.0 1 + U8 = <> 98.0 1 + O16 = <> 13.44172 + U6 = <> 0.0 1 + PU9 = <> 0.0 1 + PU240 0.0 1 AM241 0.0 1 PU241 0.0 1 + AM242M 0.0 1 PU242 0.0 1 AM243 0.0 1 +*---- +* Fuel mixture in third ring identical to second ring + MIX 9 COMB 8 1.0 +*---- +* Fuel mixture in last (fourth) ring identical to second ring + MIX 10 COMB 8 1.0 +*---- +* Coolant at half density + MIX 11 COMB 1 0.5 0 0.5 +*---- +* Fuel at 1.8 % enrichment + MIX 12 <> <> + U5 = <> 1.8 1 + U8 = <> 98.2 1 + O16 = <> 13.44138 + U6 = <> 0.0 1 + PU9 = <> 0.0 1 + PU240 0.0 1 AM241 0.0 1 PU241 0.0 1 + AM242M 0.0 1 PU242 0.0 1 AM243 0.0 1 +*---- +* Fuel at 2.0 % enrichment + MIX 13 <> <> + U5 = <> 2.0 1 + U8 = <> 98.0 1 + O16 = <> 13.44172 + U6 = <> 0.0 1 + PU9 = <> 0.0 1 + PU240 0.0 1 AM241 0.0 1 PU241 0.0 1 + AM242M 0.0 1 PU242 0.0 1 AM243 0.0 1 + ; +QUIT . -- cgit v1.2.3