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/proc_LZC/DimLZC.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Dragon/data/proc_LZC/DimLZC.c2m')
| -rw-r--r-- | Dragon/data/proc_LZC/DimLZC.c2m | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/Dragon/data/proc_LZC/DimLZC.c2m b/Dragon/data/proc_LZC/DimLZC.c2m new file mode 100644 index 0000000..af18d3d --- /dev/null +++ b/Dragon/data/proc_LZC/DimLZC.c2m @@ -0,0 +1,52 @@ +*DECK DimLZC.c2m +*---- +* Name : DimLZC.c2m +* Type : DRAGON procedure +* Use : Dimensions for Gentilly-2 Liquid Zone Controller +* (cluster model) +* Author : G. Marleau +* Date : 2006/05/05 + +* Description of the procedure: +* DimLZC :: +* >>RinnGT<< >>RoutGT<< +* >>RinnBa<< >>RoutBa<< +* >>RinnFe<< >>RoutFe<< +* >>RinnBu<< >>RoutBu<< +* >>RinnSc<< >>RoutSc<< +* >>Rcent<< ; +* Output data: +* RinnGT : inner radius of guide tube +* RoutGT : outer radius of guide tube +* RinnBa : inner Balance tube radius +* RoutBa : outer Balance tube radius +* RinnFe : inner Feeder tube radius +* RoutFe : outer Feeder tube radius +* RinnBu : inner Bubbler tube radius +* RoutBu : outer Bubbler tube radius +* RinnSc : inner Scavanger tube radius +* RoutSc : outer Scavanger tube radius +* Rcent : annulus radius where the LZC are located +*---- +* Definition of the input and output data structures and +* of the input and output parameters for this procedure +*---- +REAL RinnGT RoutGT := + 11.430 2.0 / 11.684 2.0 / ; +REAL RinnBa RoutBa := + 1.814 2.0 / 1.966 2.0 / ; +REAL RinnFe RoutFe := + 2.972 2.0 / 3.124 2.0 / ; +REAL RinnBu RoutBu := + 0.483 2.0 / 0.635 2.0 / ; +REAL RinnSc RoutSc := + 1.608 2.0 / 1.760 2.0 / ; +REAL Rcent := + RinnGT 2.0 + 2.0 / ; +:: <<RinnGT>> <<RoutGT>> + <<RinnBa>> <<RoutBa>> + <<RinnFe>> <<RoutFe>> + <<RinnBu>> <<RoutBu>> + <<RinnSc>> <<RoutSc>> + <<Rcent>> ; +QUIT . |