Initialise module variables
subroutine init_CS_fatigue_variables
!! Initialise module variables
implicit none
residual_sig_hoop = 2.4D8
t_crack_radial = 6.0D-3
t_crack_vertical = 0.89D-3
n_cycle = 0.0D0
n_cycle_min = 2.0D4
t_structural_vertical = 0.022D0
t_structural_radial = 0.07D0
bkt_life_csf = 0
sf_vertical_crack = 2.0D0
sf_radial_crack = 2.0D0
sf_fast_fracture = 1.5D0
paris_coefficient = 65.0D-14
paris_power_law = 3.5D0
walker_coefficient = 0.436D0
fracture_toughness = 2.0e2
end subroutine init_CS_fatigue_variables