init_build_variables Subroutine

public subroutine init_build_variables()

Initialise module variables

Arguments

None

Contents

Source Code


Source Code

  subroutine init_build_variables
    !! Initialise module variables
    implicit none

    aplasmin = 0.25D0
    available_radial_space = 0.0D0
    blarea = 0.0D0
    blareaib = 0.0D0
    blareaob = 0.0D0
    blbmith = 0.17D0
    blbmoth = 0.27D0
    blbpith = 0.30D0
    blbpoth = 0.35D0
    blbuith = 0.365D0
    blbuoth = 0.465D0
    blnkith = 0.115D0
    blnkoth = 0.235D0
    blnktth = 0.0D0
    bore = 1.42D0
    clhsf = 4.268D0
    ddwex = 0.07D0
    d_vv_in = 0.07D0
    d_vv_out = 0.07D0
    d_vv_top = 0.07D0
    d_vv_bot = 0.07D0
    f_avspace = 1.0D0
    fcspc = 0.6D0
    fseppc = 3.5D8
    fwarea = 0.0D0
    fwareaib = 0.0D0
    fwareaob = 0.0D0
    fwith = 0.0D0
    fwoth = 0.0D0
    gapds = 0.155D0
    gapoh = 0.08D0
    gapomin = 0.234D0
    gapsto = 0.0D0
    hmax = 0.0D0
    hpfdif = 0.0D0
    hpfu = 0.0D0
    hr1 = 0.0D0
    iohcl = 1
    iprecomp = 1
    tf_in_cs = 0
    ohcth = 0.811D0
    precomp = 0.0D0
    rbld = 0.0D0
    required_radial_space = 0.0D0
    rinboard = 0.651D0
    rsldi = 0.0D0
    rsldo = 0.0D0
    r_vv_inboard_out = 0.0D0
    r_sh_inboard_out = 0.0D0
    r_tf_inboard_in = 0.0D0
    r_tf_inboard_mid = 0.0D0
    r_tf_inboard_out = 0.0D0
    r_tf_outboard_mid = 0.0D0
    i_r_cp_top = 0
    r_cp_top = 0.0D0
    f_r_cp = 1.4D0
    dr_tf_inner_bore = 0.0D0
    dh_tf_inner_bore = 0.0D0
    scrapli = 0.14D0
    scraplo = 0.15D0
    sharea = 0.0D0
    shareaib = 0.0D0
    shareaob = 0.0D0
    shldith = 0.69D0
    shldlth = 0.7D0
    shldoth = 1.05D0
    shldtth = 0.6D0
    sigallpc = 3.0D8
    tfcth = 0.0D0
    tfoffset = 0.0D0
    tfootfi = 1.19D0
    tfthko = 0.0D0
    tftsgap = 0.05D0
    thshield_ib = 0.05D0
    thshield_ob = 0.05D0
    thshield_vb = 0.05D0
    vgap_vv_thermalshield = 0.163D0
    vgap_xpoint_divertor= 0.0D0
    vgaptop = 0.60D0
    vvblgap = 0.05D0
    plleni = 1.0D0
    plleno = 1.0D0
    plsepi = 1.0D0
    plsepo = 1.5D0
    rspo = 0.0D0
    r_sh_inboard_in = 0.0D0
  end subroutine init_build_variables