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
    dr_blkt_inboard = 0.115D0
    dr_blkt_outboard = 0.235D0
    blnktth = 0.0D0
    dr_bore = 1.42D0
    f_z_cryostat = 4.268D0
    dr_cryostat = 0.07D0
    dr_vv_inboard = 0.07D0
    dr_vv_outboard = 0.07D0
    d_vv_top = 0.07D0
    d_vv_bot = 0.07D0
    f_avspace = 1.0D0
    fcspc = 0.6D0
    fseppc = 3.5D8
    a_fw_total = 0.0D0
    a_fw_inboard = 0.0D0
    a_fw_outboard = 0.0D0
    dr_fw_inboard = 0.0D0
    dr_fw_outboard = 0.0D0
    dr_shld_vv_gap_inboard = 0.155D0
    dr_cs_tf_gap = 0.08D0
    gapomin = 0.234D0
    dr_shld_vv_gap_outboard = 0.0D0
    hmax = 0.0D0
    hpfdif = 0.0D0
    hpfu = 0.0D0
    hr1 = 0.0D0
    iohcl = 1
    i_cs_precomp = 1
    tf_in_cs = 0
    dr_cs = 0.811D0
    dr_cs_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
    dr_fw_plasma_gap_inboard = 0.14D0
    dr_fw_plasma_gap_outboard = 0.15D0
    sharea = 0.0D0
    shareaib = 0.0D0
    shareaob = 0.0D0
    dr_shld_inboard = 0.69D0
    shldlth = 0.7D0
    dr_shld_outboard = 1.05D0
    shldtth = 0.6D0
    sigallpc = 3.0D8
    dr_tf_inboard = 0.0D0
    tfoffset = 0.0D0
    tfootfi = 1.19D0
    dr_tf_outboard = 0.0D0
    dr_tf_shld_gap = 0.05D0
    dr_shld_thermal_inboard = 0.05D0
    dr_shld_thermal_outboard = 0.05D0
    thshield_vb = 0.05D0
    vgap_vv_thermalshield = 0.163D0
    vgap_xpoint_divertor= 0.0D0
    vgaptop = 0.60D0
    dr_shld_blkt_gap = 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