fwbs_variables Module

Module containing global variables relating to the first wall, blanket and shield components

References

-



Contents

bktlife bktlife_cal coolmass vvmass denstl denwc dewmkg emult emultmw fblss fdiv fhcd fhole fwbsshape life_fw_fpy m_fw_total fw_armour_mass fw_armour_thickness fw_armour_vol i_blanket_type i_blkt_inboard inuclear qnuc li6enrich pnucblkt pnuc_cp pnuc_cp_sh pnuc_cp_tf pnucdiv p_fw_nuclear_heat_total_mw pnuchcd pnucloss pnucvvplus pnucshld whtblkt whtblss armour_fw_bl_mass breeder_f breeder_multiplier vfcblkt vfpblkt whtblli4sio4 whtbltibe12 neut_flux_cp f_neut_shield f_a_fw_coolant_inboard f_a_fw_coolant_outboard psurffwi psurffwo vol_fw_total fblss_ccfe fblli2sio4 fbltibe12 breedmat densbreed fblbe fblbreed fblhebmi fblhebmo fblhebpi fblhebpo hcdportsize nflutf npdiv nphcdin nphcdout tbr tritprate wallpf whtblbreed whtblbe iblanket_thickness primary_pumping i_shield_mat secondary_cycle secondary_cycle_liq coolwh afwi afwo i_fw_coolant_type dr_fw_wall radius_fw_channel dx_fw_module temp_fw_coolant_in temp_fw_coolant_out pres_fw_coolant temp_fw_peak roughness len_fw_channel f_fw_peak blpressure inlet_temp outlet_temp coolp nblktmodpo nblktmodpi nblktmodto nblktmodti temp_fw_max fw_th_conductivity fvoldw fvolsi fvolso fwclfr praddiv pradfw pradhcd pradloss ptfnuc ptfnucpm3 r_cryostat_inboard z_cryostat_half_inside dr_pf_cryostat vol_cryostat vol_cryostat_internal vdewin vfshld volblkt volblkti volblkto volshld whtshld wpenshld wtshldi wtshldo irefprop fblli fblli2o fbllipb fblvd wtblli2o wtbllipb whtblvd whtblli vfblkt blktmodel declblkt declfw declshld blkttype etaiso etahtp ipump i_bb_liq icooldual ifci ims n_liq_recirc r_f_liq_ib r_f_liq_ob w_f_liq_ib w_f_liq_ob den_ceramic th_wall_secondary bz_channel_conduct_liq a_bz_liq b_bz_liq nopol nopipes den_liq wht_liq wht_liq_ib wht_liq_ob specific_heat_liq thermal_conductivity_liq dynamic_viscosity_liq electrical_conductivity_liq hartmann_liq b_mag_blkt etaiso_liq blpressure_liq inlet_temp_liq outlet_temp_liq den_fw_coolant visc_fw_coolant rhof_bl visc_bl cp_fw cv_fw cp_bl cv_bl f_nuc_pow_bz_struct f_nuc_pow_bz_liq pnuc_fw_ratio_dcll pnuc_blkt_ratio_dcll bzfllengi_n_rad bzfllengi_n_pol bzfllengo_n_rad bzfllengo_n_pol bzfllengi_n_rad_liq bzfllengi_n_pol_liq bzfllengo_n_rad_liq bzfllengo_n_pol_liq

Variables

TypeVisibility AttributesNameInitial
real(kind=dp), public :: bktlife

Full power blanket lifetime (years)

real(kind=dp), public :: bktlife_cal

Calendar year blanket lifetime (years)

real(kind=dp), public :: coolmass

mass of water coolant (in shield, blanket, first wall, divertor) [kg]

real(kind=dp), public :: vvmass

vacuum vessel mass [kg]

real(kind=dp), public :: denstl

density of steel [kg m^-3]

real(kind=dp), public :: denwc

density of tungsten carbide [kg m^-3]

real(kind=dp), public :: dewmkg

total mass of vacuum vessel + cryostat [kg] (calculated if blktmodel>0)

real(kind=dp), public :: emult

energy multiplication in blanket and shield

real(kind=dp), public :: emultmw

power due to energy multiplication in blanket and shield [MW]

real(kind=dp), public :: fblss

KIT blanket model: steel fraction of breeding zone

real(kind=dp), public :: fdiv

Solid angle fraction taken by one divertor

real(kind=dp), public :: fhcd

area fraction covered by heating/current drive apparatus plus diagnostics

real(kind=dp), public :: fhole

area fraction taken up by other holes (IFE)

integer, public :: fwbsshape

switch for first wall, blanket, shield and vacuum vessel shape:

  • =1 D-shaped (cylinder inboard + ellipse outboard)
  • =2 defined by two ellipses
real(kind=dp), public :: life_fw_fpy

first wall full-power year lifetime (y)

real(kind=dp), public :: m_fw_total

first wall mass [kg]

real(kind=dp), public :: fw_armour_mass

first wall armour mass [kg]

real(kind=dp), public :: fw_armour_thickness

first wall armour thickness [m]

real(kind=dp), public :: fw_armour_vol

first wall armour volume [m^3]

integer, public :: i_blanket_type

switch for blanket model:

  • =1 CCFE HCPB model
  • =2 KIT HCPB model # REMOVED, no longer usable
  • =3 CCFE HCPB model with Tritium Breeding Ratio calculation
  • =4 KIT HCLL model # REMOVED, no longer usable
  • =5 DCLL model - no nutronics model included (in development) please check/choose values for 'dual-coolant blanket' fractions (provided in this file). - please use primary_pumping = 0 or 1.
integer, public :: i_blkt_inboard

switch for inboard blanket:

  • =0 No inboard blanket (dr_blkt_inboard=0.0)
  • =1 Inboard blanket present
integer, public :: inuclear

switch for nuclear heating in the coils:

  • =0 Frances Fox model (default)
  • =1 Fixed by user (qnuc)
real(kind=dp), public :: qnuc

nuclear heating in the coils (W) (inuclear=1)

real(kind=dp), public :: li6enrich

lithium-6 enrichment of breeding material (%)

real(kind=dp), public :: pnucblkt

nuclear heating in the blanket [MW]

real(kind=dp), public :: pnuc_cp

Total nuclear heating in the ST centrepost [MW]

real(kind=dp), public :: pnuc_cp_sh

Neutronic shield nuclear heating in the ST centrepost [MW]

real(kind=dp), public :: pnuc_cp_tf

TF neutronic nuclear heating in the ST centrepost [MW]

real(kind=dp), public :: pnucdiv

nuclear heating in the divertor [MW]

real(kind=dp), public :: p_fw_nuclear_heat_total_mw

nuclear heating in the first wall [MW]

real(kind=dp), public :: pnuchcd

nuclear heating in the HCD apparatus and diagnostics [MW]

real(kind=dp), public :: pnucloss

nuclear heating lost via holes [MW]

real(kind=dp), public :: pnucvvplus

nuclear heating to vacuum vessel and beyond [MW]

real(kind=dp), public :: pnucshld

nuclear heating in the shield [MW]

real(kind=dp), public :: whtblkt

mass of blanket [kg]

real(kind=dp), public :: whtblss

mass of blanket - steel part [kg]

real(kind=dp), public :: armour_fw_bl_mass

Total mass of armour, first wall and blanket [kg]

real(kind=dp), public :: breeder_f

Volume ratio: Li4SiO4/(Be12Ti+Li4SiO4) (iteration variable 108)

real(kind=dp), public :: breeder_multiplier

combined breeder/multipler fraction of blanket by volume

real(kind=dp), public :: vfcblkt

He coolant fraction of blanket by volume (i_blanket_type= 1,3 (CCFE HCPB))

real(kind=dp), public :: vfpblkt

He purge gas fraction of blanket by volume (i_blanket_type= 1,3 (CCFE HCPB))

real(kind=dp), public :: whtblli4sio4

mass of lithium orthosilicate in blanket [kg] (i_blanket_type=1,3 (CCFE HCPB))

real(kind=dp), public :: whtbltibe12

mass of titanium beryllide in blanket [kg] (i_blanket_type=1,3 (CCFE HCPB))

real(kind=dp), public :: neut_flux_cp

Centrepost TF fast neutron flux (E > 0.1 MeV) [m^(-2).^(-1)] This variable is only calculated for superconducting (i_tf_sup = 1 ) spherical tokamal magnet designs (itart = 0)

real(kind=dp), public :: f_neut_shield

Fraction of nuclear power shielded before the CP magnet (ST) ( neut_absorb = -1 --> a fit on simplified MCNP neutronic calculation is used assuming water cooled (13%) tungesten carbyde )

real(kind=dp), public :: f_a_fw_coolant_inboard

Inboard/outboard FW coolant cross-sectional area void fraction

real(kind=dp), public :: f_a_fw_coolant_outboard

Inboard/outboard FW coolant cross-sectional area void fraction

real(kind=dp), public :: psurffwi

Surface heat flux on first wall [MW] (sum = pradfw)

real(kind=dp), public :: psurffwo

Surface heat flux on first wall [MW] (sum = pradfw)

real(kind=dp), public :: vol_fw_total

First wall volume [m3]

real(kind=dp), public :: fblss_ccfe

Fractions of blanket by volume: steel, lithium orthosilicate, titanium beryllide

real(kind=dp), public :: fblli2sio4

Fractions of blanket by volume: steel, lithium orthosilicate, titanium beryllide

real(kind=dp), public :: fbltibe12

Fractions of blanket by volume: steel, lithium orthosilicate, titanium beryllide

integer, public :: breedmat

breeder material switch (i_blanket_type=2 (KIT HCPB)):

  • =1 Lithium orthosilicate
  • =2 Lithium methatitanate
  • =3 Lithium zirconate
real(kind=dp), public :: densbreed

density of breeder material [kg m^-3] (i_blanket_type=2 (KIT HCPB))

real(kind=dp), public :: fblbe

beryllium fraction of blanket by volume (if i_blanket_type=2, is Be fraction of breeding zone)

real(kind=dp), public :: fblbreed

breeder fraction of blanket breeding zone by volume (i_blanket_type=2 (KIT HCPB))

real(kind=dp), public :: fblhebmi

helium fraction of inboard blanket box manifold by volume (i_blanket_type=2 (KIT HCPB))

real(kind=dp), public :: fblhebmo

helium fraction of outboard blanket box manifold by volume (i_blanket_type=2 (KIT HCPB))

real(kind=dp), public :: fblhebpi

helium fraction of inboard blanket back plate by volume (i_blanket_type=2 (KIT HCPB))

real(kind=dp), public :: fblhebpo

helium fraction of outboard blanket back plate by volume (i_blanket_type=2 (KIT HCPB))

integer, public :: hcdportsize

switch for size of heating/current drive ports (i_blanket_type=2 (KIT HCPB)):

  • =1 'small'
  • =2 'large'
real(kind=dp), public :: nflutf

peak fast neutron fluence on TF coil superconductor [n m^-2] (i_blanket_type=2 (KIT HCPB))

integer, public :: npdiv

number of divertor ports (i_blanket_type=2 (KIT HCPB))

integer, public :: nphcdin

number of inboard ports for heating/current drive (i_blanket_type=2 (KIT HCPB))

integer, public :: nphcdout

number of outboard ports for heating/current drive (i_blanket_type=2 (KIT HCPB))

real(kind=dp), public :: tbr

tritium breeding ratio (i_blanket_type=2,3 (KIT HCPB/HCLL))

real(kind=dp), public :: tritprate

tritium production rate [g day^-1] (i_blanket_type=2 (KIT HCPB))

real(kind=dp), public :: wallpf

neutron wall load peaking factor (i_blanket_type=2 (KIT HCPB))

real(kind=dp), public :: whtblbreed

mass of blanket - breeder part [kg] (i_blanket_type=2 (KIT HCPB))

real(kind=dp), public :: whtblbe

mass of blanket - beryllium part [kg]

integer, public :: iblanket_thickness

Blanket thickness switch (Do not set dr_blkt_inboard, dr_blkt_outboard, dr_fw_inboard or dr_fw_outboard when i_blanket_type=3):

  • =1 thin 0.53 m inboard, 0.91 m outboard
  • =2 medium 0.64 m inboard, 1.11 m outboard
  • =3 thick 0.75 m inboard, 1.30 m outboard
integer, public :: primary_pumping

Switch for pumping power for primary coolant (mechanical power only and peak first wall temperature is only calculated if primary_pumping=2):

  • =0 User sets pump power directly (htpmw_blkt, htpmw_fw, htpmw_div, htpmw_shld)
  • =1 User sets pump power as a fraction of thermal power (fpumpblkt, fpumpfw, fpumpdiv, fpumpshld)
  • =2 Mechanical pumping power is calculated
  • =3 Mechanical pumping power is calculated using specified pressure drop
integer, public :: i_shield_mat

Switch for shield material - currently only applied in costing routines cost_model = 2

  • =0 Tungsten (default)
  • =1 Tungsten carbide
integer, public :: secondary_cycle

Switch for power conversion cycle:

  • =0 Set efficiency for chosen blanket, from detailed models (divertor heat not used)
  • =1 Set efficiency for chosen blanket, from detailed models (divertor heat used)
  • =2 user input thermal-electric efficiency (etath)
  • =3 steam Rankine cycle
  • =4 supercritical CO2 cycle
integer, public :: secondary_cycle_liq

Switch for power conversion cycle for the liquid breeder component of the blanket:

  • =2 user input thermal-electric efficiency (etath)
  • =4 supercritical CO2 cycle
integer, public :: coolwh

Switch for blanket coolant (set via blkttype):

  • =1 helium
  • =2 pressurized water
real(kind=dp), public :: afwi

inner radius of inboard first wall/blanket coolant channels (stellarator only) [m]

real(kind=dp), public :: afwo

inner radius of outboard first wall/blanket coolant channels (stellarator only) [m]

character(len=6), public :: i_fw_coolant_type

switch for first wall coolant (can be different from blanket coolant):

  • 'helium'
  • 'water'
real(kind=dp), public :: dr_fw_wall

wall thickness of first wall coolant channels [m]

real(kind=dp), public :: radius_fw_channel

radius of first wall cooling channels [m]

real(kind=dp), public :: dx_fw_module

Width of a FW module containing a cooling channel [m]

real(kind=dp), public :: temp_fw_coolant_in

inlet temperature of first wall coolant [K]

real(kind=dp), public :: temp_fw_coolant_out

outlet temperature of first wall coolant [K]

real(kind=dp), public :: pres_fw_coolant

first wall coolant pressure [Pa] (secondary_cycle>1)

real(kind=dp), public :: temp_fw_peak

peak first wall temperature [K]

real(kind=dp), public :: roughness

first wall channel roughness epsilon [m]

real(kind=dp), public :: len_fw_channel

Length of a single first wall channel (all in parallel) [m] (iteration variable 114, useful for constraint equation 39)

real(kind=dp), public :: f_fw_peak

peaking factor for first wall heat loads. (Applied separately to inboard and outboard loads. Applies to both neutron and surface loads. Only used to calculate peak temperature - not the coolant flow rate.)

real(kind=dp), public :: blpressure

blanket coolant pressure [Pa] (secondary_cycle>1)

real(kind=dp), public :: inlet_temp

inlet temperature of blanket coolant [K] (secondary_cycle>1)

real(kind=dp), public :: outlet_temp

Outlet temperature of blanket coolant [K] (secondary_cycle>1)

  • input if coolwh=1 (helium)
  • calculated if coolwh=2 (water)
real(kind=dp), public :: coolp

blanket coolant pressure [Pa] (stellarator only)

integer, public :: nblktmodpo

number of outboard blanket modules in poloidal direction (secondary_cycle>1)

integer, public :: nblktmodpi

number of inboard blanket modules in poloidal direction (secondary_cycle>1)

integer, public :: nblktmodto

number of outboard blanket modules in toroidal direction (secondary_cycle>1)

integer, public :: nblktmodti

number of inboard blanket modules in toroidal direction (secondary_cycle>1)

real(kind=dp), public :: temp_fw_max

maximum temperature of first wall material [K] (secondary_cycle>1)

real(kind=dp), public :: fw_th_conductivity

thermal conductivity of first wall material at 293 K (W/m/K) (Temperature dependence is as for unirradiated Eurofer)

real(kind=dp), public :: fvoldw

area coverage factor for vacuum vessel volume

real(kind=dp), public :: fvolsi

area coverage factor for inboard shield volume

real(kind=dp), public :: fvolso

area coverage factor for outboard shield volume

real(kind=dp), public :: fwclfr

first wall coolant fraction (calculated if i_pulsed_plant=1 or ipowerflow=1)

real(kind=dp), public :: praddiv

Radiation power incident on the divertor (MW)

real(kind=dp), public :: pradfw

Radiation power incident on the first wall (MW)

real(kind=dp), public :: pradhcd

Radiation power incident on the heating and current drive system (MW)

real(kind=dp), public :: pradloss

Radiation power lost through holes (eventually hits shield) (MW) Only used for stellarator

real(kind=dp), public :: ptfnuc

nuclear heating in the TF coil (MW)

real(kind=dp), public :: ptfnucpm3

nuclear heating in the TF coil (MW/m3) (blktmodel>0)

real(kind=dp), public :: r_cryostat_inboard

cryostat radius [m]

real(kind=dp), public :: z_cryostat_half_inside

cryostat height [m]

real(kind=dp), public :: dr_pf_cryostat

Radial distance between outer edge of furthest away PF coil (or stellarator modular coil) and cryostat [m]

real(kind=dp), public :: vol_cryostat

Cryostat structure volume [m^3]

real(kind=dp), public :: vol_cryostat_internal

Internal volume of the cryostat [m^3]

real(kind=dp), public :: vdewin

vacuum vessel volume [m^3]

real(kind=dp), public :: vfshld

coolant void fraction in shield

real(kind=dp), public :: volblkt

volume of blanket [m^3]

real(kind=dp), public :: volblkti

volume of inboard blanket [m^3]

real(kind=dp), public :: volblkto

volume of outboard blanket [m^3]

real(kind=dp), public :: volshld

volume of shield [m^3]

real(kind=dp), public :: whtshld

mass of shield [kg]

real(kind=dp), public :: wpenshld

mass of the penetration shield [kg]

real(kind=dp), public :: wtshldi

mass of inboard shield [kg]

real(kind=dp), public :: wtshldo

mass of outboard shield [kg]

integer, public :: irefprop

Switch to use REFPROP routines (stellarator only)

real(kind=dp), public :: fblli

lithium fraction of blanket by volume (stellarator only)

real(kind=dp), public :: fblli2o

lithium oxide fraction of blanket by volume (stellarator only)

real(kind=dp), public :: fbllipb

lithium lead fraction of blanket by volume (stellarator only)

real(kind=dp), public :: fblvd

vanadium fraction of blanket by volume (stellarator only)

real(kind=dp), public :: wtblli2o

mass of blanket - Li_2O part [kg]

real(kind=dp), public :: wtbllipb

mass of blanket - Li-Pb part [kg]

real(kind=dp), public :: whtblvd

mass of blanket - vanadium part [kg]

real(kind=dp), public :: whtblli

mass of blanket - lithium part [kg]

real(kind=dp), public :: vfblkt

coolant void fraction in blanket.

integer, public :: blktmodel

switch for blanket/tritium breeding model (see i_blanket_type):

  • =0 original simple model
  • =1 KIT model based on a helium-cooled pebble-bed blanket (HCPB) reference design
real(kind=dp), public :: declblkt

neutron power deposition decay length of blanket structural material [m] (stellarators only)

real(kind=dp), public :: declfw

neutron power deposition decay length of first wall structural material [m] (stellarators only)

real(kind=dp), public :: declshld

neutron power deposition decay length of shield structural material [m] (stellarators only)

integer, public :: blkttype

Switch for blanket type:

  • =1 WCLL;
  • =2 HCLL; efficiency taken from M. Kovari 2016 "PROCESS": A systems code for fusion power plants - Part 2: Engineering https://www.sciencedirect.com/science/article/pii/S0920379616300072 Feedheat & reheat cycle assumed
  • =3 HCPB; efficiency taken from M. Kovari 2016 "PROCESS": A systems code for fusion power plants - Part 2: Engineering https://www.sciencedirect.com/science/article/pii/S0920379616300072 Feedheat & reheat cycle assumed
real(kind=dp), public :: etaiso

isentropic efficiency of FW and blanket coolant pumps

real(kind=dp), public :: etahtp

electrical efficiency of primary coolant pumps


BLANKET REFACTOR For DCLL, but to be used by all mods that share blanket library after testing. Thermodynamic Model for primary_pumping == 2


integer, public :: ipump

Switch for whether the FW and BB are on the same pump system i.e. do they have the same primary coolant or not - =0 FW and BB have the same primary coolant, flow = FWin->FWout->BBin->BBout - =1 FW and BB have the different primary coolant and are on different pump systems

integer, public :: i_bb_liq

Switch for Liquid Metal Breeder Material - =0 PbLi - =1 Li

integer, public :: icooldual

Switch to specify whether breeding blanket is single-cooled or dual-coolant. - =0 Single coolant used for FW and Blanket (H2O or He). Solid Breeder. - =1 Single coolant used for FW and Blanket (H2O or He). Liquid metal breeder circulted for tritium extraction. - =2 Dual coolant: primary coolant (H2O or He) for FW and blanket structure; secondary coolant is self-cooled liquid metal breeder.

integer, public :: ifci

Switch for Flow Channel Insert (FCI) type if liquid metal breeder blanket. - =0 Thin conducting walls, default electrical conductivity (bz_channel_conduct_liq) is Eurofer - =1 Insulating Material, assumed perfect electrical insulator, default density (den_ceramic) is for SiC - =2 Insulating Material, electrical conductivity (bz_channel_conduct_liq) is input (default Eurofer), default density (den_ceramic) is for SiC

integer, public :: ims

Switch for Multi Module Segment (MMS) or Single Modle Segment (SMS) - =0 MMS - =1 SMS

integer, public :: n_liq_recirc

Number of liquid metal breeder recirculations per day, for use with icooldual=1

real(kind=dp), public :: r_f_liq_ib

Radial fraction of BZ liquid channels

real(kind=dp), public :: r_f_liq_ob

Radial fraction of BZ liquid channels

real(kind=dp), public :: w_f_liq_ib

Toroidal fraction of BZ liquid channels

real(kind=dp), public :: w_f_liq_ob

Toroidal fraction of BZ liquid channels

real(kind=dp), public :: den_ceramic

FCI material density

real(kind=dp), public :: th_wall_secondary

Liquid metal coolant/breeder wall thickness thin conductor or FCI [m]

real(kind=dp), public :: bz_channel_conduct_liq

Liquid metal coolant/breeder thin conductor or FCI wall conductance [A V^-1 m^-1]

real(kind=dp), public :: a_bz_liq

Toroidal width of the rectangular cooling channel [m] for long poloidal sections of blanket breeding zone

real(kind=dp), public :: b_bz_liq

Radial width of the rectangular cooling channel [m] for long poloidal sections of blanket breeding zone

integer, public :: nopol

Number of poloidal sections in a liquid metal breeder/coolant channel for module/segment

integer, public :: nopipes

Number of Liquid metal breeder/coolant channels per module/segment

real(kind=dp), public :: den_liq

Liquid metal breeder/coolant density [kg m^-3]

real(kind=dp), public :: wht_liq

Liquid metal

real(kind=dp), public :: wht_liq_ib

Liquid metal

real(kind=dp), public :: wht_liq_ob

Liquid metal

real(kind=dp), public :: specific_heat_liq

Liquid metal breeder/coolant specific heat [J kg^-1 K^-1]

real(kind=dp), public :: thermal_conductivity_liq

Liquid metal breeder/coolant thermal conductivity [W m^-1 K^-1]

real(kind=dp), public :: dynamic_viscosity_liq

Liquid metal breeder/coolant dynamic viscosity [Pa s]

real(kind=dp), public :: electrical_conductivity_liq

Liquid metal breeder/coolant electrical conductivity [Ohm m]

real(kind=dp), public :: hartmann_liq(2)

Hartmann number

real(kind=dp), public :: b_mag_blkt(2)

Toroidal Magnetic feild strength for IB/OB blanket [T]

real(kind=dp), public :: etaiso_liq

Isentropic efficiency of blanket liquid breeder/coolant pumps

real(kind=dp), public :: blpressure_liq

blanket liquid metal breeder/coolant pressure [Pa]

real(kind=dp), public :: inlet_temp_liq

Inlet (scan var 68) and Outlet (scan var 69) temperature of the liquid breeder/coolant [K]

real(kind=dp), public :: outlet_temp_liq

Inlet (scan var 68) and Outlet (scan var 69) temperature of the liquid breeder/coolant [K]

real(kind=dp), public :: den_fw_coolant

Density of the FW primary coolant

real(kind=dp), public :: visc_fw_coolant

Viscosity of the FW primary coolant

real(kind=dp), public :: rhof_bl

Density of the blanket primary coolant

real(kind=dp), public :: visc_bl

Viscosity of the blanket primary coolant

real(kind=dp), public :: cp_fw

Spesific heat for FW and blanket primary coolant(s)

real(kind=dp), public :: cv_fw

Spesific heat for FW and blanket primary coolant(s)

real(kind=dp), public :: cp_bl

Spesific heat for FW and blanket primary coolant(s)

real(kind=dp), public :: cv_bl

Spesific heat for FW and blanket primary coolant(s)

real(kind=dp), public :: f_nuc_pow_bz_struct

For a dual-coolant blanket, fraction of BZ power cooled by primary coolant

real(kind=dp), public :: f_nuc_pow_bz_liq

For a dual-coolant blanket, fraction of BZ self-cooled power (secondary coolant)

real(kind=dp), public :: pnuc_fw_ratio_dcll

For a dual-coolant blanket, ratio of FW/Blanket nuclear power as fraction of total

real(kind=dp), public :: pnuc_blkt_ratio_dcll

For a dual-coolant blanket, ratio of FW/Blanket nuclear power as fraction of total

integer, public :: bzfllengi_n_rad

Number of radial and poloidal sections that make up the total primary coolant flow length in a blanket module (IB and OB)

integer, public :: bzfllengi_n_pol

Number of radial and poloidal sections that make up the total primary coolant flow length in a blanket module (IB and OB)

integer, public :: bzfllengo_n_rad

Number of radial and poloidal sections that make up the total primary coolant flow length in a blanket module (IB and OB)

integer, public :: bzfllengo_n_pol

Number of radial and poloidal sections that make up the total primary coolant flow length in a blanket module (IB and OB)

integer, public :: bzfllengi_n_rad_liq

Number of radial and poloidal sections that make up the total secondary coolant/breeder flow length in a blanket module (IB and OB)

integer, public :: bzfllengi_n_pol_liq

Number of radial and poloidal sections that make up the total secondary coolant/breeder flow length in a blanket module (IB and OB)

integer, public :: bzfllengo_n_rad_liq

Number of radial and poloidal sections that make up the total secondary coolant/breeder flow length in a blanket module (IB and OB)

integer, public :: bzfllengo_n_pol_liq

Number of radial and poloidal sections that make up the total secondary coolant/breeder flow length in a blanket module (IB and OB)


Subroutines

public subroutine init_fwbs_variables()

Initialise fwbs variables

Arguments

None