Module containing superconducting TF coil routines author: P J Knight, CCFE, Culham Science Centre author: J Morris, CCFE, Culham Science Centre author: S Kahn, CCFE, Culham Science Centre N/A This module contains routines for calculating the parameters of a superconducting TF coil system for a fusion power plant. PROCESS Superconducting TF Coil Model, J. Morris, CCFE, 1st May 2014
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=dp), | public | :: | tf_fit_t | Dimensionless winding pack width |
|||
| real(kind=dp), | public | :: | tf_fit_z | Dimensionless winding pack radial thickness |
|||
| real(kind=dp), | public | :: | tf_fit_y | Ratio of peak field with ripple to nominal axisymmetric peak field |
|||
| real(kind=dp), | public | :: | tfc_current | Current in each TF coil |
|||
| real(kind=dp), | public | :: | awpc | Total cross-sectional area of winding pack including GW insulation and insertion gap [m2] |
|||
| real(kind=dp), | public | :: | awptf | Total cross-sectional area of winding pack without ground insulation and insertion gap [m2] |
|||
| real(kind=dp), | public | :: | a_tf_steel | Inboard coil steel coil cross-sectional area [m2] |
|||
| real(kind=dp), | public | :: | a_tf_ins | Inboard coil insulation cross-section per coil [m2] |
|||
| real(kind=dp), | public | :: | f_tf_steel | Inboard coil steel fraction [-] |
|||
| real(kind=dp), | public | :: | f_tf_ins | Inboard coil insulation fraction [-] |
|||
| real(kind=dp), | public | :: | h_cp_top | Vertical distance from the midplane to the top of the tapered section [m] |
|||
| real(kind=dp), | public | :: | r_tf_outboard_in | Radial position of plasma-facing edge of TF coil outboard leg [m] |
|||
| real(kind=dp), | public | :: | r_tf_outboard_out | Radial position of outer edge of TF coil inboard leg [m] |
|||
| real(kind=dp), | public | :: | r_wp_inner | Radial position of inner edge and centre of winding pack [m] |
|||
| real(kind=dp), | public | :: | r_wp_outer | Radial position of outer edge and centre of winding pack [m] |
|||
| real(kind=dp), | public | :: | r_wp_centre | Radial position of centre and centre of winding pack [m] |
|||
| real(kind=dp), | public | :: | dr_tf_wp_top | Conductor layer radial thickness at centercollumn top [m] Ground insulation layer included, only defined for itart = 1 |
|||
| real(kind=dp), | public | :: | vol_ins_cp | CP turn insulation volume [m3] |
|||
| real(kind=dp), | public | :: | vol_gr_ins_cp | CP ground insulation volume [m3] |
|||
| real(kind=dp), | public | :: | vol_case_cp | Volume of the CP outer casing cylinder |
|||
| real(kind=dp), | public | :: | t_wp_toroidal | Minimal toroidal thickness of of winding pack [m] |
|||
| real(kind=dp), | public | :: | t_wp_toroidal_av | Averaged toroidal thickness of of winding pack [m] |
|||
| real(kind=dp), | public | :: | t_lat_case_av | Average lateral casing thickness [m] |
|||
| real(kind=dp), | public | :: | a_case_front | Front casing area [m2] |
|||
| real(kind=dp), | public | :: | a_case_nose | Nose casing area [m2] |
|||
| real(kind=dp), | public | :: | a_ground_ins | Inboard mid-plane cross-section area of the WP ground insulation [m2] |
|||
| real(kind=dp), | public | :: | a_leg_ins | TF ouboard leg turn insulation area per coil [m2] |
|||
| real(kind=dp), | public | :: | a_leg_gr_ins | TF outboard leg ground insulation area per coil [m2] |
|||
| real(kind=dp), | public | :: | a_leg_cond | Exact TF ouboard leg conductor area [m2] |
|||
| real(kind=dp), | public | :: | theta_coil | Half toroidal angular extent of a single TF coil inboard leg |
|||
| real(kind=dp), | public | :: | tan_theta_coil | Tan half toroidal angular extent of a single TF coil inboard leg |
|||
| real(kind=dp), | public | :: | t_conductor_radial | Conductor area radial and toroidal dimension (integer turn only) [m] |
|||
| real(kind=dp), | public | :: | t_conductor_toroidal | Conductor area radial and toroidal dimension (integer turn only) [m] |
|||
| real(kind=dp), | public | :: | t_cable_radial | Cable area radial and toroidal dimension (integer turn only) [m] |
|||
| real(kind=dp), | public | :: | t_cable_toroidal | Cable area radial and toroidal dimension (integer turn only) [m] |
|||
| real(kind=dp), | public | :: | t_turn_radial | Turn radial and toroidal dimension (integer turn only) [m] |
|||
| real(kind=dp), | public | :: | t_turn_toroidal | Turn radial and toroidal dimension (integer turn only) [m] |
|||
| real(kind=dp), | public | :: | t_cable | Cable area averaged dimension (square shape) [m] |
|||
| real(kind=dp), | public | :: | vforce_inboard_tot | Total inboard vertical tension (all coils) [N] |
|||
| real(kind=dp), | public | :: | vv_stress_quench | The Tresca stress experienced by the Vacuum Vessel when the SCTF coil quenches [Pa] |
|||
| type(resistive_material), | private | :: | copper | ||||
| type(resistive_material), | private | :: | hastelloy | ||||
| type(resistive_material), | private | :: | solder | ||||
| type(resistive_material), | private | :: | jacket | ||||
| type(resistive_material), | private | :: | helium | ||||
| real(kind=dp), | public | :: | croco_strand_area | ||||
| real(kind=dp), | public | :: | croco_strand_critical_current | ||||
| real(kind=dp), | public | :: | conductor_copper_area | ||||
| real(kind=dp), | public | :: | conductor_copper_fraction | ||||
| real(kind=dp), | public | :: | conductor_copper_bar_area | ||||
| real(kind=dp), | public | :: | conductor_hastelloy_area | ||||
| real(kind=dp), | public | :: | conductor_hastelloy_fraction | ||||
| real(kind=dp), | public | :: | conductor_helium_area | ||||
| real(kind=dp), | public | :: | conductor_helium_fraction | ||||
| real(kind=dp), | public | :: | conductor_solder_area | ||||
| real(kind=dp), | public | :: | conductor_solder_fraction | ||||
| real(kind=dp), | public | :: | conductor_jacket_area | ||||
| real(kind=dp), | public | :: | conductor_jacket_fraction | ||||
| real(kind=dp), | public | :: | conductor_rebco_area | ||||
| real(kind=dp), | public | :: | conductor_rebco_fraction | ||||
| real(kind=dp), | public | :: | conductor_critical_current | ||||
| real(kind=dp), | public | :: | conductor_acs | ||||
| real(kind=dp), | public | :: | conductor_area | Area of cable space inside jacket |
|||
| real(kind=dp), | public | :: | T1 | ||||
| real(kind=dp), | public | :: | time2 | ||||
| real(kind=dp), | public | :: | tau2 | ||||
| real(kind=dp), | public | :: | estotft | ||||
| integer, | public | :: | is_leg_cp_temp_same |
Initialise module variables