init_current_drive_variables Subroutine

public subroutine init_current_drive_variables()

Initialise module variables

Arguments

None

Contents


Source Code

  subroutine init_current_drive_variables
    !! Initialise module variables
    implicit none

    beamwd = 0.58D0
    bigq = 0.0D0
    bootstrap_current_fraction = 0.0D0
    bootstrap_current_fraction_max = 0.9D0
    bscf_iter89 = 0.0D0
    bscf_nevins = 0.0D0
    bscf_sauter = 0.0D0
    bscf_wilson = 0.0D0
    bscf_sakai = 0.0D0
    bscf_aries = 0.0D0
    bscf_andrade = 0.0D0
    bscf_hoang = 0.0D0
    bscf_wong = 0.0D0
    bscf_gi_I = 0.0D0
    bscf_gi_II = 0.0D0
    cboot = 1.0D0
    beam_current = 0.0D0
    diacf_hender = 0.0D0
    diacf_scene = 0.0D0
    diamagnetic_current_fraction = 0.0D0
    echpwr = 0.0D0
    echwpow = 0.0D0
    effcd = 0.0D0
    harnum = 2.0
    wave_mode = 0
    beam_energy = 1.0D3
    etacd = 0.0D0
    etacdfix = 0.0D0
    etaech = 0.3D0
    etalh = 0.3D0
    etanbi = 0.3D0
    fpion = 0.5D0
    pnbitot = 0.0D0
    pscf_scene = 0.0D0
    nbshinemw = 0.0D0
    feffcd = 1.0D0
    forbitloss = 0.0D0
    frbeam = 1.05D0
    f_tritium_beam = 1.0D-6
    gamcd = 0.0D0
    gamma_ecrh = 0.35D0
    xi_ebw = 0.8D0
    iefrf = 5
    iefrffix = 0
    irfcd = 1
    nbshinef = 0.0D0
    nbshield = 0.5D0
    pheat = 0.0D0
    pheatfix = 0.0D0
    pinjalw = 150.0D0
    pinjemw = 0.0D0
    pinjimw = 0.0D0
    pinjmw = 0.0D0
    pinjfixmw = 0.0D0
    plasma_current_internal_fraction = 0.0D0
    plhybd = 0.0D0
    pnbeam = 0.0D0
    porbitlossmw = 0.0D0
    ps_current_fraction = 0.0D0
    pwplh = 0.0D0
    pwpnb = 0.0D0
    rtanbeam = 0.0D0
    rtanmax = 0.0D0
    taubeam = 0.0D0
    tbeamin = 3.0D0
  end subroutine init_current_drive_variables