Module containing global variables relating to the toroidal field coil systems
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real(kind=dp), | public | :: | acasetf | external case area per coil (inboard leg) (m2) |
|||
real(kind=dp), | public | :: | acasetfo | external case area per coil (outboard leg) (m2) |
|||
real(kind=dp), | public | :: | acndttf | area of the cable conduit (m2) |
|||
real(kind=dp), | public | :: | acond | Winding pack conductor area [m2] Does not include the area of voids and central helium channel |
|||
real(kind=dp), | public | :: | acstf | Cable space area (per turn) [m2] Includes the area of voids and central helium channel |
|||
real(kind=dp), | public | :: | insulation_area | single turn insulation area (m2) |
|||
real(kind=dp), | public | :: | aiwp | winding pack turn insulation area per coil (m2) |
|||
real(kind=dp), | public | :: | sig_tf_case_max | Allowable maximum shear stress (Tresca criterion) in TF coil case (Pa) |
|||
real(kind=dp), | public | :: | sig_tf_wp_max | Allowable maximum shear stress (Tresca criterion) in TF coil conduit (Pa) Allowable Tresca stress in TF coil structural material (Pa) |
|||
real(kind=dp), | public | :: | arealeg | outboard TF leg area (m2) |
|||
real(kind=dp), | public | :: | aswp | winding pack structure area (m2) |
|||
real(kind=dp), | public | :: | avwp | winding pack void (He coolant) area (m2) |
|||
real(kind=dp), | public | :: | awphec | winding pack He coil area (m2) |
|||
real(kind=dp), | public | :: | bcritsc | upper critical field (T) for Nb3Sn superconductor at zero temperature and
strain ( |
|||
real(kind=dp), | public | :: | bmaxtf | mean peak field at TF coil (T) |
|||
real(kind=dp), | public | :: | bmaxtfrp | peak field at TF conductor with ripple (T) |
|||
real(kind=dp), | public | :: | casestr | case strain |
|||
real(kind=dp), | public | :: | casthi | inboard TF coil case plasma side thickness (m) (calculated for stellarators) |
|||
real(kind=dp), | public | :: | casthi_fraction | inboard TF coil case plasma side thickness as a fraction of tfcth |
|||
logical, | public | :: | casthi_is_fraction | logical switch to make casthi a fraction of TF coil thickness ( |
|||
real(kind=dp), | public | :: | casths | inboard TF coil sidewall case thickness (m) (calculated for stellarators) |
|||
real(kind=dp), | public | :: | casths_fraction | inboard TF coil sidewall case thickness as a fraction of tftort |
|||
logical, | public | :: | tfc_sidewall_is_fraction | logical switch to make casths a fraction of TF coil thickness ( |
|||
real(kind=dp), | public | :: | t_conductor | Conductor (cable + steel conduit) area averaged dimension [m] |
|||
real(kind=dp), | public | :: | t_turn_tf | TF coil turn edge length including turn insulation [m] If the turn is not a square (i_tf_turns_integer = 1) a squared turn of equivelent size is use to calculated this quantity If the t_turn_tf is non zero, cpttf is calculated |
|||
logical, | public | :: | t_turn_tf_is_input | Boolean switch to activated when the user set the TF coil turn dimensions Not an input |
|||
real(kind=dp), | public | :: | f_t_turn_tf | f-value for TF turn edge length constraint If the turn is not a square (i_tf_turns_integer = 1) a squared turn of equivelent size is use for this constraint iteration variable ixc = 175 constraint equation icc = 86 |
|||
real(kind=dp), | public | :: | t_turn_tf_max | TF turn edge length including turn insulation upper limit [m] If the turn is not a square (i_tf_turns_integer = 1) a squared turn of equivelent size is use for this constraint constraint equation icc = 86 |
|||
real(kind=dp), | public | :: | t_cable_tf | TF coil superconducting cable squared/rounded dimensions [m] If the turn is not a square (i_tf_turns_integer = 1) a squared cable of equivelent size is use to calculated this quantity If the t_cable_tf is non zero, cpttf is calculated |
|||
logical, | public | :: | t_cable_tf_is_input | Boolean switch to activated when the user set the TF coil cable dimensions Not an input |
|||
real(kind=dp), | public | :: | acs | Area of space inside conductor (m2) |
|||
real(kind=dp), | public | :: | cdtfleg | TF outboard leg current density (A/m2) (resistive coils only) |
|||
real(kind=dp), | public | :: | cforce | centering force on inboard leg (per coil) (N/m) |
|||
real(kind=dp), | public | :: | cplen | length of TF coil inboard leg ('centrepost') ( |
|||
real(kind=dp), | public | :: | cpttf | TF coil current per turn (A). (calculated for stellarators) (calculated for
integer-turn TF coils |
|||
real(kind=dp), | public | :: | cpttf_max | Max TF coil current per turn [A]. (for stellarators and |
|||
real(kind=dp), | public | :: | dcase | density of coil case (kg/m3) |
|||
real(kind=dp), | public, | dimension(9) | :: | dcond | density of superconductor type given by i_tf_sc_mat/isumatoh/isumatpf (kg/m3) |
||
real(kind=dp), | public | :: | dcondins | density of conduit + ground-wall insulation (kg/m3) |
|||
real(kind=dp), | public | :: | dhecoil | diameter of central helium channel in TF winding (m) |
|||
real(kind=dp), | public | :: | estotftgj | total stored energy in the toroidal field (GJ) |
|||
real(kind=dp), | public | :: | b_crit_upper_nbti | upper critical field of GL_nbti |
|||
real(kind=dp), | public | :: | t_crit_nbti | critical temperature of GL_nbti |
|||
real(kind=dp), | public | :: | max_force_density | Maximal (WP averaged) force density in TF coils at 1 point. (MN/m3) |
|||
real(kind=dp), | public | :: | fcutfsu | copper fraction of cable conductor (TF coils) (iteration variable 59) |
|||
real(kind=dp), | public | :: | fhts | technology adjustment factor for critical current density fit for isumat..=2 Bi-2212 superconductor, to describe the level of technology assumed (i.e. to account for stress, fatigue, radiation, AC losses, joints or manufacturing variations; 1.0 would be very optimistic) |
|||
real(kind=dp), | public | :: | insstrain | Radial strain in insulator |
|||
integer, | public | :: | i_tf_stress_model | Switch for the TF coil stress model 0 : Generalized plane strain formulation, Issues #977 and #991, O(n^3) 1 : Old plane stress model (only for SC) 2 : Axisymmetric extended plane strain, Issues #1414 and #998, O(n) |
|||
integer, | public | :: | i_tf_tresca | Switch for TF coil conduit Tresca stress criterion: 0 : Tresca (no adjustment); 1 : Tresca with CEA adjustment factors (radial+2%, vertical+60%) |
|||
integer, | public | :: | i_tf_wp_geom | Switch for TF WP geometry selection 0 : Rectangular geometry 1 : Double rectangular geometry 2 : Trapezoidal geometry (constant lateral casing thickness) Default setting for backward compatibility if i_tf_turns_integer = 0 : Double rectangular if i_tf_turns_integer = 1 : Rectangular |
|||
integer, | public | :: | i_tf_case_geom | Switch for TF case geometry selection 0 : Circular front case (ITER design) 1 : Straight front case |
|||
integer, | public | :: | i_tf_turns_integer | Switch for TF coil integer/non-integer turns: 0 : non-integer turns 1 : integer turns |
|||
integer, | public | :: | i_tf_sc_mat | Switch for superconductor material in TF coils:
|
|||
integer, | public | :: | i_tf_sup | Switch for TF coil conductor model:
|
|||
integer, | public | :: | i_tf_shape | Switch for TF coil toroidal shape:
|
|||
integer, | public | :: | i_tf_cond_eyoung_axial | Switch for the behavior of the TF coil conductor elastic axial properties
|
|||
integer, | public | :: | i_tf_cond_eyoung_trans | Switch for the behavior of the elastic properties of the TF coil
conductorin the transverse direction. Only active if
|
|||
integer, | public | :: | n_pancake | Number of pancakes in TF coil. Only used if |
|||
integer, | public | :: | n_layer | Number of layers in TF coil. Only used if |
|||
integer, | public | :: | n_rad_per_layer | Size of the arrays per layers storing the radial dependent stress quantities (stresses, strain displacement etc..) |
|||
integer, | public | :: | i_tf_bucking | Switch for TF inboard suport structure design: Default setting for backward compatibility - if copper resistive TF (i_tf_sup = 0) : Free standing TF without bucking structure - if Superconducting TF (i_tf_sup = 1) : Free standing TF with a steel casing - if aluminium TF (i_tf_sup = 2) : Free standing TF with a bucking structure Rem : the case is a bucking structure - =0 : Free standing TF without case/bucking cyliner (only a conductor layer) - =1 : Free standing TF with a case/bucking cylinder made of - if copper resistive TF (i_tf_sup = 0) : used defined bucking cylinder - if Superconducting TF (i_tf_sup = 1) : Steel casing - if aluminium resisitive TF (i_tf_sup = 2) : used defined bucking cylinder - =2 : The TF is in contact with the CS : "bucked and wedged design" Fast version : thin TF-CS interface neglected in the stress calculations (3 layers) The CS is frictionally decoupled from the TF, does not carry axial tension - =3 : The TF is in contact with the CS : "bucked and wedged design" Full version : thin TF-CS Kapton interface introduced in the stress calculations (4 layers) The CS and kaptop are frictionally decoupled from the TF, do not carry axial tension |
|||
integer, | public | :: | n_tf_graded_layers | Number of layers of different stress properties in the WP. If |
|||
integer, | public | :: | n_tf_stress_layers | Number of layers considered for the inboard TF stress calculations set in initial.f90 from i_tf_bucking and n_tf_graded_layers |
|||
integer, | public | :: | n_tf_wp_layers | Maximum number of layers that can be considered in the TF coil composited/smeared stress analysis. This is the layers of one turn, not the entire WP. Default: 5. void, conductor, copper, conduit, insulation. |
|||
real(kind=dp), | public | :: | jbus | bussing current density (A/m2) |
|||
real(kind=dp), | public | :: | j_crit_str_tf | j_crit_str : superconductor strand critical current density under operating conditions (A/m2). Necessary for the cost calculation in $/kAm |
|||
real(kind=dp), | public, | dimension(9) | :: | j_crit_str_0 | j_crit_str_pf_0 : superconductor strand critical current density at 6 T and 4.2 K (A/m2) Necessary for the cost calculation in $/kAm |
||
real(kind=dp), | public | :: | jwdgcrt | critical current density for winding pack (A/m2) |
|||
real(kind=dp), | public | :: | jwdgpro | allowable TF coil winding pack current density, for dump temperature rise protection (A/m2) |
|||
real(kind=dp), | public | :: | jwptf | winding pack engineering current density (A/m2) |
|||
real(kind=dp), | public | :: | oacdcp | Overall current density in TF coil inboard legs midplane (A/m2) Rem SK : Not used in tfcoil to set the current any more. Should not be used as iteration variable 12 any more. It is now calculated. |
|||
real(kind=dp), | public | :: | eyoung_ins | Insulator Young's modulus [Pa]. Default value (1.0D8) setup the following values - SC TF, eyoung_ins = 20 Gpa (default value from DDD11-2 v2 2 (2009)) - Al TF, eyoung_ins = 2.5 GPa (Kapton polymer) |
|||
real(kind=dp), | public | :: | eyoung_steel | Steel case Young's modulus (Pa) (default value from DDD11-2 v2 2 (2009)) |
|||
real(kind=dp), | public | :: | eyoung_cond_axial | SC TF coil conductor Young's modulus in the parallel (along the wire/tape)
direction [Pa]
Set by user input only if |
|||
real(kind=dp), | public | :: | eyoung_cond_trans | SC TF coil conductor Young's modulus in the transverse direction [Pa]
Set by user input only if |
|||
real(kind=dp), | public | :: | eyoung_res_tf_buck | Resistive TF magnets bucking cylinder young modulus (Pa) |
|||
real(kind=dp), | public | :: | eyoung_copper | Copper young modulus. Default value taken from wikipedia |
|||
real(kind=dp), | public | :: | eyoung_al | Aluminium young modulus. Default value taken from wikipedia |
|||
real(kind=dp), | public | :: | poisson_steel | Steel Poisson's ratio, Source : https://www.engineeringtoolbox.com/metals-poissons-ratio-d_1268.html |
|||
real(kind=dp), | public | :: | poisson_copper | Copper Poisson's ratio. Source : https://www.engineeringtoolbox.com/poissons-ratio-d_1224.html |
|||
real(kind=dp), | public | :: | poisson_al | Aluminium Poisson's ratio. Source : https://www.engineeringtoolbox.com/poissons-ratio-d_1224.html |
|||
real(kind=dp), | public | :: | poisson_ins | Insulation Poisson's ratio. Default: Kapton. Source : DuPont™ Kapton® HN datasheet. |
|||
real(kind=dp), | public | :: | poisson_cond_axial | SC TF coil conductor Poisson's ratio in the parallel-transverse direction |
|||
real(kind=dp), | public | :: | poisson_cond_trans | SC TF coil conductor Poisson's ratio in the transverse-transverse direction |
|||
real(kind=dp), | public | :: | rbmax | Radius of maximum TF B-field (m) |
|||
real(kind=dp), | public | :: | tflegres | TF coil leg resistance (ohm) |
|||
real(kind=dp), | public | :: | toroidalgap | Minimal distance between two toroidal coils. (m) |
|||
real(kind=dp), | public | :: | ftoroidalgap | F-value for minimum tftort ( |
|||
real(kind=dp), | public | :: | ripmax | aximum allowable toroidal field ripple amplitude at plasma edge (%) |
|||
real(kind=dp), | public | :: | ripple | peak/average toroidal field ripple at plasma edge (%) |
|||
real(kind=dp), | public | :: | ritfc | total (summed) current in TF coils (A) |
|||
integer, | public, | parameter | :: | n_radial_array | = | 50 | Size of the radial distribution arrays per layers used for stress, strain and displacement distibution |
real(kind=dp), | public, | dimension(2*n_radial_array) | :: | radial_array | Array refining the radii of the stress calculations arrays |
||
real(kind=dp), | public, | dimension(2*n_radial_array) | :: | sig_tf_r | TF Inboard leg radial stress in steel r distribution at mid-plane [Pa] |
||
real(kind=dp), | public, | dimension(2*n_radial_array) | :: | sig_tf_t | TF Inboard leg tangential stress in steel r distribution at mid-plane [Pa] |
||
real(kind=dp), | public, | dimension(2*n_radial_array) | :: | deflect | TF coil radial deflection (displacement) radial distribution [m] |
||
real(kind=dp), | public | :: | sig_tf_z | TF Inboard leg vertical tensile stress in steel at mid-plane [Pa] |
|||
real(kind=dp), | public, | dimension(2*n_radial_array) | :: | sig_tf_vmises | TF Inboard leg Von-Mises stress in steel r distribution at mid-plane [Pa] |
||
real(kind=dp), | public, | dimension(2*n_radial_array) | :: | sig_tf_tresca | TF Inboard leg maximum shear stress (Tresca criterion) in steel r distribution at mid-plane [Pa] |
||
real(kind=dp), | public | :: | sig_tf_cs_bucked | Maximum shear stress (Tresca criterion) in CS structures at CS flux swing [Pa]:
Quantity only computed for bucked and wedged design ( |
|||
real(kind=dp), | public | :: | sig_tf_case | Maximum shear stress (Tresca criterion) in TF casing steel structures (Pa) |
|||
real(kind=dp), | public | :: | sig_tf_wp | ||||
real(kind=dp), | public | :: | str_cs_con_res | Residual manufacturing strain in CS superconductor material |
|||
real(kind=dp), | public | :: | str_pf_con_res | Residual manufacturing strain in PF superconductor material |
|||
real(kind=dp), | public | :: | str_tf_con_res | Residual manufacturing strain in TF superconductor material
If |
|||
real(kind=dp), | public | :: | str_wp | Axial (vertical) strain in the TF coil winding pack found by
self-consistent stress/strain calculation.
if |
|||
real(kind=dp), | public | :: | str_wp_max | Maximum allowed absolute value of the strain in the TF coil
( |
|||
integer, | public | :: | i_str_wp | Switch for the behavior of the TF strain used to compute the strain-dependent critical surface:
|
|||
character(len=12), | public | :: | quench_model | switch for TF coil quench model (Only applies to REBCO magnet at present, issue #522):
|
|||
real(kind=dp), | public | :: | time1 | Time at which TF quench is detected (s) |
|||
real(kind=dp), | public | :: | tcritsc | critical temperature (K) for superconductor at zero field and strain ( |
|||
real(kind=dp), | public | :: | tdmptf | fast discharge time for TF coil in event of quench (s) ( For REBCO model, meaning depends on quench_model:
|
|||
real(kind=dp), | public | :: | tfareain | Area of inboard midplane TF legs (m2) |
|||
real(kind=dp), | public | :: | tfbusl | TF coil bus length (m) |
|||
real(kind=dp), | public | :: | tfbusmas | TF coil bus mass (kg) |
|||
real(kind=dp), | public | :: | tfckw | available DC power for charging the TF coils (kW) |
|||
real(kind=dp), | public | :: | tfcmw | Peak power per TF power supply (MW) |
|||
real(kind=dp), | public | :: | tfcpmw | Peak resistive TF coil inboard leg power (MW) |
|||
real(kind=dp), | public | :: | tfjtsmw | TF joints resistive power losses (MW) |
|||
real(kind=dp), | public | :: | tfcryoarea | surface area of toroidal shells covering TF coils (m2) |
|||
real(kind=dp), | public | :: | tficrn | TF coil half-width - inner bore (m) |
|||
real(kind=dp), | public | :: | tfind | TF coil inductance (H) |
|||
real(kind=dp), | public | :: | tfinsgap | TF coil WP insertion gap (m) |
|||
real(kind=dp), | public | :: | tflegmw | TF coil outboard leg resistive power (MW) |
|||
real(kind=dp), | public | :: | rhocp | TF coil inboard leg resistivity [Ohm-m]. If |
|||
real(kind=dp), | public | :: | rhotfleg | Resistivity of a TF coil leg (Ohm-m) |
|||
real(kind=dp), | public | :: | rhotfbus | Resistivity of a TF coil bus (Ohm-m). Default value takes the same res as the leg one |
|||
real(kind=dp), | public | :: | frhocp | Centrepost resistivity enhancement factor. For |
|||
real(kind=dp), | public | :: | frholeg | Ouboard legs resistivity enhancement factor. Only used for |
|||
integer, | public | :: | i_cp_joints | Switch for CP demoutable joints type -= 0 : Clampled joints -= 1 : Sliding joints Default value (-1) choses : Sliding joints for resistive magnets (i_tf_sup = 0, 2) Clampled joints for superconducting magents (i_tf_sup = 1) |
|||
real(kind=dp), | public | :: | rho_tf_joints | TF joints surfacic resistivity [ohm.m]. Feldmetal joints assumed. |
|||
integer, | public | :: | n_tf_joints_contact | Number of contact per turn |
|||
integer, | public | :: | n_tf_joints | Number of joints Ex: n_tf_joints = 2 for top and bottom CP joints |
|||
real(kind=dp), | public | :: | th_joint_contact | TF sliding joints contact pad width [m] |
|||
real(kind=dp), | public | :: | pres_joints | Calculated TF joints resistive power losses [W] |
|||
real(kind=dp), | public | :: | tfleng | TF coil circumference (m) |
|||
real(kind=dp), | public | :: | eff_tf_cryo | TF cryoplant efficiency (compared to pefect Carnot cycle). Using -1 set the default value depending on magnet technology:
|
|||
real(kind=dp), | public | :: | n_tf | Number of TF coils (default = 50 for stellarators). Number of TF coils outer legs for ST |
|||
real(kind=dp), | public | :: | tfocrn | TF coil half-width - outer bore (m) |
|||
real(kind=dp), | public | :: | tfsai | area of the inboard TF coil legs (m2) |
|||
real(kind=dp), | public | :: | tfsao | area of the outboard TF coil legs (m2) |
|||
real(kind=dp), | public | :: | tftmp | peak helium coolant temperature in TF coils and PF coils (K) |
|||
real(kind=dp), | public | :: | tftort | TF coil toroidal thickness (m) |
|||
real(kind=dp), | public | :: | thicndut | conduit insulation thickness (m) |
|||
real(kind=dp), | public | :: | layer_ins | Additional insulation thickness between layers (m) |
|||
real(kind=dp), | public | :: | thkcas | inboard TF coil case outer (non-plasma side) thickness (m) ( |
|||
real(kind=dp), | public | :: | dr_tf_wp | radial thickness of winding pack (m) ( |
|||
real(kind=dp), | public | :: | thwcndut | TF coil conduit case thickness (m) ( |
|||
real(kind=dp), | public | :: | tinstf | Thickness of the ground insulation layer surrounding (m)
- Superconductor TF ( |
|||
real(kind=dp), | public | :: | tmargmin_tf | minimum allowable temperature margin : TF coils (K) |
|||
real(kind=dp), | public | :: | tmargmin_cs | minimum allowable temperature margin : CS (K) |
|||
real(kind=dp), | public | :: | tmargmin | minimum allowable temperature margin : TFC AND CS (K) |
|||
real(kind=dp), | public | :: | temp_margin | temperature margin (K) |
|||
real(kind=dp), | public | :: | tmargtf | TF coil temperature margin (K) |
|||
real(kind=dp), | public | :: | tmaxpro | maximum temp rise during a quench for protection (K) |
|||
real(kind=dp), | public | :: | tmax_croco | CroCo strand: maximum permitted temp during a quench (K) |
|||
real(kind=dp), | public | :: | croco_quench_temperature | CroCo strand: Actual temp reached during a quench (K) |
|||
real(kind=dp), | public | :: | tmpcry | coil temperature for cryogenic plant power calculation (K) |
|||
real(kind=dp), | public | :: | n_tf_turn | number of turns per TF coil |
|||
real(kind=dp), | public | :: | vdalw | max voltage across TF coil during quench (kV) ( |
|||
real(kind=dp), | public | :: | vforce | vertical tension on inboard leg/coil (N) |
|||
real(kind=dp), | public | :: | f_vforce_inboard | Fraction of the total vertical force taken by the TF inboard leg tension
Not used for resistive |
|||
real(kind=dp), | public | :: | vforce_outboard | Vertical tension on outboard leg/coil (N) |
|||
real(kind=dp), | public | :: | vftf | coolant fraction of TFC 'cable' ( |
|||
real(kind=dp), | public | :: | voltfleg | volume of each TF coil outboard leg (m3) |
|||
real(kind=dp), | public | :: | vtfkv | TF coil voltage for resistive coil including bus (kV) |
|||
real(kind=dp), | public | :: | vtfskv | voltage across a TF coil during quench (kV) |
|||
real(kind=dp), | public | :: | whtcas | mass per coil of external case (kg) |
|||
real(kind=dp), | public | :: | whtcon | TF coil conductor mass per coil (kg/coil).
For |
|||
real(kind=dp), | public | :: | whtconcu | copper mass in TF coil conductor (kg/coil).
For |
|||
real(kind=dp), | public | :: | whtconal | Aluminium mass in TF coil conductor (kg/coil).
For |
|||
real(kind=dp), | public | :: | whtconin | conduit insulation mass in TF coil conductor (kg/coil) |
|||
real(kind=dp), | public | :: | whtconsc | superconductor mass in TF coil cable (kg/coil) |
|||
real(kind=dp), | public | :: | whtconsh | steel conduit mass in TF coil conductor (kg/coil) |
|||
real(kind=dp), | public | :: | whtgw | mass of ground-wall insulation layer per coil (kg/coil) |
|||
real(kind=dp), | public | :: | whttf | total mass of the TF coils (kg) |
|||
real(kind=dp), | public | :: | wwp1 | width of first step of winding pack (m) |
|||
real(kind=dp), | public | :: | wwp2 | width of second step of winding pack (m) |
|||
real(kind=dp), | public, | dimension(4) | :: | dthet | angle of arc i (rad) |
||
real(kind=dp), | public, | dimension(4) | :: | radctf | radius of arc i (m) |
||
real(kind=dp), | public, | dimension(5) | :: | xarc | x location of arc point i on surface (m) |
||
real(kind=dp), | public, | dimension(4) | :: | xctfc | x location of arc centre i (m) |
||
real(kind=dp), | public, | dimension(5) | :: | yarc | y location of arc point i on surface (m) |
||
real(kind=dp), | public, | dimension(4) | :: | yctfc | y location of arc centre i (m) |
||
real(kind=dp), | public, | dimension(4) | :: | tfa | Horizontal radius of inside edge of TF coil (m) |
||
real(kind=dp), | public, | dimension(4) | :: | tfb | Vertical radius of inside edge of TF coil (m) |
||
real(kind=dp), | public | :: | drtop | centrepost taper maximum radius adjustment (m) |
|||
real(kind=dp), | public | :: | dztop | centrepost taper height adjustment (m) |
|||
real(kind=dp), | public | :: | etapump | centrepost coolant pump efficiency |
|||
real(kind=dp), | public | :: | fcoolcp | coolant fraction of TF coil inboard legs ( |
|||
real(kind=dp), | public | :: | fcoolleg | coolant fraction of TF coil outboard legs |
|||
real(kind=dp), | public | :: | a_cp_cool | Centrepost cooling area toroidal cross-section (constant over the whole CP) |
|||
real(kind=dp), | public | :: | ncool | number of centrepost coolant tubes |
|||
real(kind=dp), | public | :: | ppump | centrepost coolant pump power (W) |
|||
real(kind=dp), | public | :: | prescp | resistive power in the centrepost (itart=1) [W].
If |
|||
real(kind=dp), | public | :: | presleg | Summed resistive power in the TF coil legs [W]. Remain 0 if |
|||
real(kind=dp), | public | :: | ptempalw | maximum peak centrepost temperature (K) ( |
|||
real(kind=dp), | public | :: | rcool | average radius of coolant channel (m) ( |
|||
real(kind=dp), | public | :: | tcoolin | centrepost coolant inlet temperature (K) |
|||
real(kind=dp), | public | :: | dtiocool | inlet / outlet TF coil coolant temperature rise (K) |
|||
real(kind=dp), | public | :: | tcpav | Average temperature of centrepost called CP (K). Only used for resistive coils
to compute the resisitive heating. Must be an iteration variable for
ST ( |
|||
real(kind=dp), | public | :: | tcpav2 | Computed centrepost average temperature (K) (for consistency) |
|||
real(kind=dp), | public | :: | tlegav | Average temperature of the TF outboard legs [K]. If |
|||
real(kind=dp), | public | :: | tcpmax | peak centrepost temperature (K) |
|||
real(kind=dp), | public | :: | vcool | inlet centrepost coolant flow speed at midplane (m/s) ( |
|||
real(kind=dp), | public | :: | vol_cond_cp | Exact conductor volume in the centrepost (m3) |
|||
real(kind=dp), | public | :: | whtcp | mass of TF coil inboard legs (kg) |
|||
real(kind=dp), | public | :: | whttflgs | mass of the TF coil legs (kg) |
|||
real(kind=dp), | public | :: | cryo_cool_req | Cryo cooling requirement at helium temp 4.5K (kW) |
|||
real(kind=dp), | public | :: | theta1_coil | The angle of the outboard arc forming the TF coil current center line [deg] |
|||
real(kind=dp), | public | :: | theta1_vv | The angle of the outboard arc forming the Vacuum Vessel current center line [deg] |
|||
real(kind=dp), | public | :: | max_vv_stress | The allowable peak maximum shear stress in the vacuum vessel due to quench and fast discharge of the TF coils [Pa] |
Initialise module variables