dcll.f90 Source File


Contents

Source Code


Source Code

module dcll_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 lithium–lead
    !!                  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.
    !!
    !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


#ifndef dp
    use, intrinsic :: iso_fortran_env, only: dp=>real64
#endif

    use fwbs_variables, only: wht_liq, wht_liq_ib, wht_liq_ob

    implicit none

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

    !! Radial thickness of FCIs annd backwall [m]
    real(dp) :: r_fci, r_backwall

    !! Radial BZ thickness [m]
    real(dp) :: bz_r_ib, bz_r_ob

    !! Structure/coolant compositional fractions
    real(dp) :: f_vol_stff_plates, f_vol_stl_bz_struct, f_vol_stl_back_wall, f_vol_stl_fw

    !! MF/BSS compositional fractions
    real(dp) :: f_vol_mfbss_stl, f_vol_mfbss_he, f_vol_mfbss_pbli

    !! Volume of FCIs, other BZ structure, liquid channels, backwall and MF/BSS [m^3]
    real(dp) :: vol_fci, vol_bz_struct, vol_bz_liq, vol_bz_liq_ib, vol_bz_liq_ob, vol_bw, vol_bss

    !! BZ masses by composition [kg]
    real(dp) :: wht_cer, wht_stl_struct, wht_cool_struct

    !! Backwall masses by composition [kg]
    real(dp) :: wht_bw_stl, wht_bw_cool

    !! MF/BSS masses by composition [kg]
    real(dp) :: wht_mfbss_stl, wht_mfbss_cool, wht_mfbss_pbli

    !! FW masses by composition [kg]
    real(dp) :: fwmass_stl, fwmass_cool

    !! Total masses of material in blanket [kg]
    real(dp) :: mass_cool_blanket, mass_liq_blanket, mass_stl_blanket

    !! Total mass for an inboard/outboard reactor segment [kg]
    real(dp) :: mass_segm_ib, mass_segm_ob

contains

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

    subroutine init_dcll_module

        !! Initialise module variables !!!

        implicit none

        r_fci = 0.0
        r_backwall = 0.0
        bz_r_ib = 0.0
        bz_r_ob = 0.0
        f_vol_stff_plates = 0.0
        f_vol_stl_bz_struct = 0.0
        f_vol_stl_back_wall = 0.0
        f_vol_stl_fw = 0.0
        f_vol_mfbss_stl = 0.0
        f_vol_mfbss_he = 0.0
        f_vol_mfbss_pbli = 0.0
        vol_fci = 0.0
        vol_bz_struct = 0.0
        vol_bz_liq = 0.0
        vol_bz_liq_ib = 0.0
        vol_bz_liq_ob = 0.0
        vol_bw = 0.0
        vol_bss = 0.0
        wht_cer = 0.0
        wht_stl_struct = 0.0
        wht_cool_struct = 0.0
        wht_bw_stl = 0.0
        wht_bw_cool = 0.0
        wht_mfbss_stl = 0.0
        wht_mfbss_cool = 0.0
        wht_mfbss_pbli = 0.0
        fwmass_stl = 0.0
        fwmass_cool = 0.0
        mass_cool_blanket = 0.0
        mass_liq_blanket = 0.0
        mass_stl_blanket = 0.0
        mass_segm_ib = 0.0
        mass_segm_ob = 0.0

    end subroutine init_dcll_module

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

end module dcll_module