diff options
| author | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
|---|---|---|
| committer | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
| commit | 7dfcc480ba1e19bd3232349fc733caef94034292 (patch) | |
| tree | 03ee104eb8846d5cc1a981d267687a729185d3f3 /Dragon/data/twinfrith_proc/TCWW12.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Dragon/data/twinfrith_proc/TCWW12.c2m')
| -rw-r--r-- | Dragon/data/twinfrith_proc/TCWW12.c2m | 107 |
1 files changed, 107 insertions, 0 deletions
diff --git a/Dragon/data/twinfrith_proc/TCWW12.c2m b/Dragon/data/twinfrith_proc/TCWW12.c2m new file mode 100644 index 0000000..2f7ac86 --- /dev/null +++ b/Dragon/data/twinfrith_proc/TCWW12.c2m @@ -0,0 +1,107 @@ +*---- +* TEST CASE TCWW12 +* WIMS-AECL 69 GROUPS LIBRARY FILE WIMSLIB +* GENERATE A LIBRARY USING INFO AND OTHER OPTIONS +* +* REF: None +* +*---- +* Define variables and initialize +* Coolant properties +* a) Input +* TempCool = Coolant temperature (K) +* Purity = D2/(D2+H1) Weight % ratio in Coolant +* b) Output +* DensCool = Coolant Density (g/cm**3) +* WH1C = H1 Weight % in Coolant +* WD2C = D2 Weight % in Coolant +* WO16C = O16 Weight % in Coolant +* Fuel properties +* a) Input +* TempFuel = Fuel temperature (K) +* Enrichment = U235/(U235+U238) Weight % ratio in Fuel +* DensFuel = Fuel Density (g/cm**3) +* b) Output +* WU235F = U235 Weight % in Fuel +* WU238F = U238 Weight % in Fuel +* WO16F = O16 Weight % in Fuel +*---- +REAL + TempCool Purity TempFuel Enrichment DensFuel := + 560.66 99.95 941.29 0.72 10.437501 ; +REAL + WH1C WD2C WO16C DensCool + WU235F WU238F WO16F ; +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST + LIBRARY ISOT ; +MODULE + LIB: INFO: END: ; +PROCEDURE assertS ; +*---- +* Get Coolant properties +*---- +ECHO + "Input - Coolant temperature (K) " TempCool ; +ECHO + "Input - D2/(D2+H1) Weight % ratio in Coolant" Purity ; +INFO: :: + TMP: <<TempCool>> K + PUR: <<Purity>> WGT% + CALC DENS WATER >>DensCool<< + LIB: WIMSAECL FIL: WIMSLIB + ISO: 3 H1H2O D2D2O O16 + CALC WGT% D2O >>WH1C<< >>WD2C<< >>WO16C<< + ; +ECHO + "Output - Coolant Density (g/cm**3)" DensCool ; +ECHO + "Output - H1 Weight % in Coolant " WH1C ; +ECHO + "Output - D2 Weight % in Coolant " WD2C ; +ECHO + "Output - O16 Weight % in Coolant " WO16C ; +*---- +* Get Fuel properties +*---- +ECHO + "Input - Fuel temperature (K) " TempFuel ; +ECHO + "Input - U235/(U235+U238) Weight % ratio in Fuel" Enrichment ; +ECHO + "Input - Fuel Density (g/cm**3) " DensFuel ; +INFO: :: + ENR: <<Enrichment>> WGT% + LIB: WIMSAECL FIL: WIMSLIB + ISO: 3 U235 U238 O16 + CALC WGT% UO2 >>WU235F<< >>WU238F<< >>WO16F<< + ; +ECHO + "Output - U235 Weight % in Fuel" WU235F ; +ECHO + "Output - U238 Weight % in Fuel" WU238F ; +ECHO + "Output - O16 Weight % in Fuel " WO16F ; +*---- +* Microscopic cross sections from file WIMSLIB format WIMS-AECL +*---- +LIBRARY := LIB: :: + NMIX 5 CTRA WIMS + MIXS LIB: WIMSAECL FIL: WIMSLIB + MIX 1 <<TempCool>> <<DensCool>> O16 = O16 <<WO16C>> + D2D2O = D2D2O <<WD2C>> H1H2O = H1H2O <<WH1C>> + MIX 2 <<TempFuel>> <<DensCool>> O16 = O16 <<WO16C>> + D2D2O = D2D2O <<WD2C>> H1H2O = H1H2O <<WH1C>> + MIX 3 <<TempFuel>> <<DensFuel>> O16 = O16 <<WO16F>> + U235 = U235 <<WU235F>> 1 + U238 = U238 <<WU238F>> 1 + MIX 4 COMB 2 0.5 0 0.5 + MIX 5 COMB 3 0.1 3 0.9 + ; +ISOT := LIBRARY :: STEP UP ISOTOPESLIST STEP AT 15 ; (*U238 0005*) +assertS ISOT :: NG 35 5.000270E-01 ; +ECHO "test TCWW12 completed" ; +END: ; +QUIT "LIST" . |