blanket_library – PROCESS

! This library contains routines that can be shared by the blanket modules used in PROCESS.

! These include: ! - component_volumes ! - component_masses ! - thermo_hydraulic_model

! author: G Graham, CCFE, Culham Science Centre

Acronyms for this module:

  BB          Breeding Blanket
  FW          First Wall
  BZ          Breeder Zone
  MF/BSS      Manifold/Back Supporting Structure
  LT          Low Temperature
  HT          High Temperature
  MMS         Multi Module Segment
  SMS         Single Modle Segment
  IB          Inboard
  OB          Outboard
  HCD         Heating & Current Drive
  FCI         Flow Channel Insert

! Any changes within a subroutine or function code will have a comment explaining the change

Uses

- iso_fortran_env

Variables

volshldi volshldo volvvi volvvo hcryopf vfblkti vfblkto bldepti bldepto blwidti blwidto bllengi bllengo bzfllengi bzfllengo bzfllengi_liq bzfllengo_liq pnucfwi pnucfwo tpeakfwi tpeakfwo mffwi mffwo mffw npfwi npfwo mffwpi mffwpo pnucblkti pnucblkto mfblkti mfblkto mfblkt mfblkti_liq mfblkto_liq mfblkt_liq mftotal npblkti npblkto mfblktpi mfblktpo velblkti velblkto htpmw_fwi htpmw_fwo htpmw_blkti htpmw_blkto htpmw_fw_blkti htpmw_fw_blkto hblnkt hshld hvv icomponent

Subroutines

init_blanket_library

Variables

Type	Visibility		Name
real(kind=dp),	public	::	volshldi	Volume of inboard and outboard shield (m3)
real(kind=dp),	public	::	volshldo	Volume of inboard and outboard shield (m3)
real(kind=dp),	public	::	volvvi	Volume of inboard and outboard Vacuum Vessel (m3)
real(kind=dp),	public	::	volvvo	Volume of inboard and outboard Vacuum Vessel (m3)
real(kind=dp),	public	::	hcryopf	Clearance between uppermost PF coil and cryostat lid (m)
real(kind=dp),	public	::	vfblkti	Inboard/outboard void fraction of blanket
real(kind=dp),	public	::	vfblkto	Inboard/outboard void fraction of blanket
real(kind=dp),	public	::	bldepti	Inboard/outboard blanket coolant channel length (radial direction) (m)
real(kind=dp),	public	::	bldepto	Inboard/outboard blanket coolant channel length (radial direction) (m)
real(kind=dp),	public	::	blwidti	Inboard/outboard blanket mid-plan toroidal circumference for segment (m)
real(kind=dp),	public	::	blwidto	Inboard/outboard blanket mid-plan toroidal circumference for segment (m)
real(kind=dp),	public	::	bllengi	Inboard/outboard blanket segment poloidal length (m)
real(kind=dp),	public	::	bllengo	Inboard/outboard blanket segment poloidal length (m)
real(kind=dp),	public	::	bzfllengi	Inboard/outboard primary blanket flow lengths (m)
real(kind=dp),	public	::	bzfllengo	Inboard/outboard primary blanket flow lengths (m)
real(kind=dp),	public	::	bzfllengi_liq	Inboard/outboard secondary blanket flow lengths (m)
real(kind=dp),	public	::	bzfllengo_liq	Inboard/outboard secondary blanket flow lengths (m)
real(kind=dp),	public	::	pnucfwi	Inboard/outboard first wall nuclear heating (MW)
real(kind=dp),	public	::	pnucfwo	Inboard/outboard first wall nuclear heating (MW)
real(kind=dp),	public	::	tpeakfwi	Inboard/outboard first wall peak temperature (K)
real(kind=dp),	public	::	tpeakfwo	Inboard/outboard first wall peak temperature (K)
real(kind=dp),	public	::	mffwi	Inboard/outboard total mass flow rate to remove inboard FW power (kg/s)
real(kind=dp),	public	::	mffwo	Inboard/outboard total mass flow rate to remove inboard FW power (kg/s)
real(kind=dp),	public	::	mffw	Inboard/outboard total mass flow rate to remove inboard FW power (kg/s)
real(kind=dp),	public	::	npfwi	Inboard/utboard total number of pipes
real(kind=dp),	public	::	npfwo	Inboard/utboard total number of pipes
real(kind=dp),	public	::	mffwpi	Inboard/outboard mass flow rate per coolant pipe (kg/s)
real(kind=dp),	public	::	mffwpo	Inboard/outboard mass flow rate per coolant pipe (kg/s)
real(kind=dp),	public	::	pnucblkti	Neutron power deposited inboard/outboard blanket blanket (MW)
real(kind=dp),	public	::	pnucblkto	Neutron power deposited inboard/outboard blanket blanket (MW)
real(kind=dp),	public	::	mfblkti	Inboard/outboard blanket mass flow rate for coolant (kg/s)
real(kind=dp),	public	::	mfblkto	Inboard/outboard blanket mass flow rate for coolant (kg/s)
real(kind=dp),	public	::	mfblkt	Inboard/outboard blanket mass flow rate for coolant (kg/s)
real(kind=dp),	public	::	mfblkti_liq	Inboard/outboard blanket mass flow rate for liquid breeder (kg/s)
real(kind=dp),	public	::	mfblkto_liq	Inboard/outboard blanket mass flow rate for liquid breeder (kg/s)
real(kind=dp),	public	::	mfblkt_liq	Inboard/outboard blanket mass flow rate for liquid breeder (kg/s)
real(kind=dp),	public	::	mftotal	Total mass flow rate for coolant (kg/s)
real(kind=dp),	public	::	npblkti	Inboard/outboard total num of pipes
real(kind=dp),	public	::	npblkto	Inboard/outboard total num of pipes
real(kind=dp),	public	::	mfblktpi	Inboard/outboard mass flow rate per coolant pipe (kg/s)
real(kind=dp),	public	::	mfblktpo	Inboard/outboard mass flow rate per coolant pipe (kg/s)
real(kind=dp),	public	::	velblkti	Inboard/outboard coolant velocity in blanket (m/s)
real(kind=dp),	public	::	velblkto	Inboard/outboard coolant velocity in blanket (m/s)
real(kind=dp),	public	::	htpmw_fwi	Inboard/outboard first wall pumping power (MW)
real(kind=dp),	public	::	htpmw_fwo	Inboard/outboard first wall pumping power (MW)
real(kind=dp),	public	::	htpmw_blkti	Inboard/outboard blanket pumping power (MW)
real(kind=dp),	public	::	htpmw_blkto	Inboard/outboard blanket pumping power (MW)
real(kind=dp),	public	::	htpmw_fw_blkti	Inboard/outboard fw and blanket pumping power (MW)
real(kind=dp),	public	::	htpmw_fw_blkto	Inboard/outboard fw and blanket pumping power (MW)
real(kind=dp),	public	::	hblnkt	Blanket internal half-height (m)
real(kind=dp),	public	::	hshld	Shield internal half-height (m)
real(kind=dp),	public	::	hvv	Vacuum vessel internal half-height (m)
integer,	public	::	icomponent	Switch used to specify selected component: blanket=0, shield=1, vacuum vessel=2

blanket_library Module

Contents

Variables

Subroutines

Uses

Contents

Variables

Subroutines

Variables

Subroutines

public subroutine init_blanket_library()

Arguments