Module containing global variables relating to the machine's radial and vertical build
-
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real(kind=dp), | public | :: | aplasmin | minimum minor radius (m) |
|||
real(kind=dp), | public | :: | available_radial_space | Minimal radial space between plasma and coils (m) |
|||
real(kind=dp), | public | :: | blarea | blanket total surface area (m2) |
|||
real(kind=dp), | public | :: | blareaib | inboard blanket surface area (m2) |
|||
real(kind=dp), | public | :: | blareaob | outboard blanket surface area (m2) |
|||
real(kind=dp), | public | :: | blbmith | inboard blanket box manifold thickness (m) ( |
|||
real(kind=dp), | public | :: | blbmoth | outboard blanket box manifold thickness (m) ( |
|||
real(kind=dp), | public | :: | blbpith | inboard blanket base plate thickness (m) ( |
|||
real(kind=dp), | public | :: | blbpoth | outboard blanket base plate thickness (m) ( |
|||
real(kind=dp), | public | :: | blbuith | inboard blanket breeding zone thickness (m) ( |
|||
real(kind=dp), | public | :: | blbuoth | outboard blanket breeding zone thickness (m) ( |
|||
real(kind=dp), | public | :: | blnkith | inboard blanket thickness (m); (calculated if |
|||
real(kind=dp), | public | :: | blnkoth | outboard blanket thickness (m); calculated if |
|||
real(kind=dp), | public | :: | blnktth | top blanket thickness (m), = mean of inboard and outboard blanket thicknesses |
|||
real(kind=dp), | public | :: | bore | central solenoid inboard radius (m) ( |
|||
real(kind=dp), | public | :: | clhsf | cryostat lid height scaling factor (tokamaks) |
|||
real(kind=dp), | public | :: | ddwex | cryostat thickness (m) |
|||
real(kind=dp), | public | :: | d_vv_in | vacuum vessel inboard thickness (TF coil / shield) (m) |
|||
real(kind=dp), | public | :: | d_vv_out | vacuum vessel outboard thickness (TF coil / shield) (m) |
|||
real(kind=dp), | public | :: | d_vv_top | vacuum vessel topside thickness (TF coil / shield) (m) (= d_vv_bot if double-null) |
|||
real(kind=dp), | public | :: | d_vv_bot | vacuum vessel underside thickness (TF coil / shield) (m) |
|||
real(kind=dp), | public | :: | f_avspace | F-value for stellarator radial space check ( |
|||
real(kind=dp), | public | :: | fcspc | Fraction of space occupied by CS pre-compression structure |
|||
real(kind=dp), | public | :: | fseppc | Separation force in CS coil pre-compression structure |
|||
real(kind=dp), | public | :: | fwarea | first wall total surface area (m2) |
|||
real(kind=dp), | public | :: | fwareaib | inboard first wall surface area (m2) |
|||
real(kind=dp), | public | :: | fwareaob | outboard first wall surface area (m2) |
|||
real(kind=dp), | public | :: | fwith | inboard first wall thickness, initial estimate as calculated (m) |
|||
real(kind=dp), | public | :: | fwoth | outboard first wall thickness, initial estimate as calculated (m) |
|||
real(kind=dp), | public | :: | gapds | gap between inboard vacuum vessel and thermal shield (m) ( |
|||
real(kind=dp), | public | :: | gapoh | gap between central solenoid and TF coil (m) ( |
|||
real(kind=dp), | public | :: | gapomin | minimum gap between outboard vacuum vessel and TF coil (m) ( |
|||
real(kind=dp), | public | :: | gapsto | gap between outboard vacuum vessel and TF coil (m) |
|||
real(kind=dp), | public | :: | hmax | maximum (half-)height of TF coil (inside edge) (m) |
|||
real(kind=dp), | public | :: | hpfdif | difference in distance from midplane of upper and lower portions of TF legs (non-zero for single-null devices) (m) |
|||
real(kind=dp), | public | :: | hpfu | height to top of (upper) TF coil leg (m) |
|||
real(kind=dp), | public | :: | hr1 | half-height of TF coil inboard leg straight section (m) |
|||
integer, | public | :: | iohcl | Switch for existence of central solenoid:
|
|||
integer, | public | :: | iprecomp | Switch for existence of central solenoid pre-compression structure:
|
|||
integer, | public | :: | tf_in_cs | Switch for placing the TF coil inside the CS
|
|||
real(kind=dp), | public | :: | ohcth | Central solenoid thickness (m) ( |
|||
real(kind=dp), | public | :: | precomp | CS coil precompression structure thickness (m) |
|||
real(kind=dp), | public | :: | rbld | sum of thicknesses to the major radius (m) |
|||
real(kind=dp), | public | :: | required_radial_space | Required space between coil and plasma for blanket shield wall etc (m) |
|||
real(kind=dp), | public | :: | rinboard | plasma inboard radius (m) ( |
|||
real(kind=dp), | public | :: | rsldi | radius to inboard shield (inside point) (m) |
|||
real(kind=dp), | public | :: | rsldo | radius to outboard shield (outside point) (m) |
|||
real(kind=dp), | public | :: | r_vv_inboard_out | Radial plasma facing side position of inboard vacuum vessel [m] |
|||
real(kind=dp), | public | :: | r_sh_inboard_in | Radial inner side position of inboard neutronic shield [m] |
|||
real(kind=dp), | public | :: | r_sh_inboard_out | Radial plasma facing side position of inboard neutronic shield [m] |
|||
real(kind=dp), | public | :: | r_tf_inboard_in | Mid-plane inboard TF coil leg radius at the centre-machine side [m] |
|||
real(kind=dp), | public | :: | r_tf_inboard_mid | Mid-plane inboard TF coil leg radius at middle of the coil [m] |
|||
real(kind=dp), | public | :: | r_tf_inboard_out | Mid-plane inboard TF coil leg radius at the plasma side [m] |
|||
real(kind=dp), | public | :: | r_tf_outboard_mid | Mid-plane outboard TF coil leg radius at the middle of the coil [m] |
|||
integer, | public | :: | i_r_cp_top | Switch selecting the he parametrization of the outer radius of the top of the CP part of the TF coil
0 : |
|||
real(kind=dp), | public | :: | r_cp_top | Top outer radius of the centropost (ST only) (m) |
|||
real(kind=dp), | public | :: | f_r_cp | Ratio between the top and the midplane TF CP outer radius [-] Not used by default (-1) must be larger than 1 otherwise |
|||
real(kind=dp), | public | :: | dr_tf_inner_bore | TF coil horizontal inner bore (m) |
|||
real(kind=dp), | public | :: | dh_tf_inner_bore | TF coil vertical inner bore (m) |
|||
real(kind=dp), | public | :: | scrapli | Gap between plasma and first wall, inboard side (m) (if |
|||
real(kind=dp), | public | :: | scraplo | Gap between plasma and first wall, outboard side (m) (if |
|||
real(kind=dp), | public | :: | sharea | shield total surface area (m2) |
|||
real(kind=dp), | public | :: | shareaib | inboard shield surface area (m2) |
|||
real(kind=dp), | public | :: | shareaob | outboard shield surface area (m2) |
|||
real(kind=dp), | public | :: | shldith | inboard shield thickness (m) ( |
|||
real(kind=dp), | public | :: | shldlth | lower (under divertor) shield thickness (m) |
|||
real(kind=dp), | public | :: | shldoth | outboard shield thickness (m) ( |
|||
real(kind=dp), | public | :: | shldtth | upper/lower shield thickness (m); calculated if |
|||
real(kind=dp), | public | :: | sigallpc | allowable stress in CSpre-compression structure (Pa) |
|||
real(kind=dp), | public | :: | tfcth | inboard TF coil thickness, (centrepost for ST) (m)
(input, calculated or |
|||
real(kind=dp), | public | :: | tfoffset | vertical distance between centre of TF coils and centre of plasma (m) |
|||
real(kind=dp), | public | :: | tfootfi | TF coil outboard leg / inboard leg radial thickness
ratio ( |
|||
real(kind=dp), | public | :: | tfthko | Outboard TF coil thickness (m) |
|||
real(kind=dp), | public | :: | tftsgap | Minimum metal-to-metal gap between TF coil and thermal shield (m) |
|||
real(kind=dp), | public | :: | thshield_ib | TF-VV thermal shield thickness, inboard (m) |
|||
real(kind=dp), | public | :: | thshield_ob | TF-VV thermal shield thickness, outboard (m) |
|||
real(kind=dp), | public | :: | thshield_vb | TF-VV thermal shield thickness, vertical build (m) |
|||
real(kind=dp), | public | :: | vgap_vv_thermalshield | vertical gap between vacuum vessel and thermal shields (m) |
|||
real(kind=dp), | public | :: | vgap_xpoint_divertor | vertical gap between x-point and divertor (m) (if = 0, it is calculated) |
|||
real(kind=dp), | public | :: | vgaptop | vertical gap between top of plasma and first wall (m) (= vgap_xpoint_divertor if double-null) |
|||
real(kind=dp), | public | :: | vvblgap | gap between vacuum vessel and blanket (m) |
|||
real(kind=dp), | public | :: | plleni | length of inboard divertor plate (m) |
|||
real(kind=dp), | public | :: | plleno | length of outboard divertor plate (m) |
|||
real(kind=dp), | public | :: | plsepi | poloidal length, x-point to inboard strike point (m) |
|||
real(kind=dp), | public | :: | plsepo | poloidal length, x-point to outboard strike point (m) |
|||
real(kind=dp), | public | :: | rspo | outboard strike point radius (m) |
Initialise module variables