module_streams.F

!WRF:DRIVER_LAYER:IO_STREAMS
MODULE module_streams


! registry-generated switch parameters, alarms

#include "switches_and_alarms.inc"

  INTEGER, PARAMETER :: first_history     = history_only
  INTEGER, PARAMETER :: last_history      = history_only+MAX_HISTORY-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+MAX_HISTORY-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*(MAX_HISTORY)+1
  INTEGER, PARAMETER :: boundary_only     = 2*(MAX_HISTORY)+2

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

  INTEGER, PARAMETER :: INPUTOUT_ALARM              = 2*(MAX_HISTORY)+3       ! for outputing input (e.g. for 3dvar)
  INTEGER, PARAMETER :: ALARM_SUBTIME               = 2*(MAX_HISTORY)+4
  INTEGER, PARAMETER :: COMPUTE_VORTEX_CENTER_ALARM = 2*(MAX_HISTORY)+5

  INTEGER, PARAMETER :: MAX_WRF_ALARMS    = COMPUTE_VORTEX_CENTER_ALARM  ! WARNING:  MAX_WRF_ALARMS must be
                                                                         ! large enough to include all of
                                                                         ! the alarms declared above.

  CONTAINS
    SUBROUTINE init_module_streams
    END SUBROUTINE init_module_streams

END MODULE module_streams