dcll_module Module

This module contains the Dual Coolant Lead Lithium (DCLL) specific submods of PROCESSS.

author: G. Graham, CCFE

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

IN.DAT info for DCLL:

  Select DCLL model
      iblanket = 5 * DCLL

  Liquid Metal Breeder Material = PbLi
      i_bb_liq = 0 * Liquid Metal Breeder Material = PbLi

  Specify dual-coolant i.e., get mass flow required from heat extracted from liqid metal breeder
      icooldual = 2

  FIC switch: 0 = no FIC, Eurofer; 1 = FCIs, perfect electrical insulator, 2 = FCIs, with specified conductance
      ifci = 0, 1, or 2

  Liquid metal duct wall conductance initilized at Eurofer value in fwbs_variables, or can input other value, used for ifci = 0 or 2
      (bz_channel_conduct_liq)

  Choose if FW and BB structure are on the same pumping system (unless have diffent coolants), default is same coolant with flow IN->FW->BB->OUT
      (ipump)

  Can set inlet and oulet temperature for liquid metal breeder
      (inlet_temp_liq)
      (outlet_temp_liq)

References:

  [Nat1995]   Natesan et al. (1995), Assessment of alkali metal coolants for
              for the ITER blanket, Fusion Engineering and Design 27, 457-466

  [Mal1995]   Malang and Mattas (1995), Comparison of lithium and the eutectic
              lead-lithium alloy, two candidate liquid metal breeder materials
              for self-cooled blankets, Fusion Engineering and Design 27, 399-406

  [Gas2001]   Gasior and Mozer (2001), Thermodynamic study of liquid lithiumlead
              alloys using the EMF method, Journal of Nuclear Materials, 294, 77-83

  [Pal2016]   Palermo et al. (2016), Neutronic analyses of the preliminary design
              of a DCLL blanket for the EUROfusion DEMO power plant,
              Fusion Engineering and Design 109-111.

  [Gar2017]   Garcinuno et al. (2017), Design of a permeator against vacuum for
              tritium extraction from eutectic lithium-lead in a DCLL DEMO,
              Fusion Engineering and Design, 117, 226-231

  [Fer2021]   Fernandez-Berceruelo et al. (2021), Alternatives for upgrading the
              eu dcll breeding blanket from mms to sms, Fusion Engineering and
              Design 167, 112380

Note: request for when CCFE Bluemira nutronics work is added: output maximum values, as well as average values, for wall neutronics calculation if possible.

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

DCLL Variables !!!!!!!!!!!!!!!!

Radial thickness of FCIs annd backwall [m] !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



Contents


Variables

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

Radial BZ thickness [m]

real(kind=dp), public :: r_backwall

Radial BZ thickness [m]

real(kind=dp), public :: bz_r_ib

Structure/coolant compositional fractions

real(kind=dp), public :: bz_r_ob

Structure/coolant compositional fractions

real(kind=dp), public :: f_vol_stff_plates

MF/BSS compositional fractions

real(kind=dp), public :: f_vol_stl_bz_struct

MF/BSS compositional fractions

real(kind=dp), public :: f_vol_stl_back_wall

MF/BSS compositional fractions

real(kind=dp), public :: f_vol_stl_fw

MF/BSS compositional fractions

real(kind=dp), public :: f_vol_mfbss_stl

Volume of FCIs, other BZ structure, liquid channels, backwall and MF/BSS [m^3]

real(kind=dp), public :: f_vol_mfbss_he

Volume of FCIs, other BZ structure, liquid channels, backwall and MF/BSS [m^3]

real(kind=dp), public :: f_vol_mfbss_pbli

Volume of FCIs, other BZ structure, liquid channels, backwall and MF/BSS [m^3]

real(kind=dp), public :: vol_fci

BZ masses by composition [kg]

real(kind=dp), public :: vol_bz_struct

BZ masses by composition [kg]

real(kind=dp), public :: vol_bz_liq

BZ masses by composition [kg]

real(kind=dp), public :: vol_bz_liq_ib

BZ masses by composition [kg]

real(kind=dp), public :: vol_bz_liq_ob

BZ masses by composition [kg]

real(kind=dp), public :: vol_bw

BZ masses by composition [kg]

real(kind=dp), public :: vol_bss

BZ masses by composition [kg]

real(kind=dp), public :: wht_cer

Backwall masses by composition [kg]

real(kind=dp), public :: wht_stl_struct

Backwall masses by composition [kg]

real(kind=dp), public :: wht_cool_struct

Backwall masses by composition [kg]

real(kind=dp), public :: wht_bw_stl

MF/BSS masses by composition [kg]

real(kind=dp), public :: wht_bw_cool

MF/BSS masses by composition [kg]

real(kind=dp), public :: wht_mfbss_stl

FW masses by composition [kg]

real(kind=dp), public :: wht_mfbss_cool

FW masses by composition [kg]

real(kind=dp), public :: wht_mfbss_pbli

FW masses by composition [kg]

real(kind=dp), public :: fwmass_stl

Total masses of material in blanket [kg]

real(kind=dp), public :: fwmass_cool

Total masses of material in blanket [kg]

real(kind=dp), public :: mass_cool_blanket

Total mass for an inboard/outboard reactor segment [kg]

real(kind=dp), public :: mass_liq_blanket

Total mass for an inboard/outboard reactor segment [kg]

real(kind=dp), public :: mass_stl_blanket

Total mass for an inboard/outboard reactor segment [kg]

real(kind=dp), public :: mass_segm_ib
real(kind=dp), public :: mass_segm_ob

Subroutines

public subroutine init_dcll_module()

Initialise module variables !!!

Arguments

None