MODULE module_streams










INTEGER, PARAMETER :: history_only      = 1
INTEGER, PARAMETER :: HISTORY_ALARM     = history_only
INTEGER, PARAMETER :: input_only        = 26
INTEGER, PARAMETER :: INPUT_ALARM       = input_only         
INTEGER, PARAMETER :: auxhist1_only     = 2
INTEGER, PARAMETER :: AUXHIST1_ALARM    = 2
INTEGER, PARAMETER :: auxinput1_only     = 27
INTEGER, PARAMETER :: AUXINPUT1_ALARM    = 27
INTEGER, PARAMETER :: auxhist2_only     = 3
INTEGER, PARAMETER :: AUXHIST2_ALARM    = 3
INTEGER, PARAMETER :: auxinput2_only     = 28
INTEGER, PARAMETER :: AUXINPUT2_ALARM    = 28
INTEGER, PARAMETER :: auxhist3_only     = 4
INTEGER, PARAMETER :: AUXHIST3_ALARM    = 4
INTEGER, PARAMETER :: auxinput3_only     = 29
INTEGER, PARAMETER :: AUXINPUT3_ALARM    = 29
INTEGER, PARAMETER :: auxhist4_only     = 5
INTEGER, PARAMETER :: AUXHIST4_ALARM    = 5
INTEGER, PARAMETER :: auxinput4_only     = 30
INTEGER, PARAMETER :: AUXINPUT4_ALARM    = 30
INTEGER, PARAMETER :: auxhist5_only     = 6
INTEGER, PARAMETER :: AUXHIST5_ALARM    = 6
INTEGER, PARAMETER :: auxinput5_only     = 31
INTEGER, PARAMETER :: AUXINPUT5_ALARM    = 31
INTEGER, PARAMETER :: auxhist6_only     = 7
INTEGER, PARAMETER :: AUXHIST6_ALARM    = 7
INTEGER, PARAMETER :: auxinput6_only     = 32
INTEGER, PARAMETER :: AUXINPUT6_ALARM    = 32
INTEGER, PARAMETER :: auxhist7_only     = 8
INTEGER, PARAMETER :: AUXHIST7_ALARM    = 8
INTEGER, PARAMETER :: auxinput7_only     = 33
INTEGER, PARAMETER :: AUXINPUT7_ALARM    = 33
INTEGER, PARAMETER :: auxhist8_only     = 9
INTEGER, PARAMETER :: AUXHIST8_ALARM    = 9
INTEGER, PARAMETER :: auxinput8_only     = 34
INTEGER, PARAMETER :: AUXINPUT8_ALARM    = 34
INTEGER, PARAMETER :: auxhist9_only     = 10
INTEGER, PARAMETER :: AUXHIST9_ALARM    = 10
INTEGER, PARAMETER :: auxinput9_only     = 35
INTEGER, PARAMETER :: AUXINPUT9_ALARM    = 35
INTEGER, PARAMETER :: auxhist10_only     = 11
INTEGER, PARAMETER :: AUXHIST10_ALARM    = 11
INTEGER, PARAMETER :: auxinput10_only     = 36
INTEGER, PARAMETER :: AUXINPUT10_ALARM    = 36
INTEGER, PARAMETER :: auxhist11_only     = 12
INTEGER, PARAMETER :: AUXHIST11_ALARM    = 12
INTEGER, PARAMETER :: auxinput11_only     = 37
INTEGER, PARAMETER :: AUXINPUT11_ALARM    = 37
INTEGER, PARAMETER :: auxhist12_only     = 13
INTEGER, PARAMETER :: AUXHIST12_ALARM    = 13
INTEGER, PARAMETER :: auxinput12_only     = 38
INTEGER, PARAMETER :: AUXINPUT12_ALARM    = 38
INTEGER, PARAMETER :: auxhist13_only     = 14
INTEGER, PARAMETER :: AUXHIST13_ALARM    = 14
INTEGER, PARAMETER :: auxinput13_only     = 39
INTEGER, PARAMETER :: AUXINPUT13_ALARM    = 39
INTEGER, PARAMETER :: auxhist14_only     = 15
INTEGER, PARAMETER :: AUXHIST14_ALARM    = 15
INTEGER, PARAMETER :: auxinput14_only     = 40
INTEGER, PARAMETER :: AUXINPUT14_ALARM    = 40
INTEGER, PARAMETER :: auxhist15_only     = 16
INTEGER, PARAMETER :: AUXHIST15_ALARM    = 16
INTEGER, PARAMETER :: auxinput15_only     = 41
INTEGER, PARAMETER :: AUXINPUT15_ALARM    = 41
INTEGER, PARAMETER :: auxhist16_only     = 17
INTEGER, PARAMETER :: AUXHIST16_ALARM    = 17
INTEGER, PARAMETER :: auxinput16_only     = 42
INTEGER, PARAMETER :: AUXINPUT16_ALARM    = 42
INTEGER, PARAMETER :: auxhist17_only     = 18
INTEGER, PARAMETER :: AUXHIST17_ALARM    = 18
INTEGER, PARAMETER :: auxinput17_only     = 43
INTEGER, PARAMETER :: AUXINPUT17_ALARM    = 43
INTEGER, PARAMETER :: auxhist18_only     = 19
INTEGER, PARAMETER :: AUXHIST18_ALARM    = 19
INTEGER, PARAMETER :: auxinput18_only     = 44
INTEGER, PARAMETER :: AUXINPUT18_ALARM    = 44
INTEGER, PARAMETER :: auxhist19_only     = 20
INTEGER, PARAMETER :: AUXHIST19_ALARM    = 20
INTEGER, PARAMETER :: auxinput19_only     = 45
INTEGER, PARAMETER :: AUXINPUT19_ALARM    = 45
INTEGER, PARAMETER :: auxhist20_only     = 21
INTEGER, PARAMETER :: AUXHIST20_ALARM    = 21
INTEGER, PARAMETER :: auxinput20_only     = 46
INTEGER, PARAMETER :: AUXINPUT20_ALARM    = 46
INTEGER, PARAMETER :: auxhist21_only     = 22
INTEGER, PARAMETER :: AUXHIST21_ALARM    = 22
INTEGER, PARAMETER :: auxinput21_only     = 47
INTEGER, PARAMETER :: AUXINPUT21_ALARM    = 47
INTEGER, PARAMETER :: auxhist22_only     = 23
INTEGER, PARAMETER :: AUXHIST22_ALARM    = 23
INTEGER, PARAMETER :: auxinput22_only     = 48
INTEGER, PARAMETER :: AUXINPUT22_ALARM    = 48
INTEGER, PARAMETER :: auxhist23_only     = 24
INTEGER, PARAMETER :: AUXHIST23_ALARM    = 24
INTEGER, PARAMETER :: auxinput23_only     = 49
INTEGER, PARAMETER :: AUXINPUT23_ALARM    = 49
INTEGER, PARAMETER :: auxhist24_only     = 25
INTEGER, PARAMETER :: AUXHIST24_ALARM    = 25
INTEGER, PARAMETER :: auxinput24_only     = 50
INTEGER, PARAMETER :: AUXINPUT24_ALARM    = 50


  INTEGER, PARAMETER :: first_history     = history_only
  INTEGER, PARAMETER :: last_history      = history_only+25-1
  INTEGER, PARAMETER :: first_auxhist     = auxhist1_only
  INTEGER, PARAMETER :: last_auxhist      = last_history
  INTEGER, PARAMETER :: first_input       = input_only
  INTEGER, PARAMETER :: last_input        = input_only+25-1
  INTEGER, PARAMETER :: first_auxinput    = auxinput1_only
  INTEGER, PARAMETER :: last_auxinput     = last_input
  INTEGER, PARAMETER :: first_stream      = first_history
  INTEGER, PARAMETER :: last_stream       = last_input
  INTEGER, PARAMETER :: restart_only      = 2*(25)+1
  INTEGER, PARAMETER :: boundary_only     = 2*(25)+2

  INTEGER, PARAMETER :: RESTART_ALARM     = restart_only
  INTEGER, PARAMETER :: BOUNDARY_ALARM    = boundary_only

  INTEGER, PARAMETER :: INPUTOUT_ALARM              = 2*(25)+3       
  INTEGER, PARAMETER :: ALARM_SUBTIME               = 2*(25)+4
  INTEGER, PARAMETER :: COMPUTE_VORTEX_CENTER_ALARM = 2*(25)+5

  INTEGER, PARAMETER :: MAX_WRF_ALARMS    = COMPUTE_VORTEX_CENTER_ALARM  
                                                                         
                                                                         

  CONTAINS
    SUBROUTINE init_module_streams
    END SUBROUTINE init_module_streams

END MODULE module_streams