init_times_variables Subroutine

public subroutine init_times_variables()

Initialise module variables

Arguments

None

Contents

Source Code


Source Code

  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