Initialise module variables
subroutine init_impurity_radiation_module
!! Initialise module variables
implicit none
coreradius = 0.6D0
coreradiationfraction = 1.0D0
fimp = (/ 1.0D0, 0.1D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, &
0.0D0, 0.00D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0 /)
imp_label = (/ &
'H_', &
'He', &
'Be', &
'C_', &
'N_', &
'O_', &
'Ne', &
'Si', &
'Ar', &
'Fe', &
'Ni', &
'Kr', &
'Xe', &
'W_'/)
toolow = .false.
impurity_arr_Label = " "
impurity_arr_Z = 0
impurity_arr_amass = 0.0D0
impurity_arr_len_tab = 0.0D0
impurity_arr_Temp_keV = 0.0D0
impurity_arr_Lz_Wm3 = 0.0D0
impurity_arr_Zav = 0.0D0
! Re-initialise entire array
end subroutine init_impurity_radiation_module