init_CS_fatigue_variables Subroutine

public subroutine init_CS_fatigue_variables()

Initialise module variables

Arguments

None

Contents


Source Code

  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