tfcoil_variables Module

Module containing global variables relating to the toroidal field coil systems

References

  • ITER Magnets design description document DDD11-2 v2 2 (2009)


Contents

acasetf acasetfo acndttf acond acstf insulation_area aiwp sig_tf_case_max sig_tf_wp_max arealeg aswp avwp awphec bcritsc bmaxtf bmaxtfrp casestr casthi casthi_fraction casthi_is_fraction casths casths_fraction tfc_sidewall_is_fraction t_conductor t_turn_tf t_turn_tf_is_input f_t_turn_tf t_turn_tf_max t_cable_tf t_cable_tf_is_input acs cdtfleg cforce cplen cpttf cpttf_max dcase dcond dcondins dhecoil estotftgj b_crit_upper_nbti t_crit_nbti max_force_density fcutfsu fhts insstrain i_tf_stress_model i_tf_tresca i_tf_wp_geom i_tf_case_geom i_tf_turns_integer i_tf_sc_mat i_tf_sup i_tf_shape i_tf_cond_eyoung_axial i_tf_cond_eyoung_trans n_pancake n_layer n_rad_per_layer i_tf_bucking n_tf_graded_layers n_tf_stress_layers n_tf_wp_layers jbus j_crit_str_tf j_crit_str_0 jwdgcrt jwdgpro jwptf oacdcp eyoung_ins eyoung_steel eyoung_cond_axial eyoung_cond_trans eyoung_res_tf_buck eyoung_copper eyoung_al poisson_steel poisson_copper poisson_al poisson_ins poisson_cond_axial poisson_cond_trans rbmax tflegres toroidalgap ftoroidalgap ripmax ripple ritfc n_radial_array radial_array sig_tf_r sig_tf_t deflect sig_tf_z sig_tf_vmises sig_tf_tresca sig_tf_cs_bucked sig_tf_case sig_tf_wp str_cs_con_res str_pf_con_res str_tf_con_res str_wp str_wp_max i_str_wp quench_model time1 tcritsc tdmptf tfareain tfbusl tfbusmas tfckw tfcmw tfcpmw tfjtsmw tfcryoarea tficrn tfind tfinsgap tflegmw rhocp rhotfleg rhotfbus frhocp frholeg i_cp_joints rho_tf_joints n_tf_joints_contact n_tf_joints th_joint_contact pres_joints tfleng eff_tf_cryo n_tf tfocrn tfsai tfsao tftmp tftort thicndut layer_ins thkcas dr_tf_wp thwcndut tinstf tmargmin_tf tmargmin_cs tmargmin temp_margin tmargtf tmaxpro tmax_croco croco_quench_temperature tmpcry n_tf_turn vdalw vforce f_vforce_inboard vforce_outboard vftf voltfleg vtfkv vtfskv whtcas whtcon whtconcu whtconal whtconin whtconsc whtconsh whtgw whttf wwp1 wwp2 dthet radctf xarc xctfc yarc yctfc tfa tfb drtop dztop etapump fcoolcp fcoolleg a_cp_cool ncool ppump prescp presleg ptempalw rcool tcoolin dtiocool tcpav tcpav2 tlegav tcpmax vcool vol_cond_cp whtcp whttflgs cryo_cool_req theta1_coil theta1_vv max_vv_stress

Variables

TypeVisibility AttributesNameInitial
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 (i_tf_sc_mat=4, =bc20m)

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 (casthi_fraction)

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 (casths_fraction)

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') (i_tf_sup = 1)

real(kind=dp), public :: cpttf

TF coil current per turn (A). (calculated for stellarators) (calculated for integer-turn TF coils i_tf_turns_integer=1) (iteration variable 60)

real(kind=dp), public :: cpttf_max

Max TF coil current per turn [A]. (for stellarators and i_tf_turns_integer=1) (constraint equation 77)

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:

  • =1 ITER Nb3Sn critical surface model with standard ITER parameters
  • =2 Bi-2212 high temperature superconductor (range of validity T < 20K, adjusted field b < 104 T, B > 6 T)
  • =3 NbTi
  • =4 ITER Nb3Sn model with user-specified parameters
  • =5 WST Nb3Sn parameterisation
  • =6 REBCO HTS tape in CroCo strand
  • =7 Durham Ginzburg-Landau critical surface model for Nb-Ti
  • =8 Durham Ginzburg-Landau critical surface model for REBCO
  • =9 Hazelton experimental data + Zhai conceptual model for REBCO
integer, public :: i_tf_sup

Switch for TF coil conductor model:

  • =0 copper
  • =1 superconductor
  • =2 Cryogenic aluminium
integer, public :: i_tf_shape

Switch for TF coil toroidal shape:

  • =0 Default value : Picture frame coil for TART / PROCESS D-shape for non itart
  • =1 PROCESS D-shape : parametrise with 2 arcs
  • =2 Picture frame coils
integer, public :: i_tf_cond_eyoung_axial

Switch for the behavior of the TF coil conductor elastic axial properties

  • =0 Young's modulus is set to zero, and the conductor is not considered in the stress calculation. This corresponds to the case that the conductor is much less stiff than the conduit, or the case that the conductor is prevented (isolated) from taking axial loads.
  • =1 Elastic properties are set by user input, using the variable eyoung_cond_axial
  • =2 Elastic properties are set to reasonable defaults taking into account the superconducting material i_tf_sc_mat
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 i_tf_cond_eyoung_axial == 2

  • =0 Cable not potted in solder. Transverse Young's modulus set to zero.
  • =1 Cable potted in solder. If i_tf_cond_eyoung_axial == 2, the transverse Young's modulus of the conductor is equal to the axial, which is set to a sensible material-dependent default.
integer, public :: n_pancake

Number of pancakes in TF coil. Only used if i_tf_turns_integer=1

integer, public :: n_layer

Number of layers in TF coil. Only used if i_tf_turns_integer=1

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 n_tf_graded_layers > 1, a graded coil is condidered

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 i_tf_cond_eyoung_axial == 1; otherwise set by the behavior of that switch.

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 i_tf_cond_eyoung_axial == 1; otherwise set by the behavior of that switch.

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 (constraint equation 82)

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]:

  • If superconducting CS (ipfres = 0): turn steel conduits stress
  • If resistive CS (ipfres = 1): copper conductor stress

Quantity only computed for bucked and wedged design (i_tf_bucking >= 2) Def : CS Flux swing, instant when the current changes sign in CS (null current)

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 i_str_wp == 0, used to compute the critical surface. Otherwise, the self-consistent winding pack str_wp is used.

real(kind=dp), public :: str_wp

Axial (vertical) strain in the TF coil winding pack found by self-consistent stress/strain calculation. if i_str_wp == 1, used to compute the critical surface. Otherwise, the input value str_tf_con_res is used. Constrain the absolute value using constraint equation 88 You can't have constraint 88 and i_str_wp = 0 at the same time

real(kind=dp), public :: str_wp_max

Maximum allowed absolute value of the strain in the TF coil (Constraint equation 88)

integer, public :: i_str_wp

Switch for the behavior of the TF strain used to compute the strain-dependent critical surface:

  • =0 str_tf_con_res is used
  • =1 str_wp is used
character(len=12), public :: quench_model

switch for TF coil quench model (Only applies to REBCO magnet at present, issue #522):

  • ='exponential' exponential quench with constant discharge resistor
  • ='linear' quench with constant voltage
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 (i_tf_sc_mat=4, =tc0m)

real(kind=dp), public :: tdmptf

fast discharge time for TF coil in event of quench (s) (iteration variable 56)

For REBCO model, meaning depends on quench_model:

  • exponential quench : e-folding time (s)`
  • linear quench : discharge time (s)
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 itart=0, this variable is the average resistivity over the whole magnet

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 itart=0, this factor is used for the whole magnet

real(kind=dp), public :: frholeg

Ouboard legs resistivity enhancement factor. Only used for itart=1.

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:

  • i_tf_sup = 1 : SC magnet, eff_tf_cryo = 0.13 (ITER design)
  • i_tf_sup = 2 : Cryo-aluminium, eff_tf_cryo = 0.4
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) (iteration variable 57) (calculated for stellarators)

real(kind=dp), public :: dr_tf_wp

radial thickness of winding pack (m) (iteration variable 140) (issue #514)

real(kind=dp), public :: thwcndut

TF coil conduit case thickness (m) (iteration variable 58)

real(kind=dp), public :: tinstf

Thickness of the ground insulation layer surrounding (m) - Superconductor TF (i_tf_sup == 1) : The TF coil Winding packs - Resistive magnets (i_tf_sup /= 1) : The TF coil wedges Rem : Thickness calculated for stellarators.

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) (iteration variable 52)

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 itart=1 (sliding joints)

real(kind=dp), public :: vforce_outboard

Vertical tension on outboard leg/coil (N)

real(kind=dp), public :: vftf

coolant fraction of TFC 'cable' (i_tf_sup=1), or of TFC leg (i_tf_ssup=0)

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 itart=1, coil is return limb plus centrepost/n_tf

real(kind=dp), public :: whtconcu

copper mass in TF coil conductor (kg/coil). For itart=1, coil is return limb plus centrepost/n_tf

real(kind=dp), public :: whtconal

Aluminium mass in TF coil conductor (kg/coil). For itart=1, coil is return limb plus centrepost/n_tf

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 (iteration variable 23)

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 itart=0, this variable is the ressitive power on the whole magnet

real(kind=dp), public :: presleg

Summed resistive power in the TF coil legs [W]. Remain 0 if itart=0.

real(kind=dp), public :: ptempalw

maximum peak centrepost temperature (K) (constraint equation 44)

real(kind=dp), public :: rcool

average radius of coolant channel (m) (iteration variable 69)

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 (itart=1) (iteration variable 20)

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 tlegav=-1.0, the ouboard legs and CP temperatures are the same. Fixed for now, should use a contraints eq like tcpav

real(kind=dp), public :: tcpmax

peak centrepost temperature (K)

real(kind=dp), public :: vcool

inlet centrepost coolant flow speed at midplane (m/s) (iteration variable 70)

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]


Subroutines

public subroutine init_tfcoil_variables()

Initialise module variables

Arguments

None