Initialise module variables
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