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/C2D20_proc/DimACRFuel.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Dragon/data/C2D20_proc/DimACRFuel.c2m')
| -rw-r--r-- | Dragon/data/C2D20_proc/DimACRFuel.c2m | 73 |
1 files changed, 73 insertions, 0 deletions
diff --git a/Dragon/data/C2D20_proc/DimACRFuel.c2m b/Dragon/data/C2D20_proc/DimACRFuel.c2m new file mode 100644 index 0000000..c98b5ef --- /dev/null +++ b/Dragon/data/C2D20_proc/DimACRFuel.c2m @@ -0,0 +1,73 @@ +*DECK DimACRFuel.c2m +*---- +* Name : DimACRFuel.c2m +* Type : DRAGON procedure +* Use : Dimensions for ACR-1000 fuel +* Author : G. Marleau +* Revisions : 2006/05/16 -> Replace ACR-700 by ACR-1000 +* Reference : fuel18n.pin and fuel20n.pin +* +* Description of the procedure: +* DimACRFuel :: +* <<Ring>> +* >>npinp<< >>rpinp<< >>apinp<< >>rradf<< >>rrads<< ; +* Input data: +* Ring : Ring number +* Output data: +* npinp : number of pins in this ring +* rpinp : ring radius (cm) +* apinp : first pin angle (radians) +* rradf : outer fuel radius (cm) +* rrads : outer sheat radius (cm) +*---- +* Definition of the input and output data structures and +* of the input and output parameters for this procedure +* +MODULE END: ; +INTEGER Ring ; + :: >>Ring<< ; +*---- +* Pin diameters are given in mm. Transform them +* to radius in cm. +*---- +REAL thikI thikA := + 0.064 0.044 ; +*---- +* Number of pins in each ring +*---- +INTEGER npinp1 npinp2 npinp3 npinp4 := + 1 7 14 21 ; +*---- +* Radius of pins in each ring +* Diameter is given in mm. Transform to radius in cm. +*---- +REAL rradf1 rradf2 rradf3 rradf4 := + 0.93025 0.53025 0.53025 0.53025 ; +*---- +* Outer sheath radius in each ring +*---- +REAL rrads1 rrads2 rrads3 rrads4 := + 1.003383 0.573787 0.573787 0.573787 ; +*---- +* Pins ring center location. +* Diameter is given in mm. Transform to radius in cm. +*---- +REAL rpinp1 rpinp2 rpinp3 rpinp4 := + 0.0 1.725 2.953 4.384 ; +*---- +* Pins angular location. +*---- +REAL apinp1 apinp2 apinp3 apinp4 := + 0.0 0.0 $Pi_R npinp3 I_TO_R / 0.0 ; +IF Ring 4 = THEN + :: <<npinp4>> <<rpinp4>> <<apinp4>> <<rradf4>> <<rrads4>> ; +ELSEIF Ring 3 = THEN + :: <<npinp3>> <<rpinp3>> <<apinp3>> <<rradf3>> <<rrads3>> ; +ELSEIF Ring 2 = THEN + :: <<npinp2>> <<rpinp2>> <<apinp2>> <<rradf2>> <<rrads2>> ; +ELSEIF Ring 1 = THEN + :: <<npinp1>> <<rpinp1>> <<apinp1>> <<rradf1>> <<rrads1>> ; +ELSE + ECHO "WARNING: Invalid Ring number in DimACRFuel : " Ring ; +ENDIF ; +QUIT . |