Initialise divertor_variables
subroutine init_divertor_variables
!! Initialise divertor_variables
implicit none
adas = 0.0D0
anginc = 0.262D0
beta_div = 1.0D0
betai = 1.0D0
betao = 1.0D0
bpsout = 0.60D0
c1div = 0.45D0
c2div = -7.0D0
c3div = 0.54D0
c4div = -3.6D0
c5div = 0.7D0
c6div = 0.0D0
delld = 1.0D0
dendiv = 0.0D0
densin = 0.0D0
divclfr = 0.3D0
divdens = 1.0D4
divdum = 0
divfix = 0.2D0
divmas = 0.0D0
divplt = 0.035D0
divsur = 0.0D0
fdfs = 10.0D0
fdiva = 1.11D0
fhout = 0.0D0
fififi = 4.0D-3
flux_exp = 2.0D0
frrp = 0.4D0
hldiv = 0.0D0
i_hldiv = 0
hldivlim = 5.0D0
ksic = 0.8D0
lamp = 0.0D0
minstang = 0.0D0
omegan = 1.0D0
omlarg = 0.0D0
ppdivr = 0.0D0
prn1 = 0.285D0
ptpdiv = 0.0D0
rconl = 0.0D0
rlclolcn = 0.0D0
rlenmax = 0.5D0
rsrd = 0.0D0
tconl = 0.0D0
tdiv = 2.0D0
tsep = 0.0D0
xparain = 2.1D3
xpertin = 2.0D0
zeffdiv = 1.0D0
end subroutine init_divertor_variables