init_pulse_variables Subroutine

  subroutine init_pulse_variables
    !! Initialise module variables
    implicit none

    bctmp = 320.0D0
    dtstor = 300.0D0
    istore = 1
    itcycl = 1
    lpulse = 0
  end subroutine init_pulse_variables