Initialise module variables
subroutine init_times_variables
!! Initialise module variables
implicit none
pulsetimings = 1.0D0
tburn = 1000.0D0
tburn0 = 0.0D0
tcycle = 0.0D0
tdown = 0.0D0
tdwell = 1800.0D0
t_fusion_ramp = 10.0D0
tim = 0.0D0
timelabel = (/ 'Start', &
'BOP ', &
'EOR ', &
'BOF ', &
'EOF ', &
'EOP ' /)
intervallabel = (/ 'tramp ', &
'tohs ', &
't_fusion_ramp', &
'tburn ', &
'tqnch ' /)
tohs = 30.0D0
tohsin = 0.0D0
tpulse = 0.0D0
tqnch = 15.0D0
tramp = 15.0D0
end subroutine init_times_variables