frame/module_streams.F

   1 !WRF:DRIVER_LAYER:IO_STREAMS
   2 MODULE module_streams
   3
   4
   5 ! registry-generated switch parameters, alarms
   6
   7 #include "switches_and_alarms.inc"
   8
   9   INTEGER, PARAMETER :: first_history     = history_only
  10   INTEGER, PARAMETER :: last_history      = history_only+MAX_HISTORY-1
  11   INTEGER, PARAMETER :: first_auxhist     = auxhist1_only
  12   INTEGER, PARAMETER :: last_auxhist      = last_history
  13   INTEGER, PARAMETER :: first_input       = input_only
  14   INTEGER, PARAMETER :: last_input        = input_only+MAX_HISTORY-1
  15   INTEGER, PARAMETER :: first_auxinput    = auxinput1_only
  16   INTEGER, PARAMETER :: last_auxinput     = last_input
  17   INTEGER, PARAMETER :: first_stream      = first_history
  18   INTEGER, PARAMETER :: last_stream       = last_input
  19   INTEGER, PARAMETER :: restart_only      = 2*(MAX_HISTORY)+1
  20   INTEGER, PARAMETER :: boundary_only     = 2*(MAX_HISTORY)+2
  21
  22   INTEGER, PARAMETER :: RESTART_ALARM     = restart_only
  23   INTEGER, PARAMETER :: BOUNDARY_ALARM    = boundary_only
  24
  25   INTEGER, PARAMETER :: INPUTOUT_ALARM              = 2*(MAX_HISTORY)+3       ! for outputing input (e.g. for 3dvar)
  26   INTEGER, PARAMETER :: ALARM_SUBTIME               = 2*(MAX_HISTORY)+4
  27   INTEGER, PARAMETER :: COMPUTE_VORTEX_CENTER_ALARM = 2*(MAX_HISTORY)+5
  28
  29   INTEGER, PARAMETER :: MAX_WRF_ALARMS    = COMPUTE_VORTEX_CENTER_ALARM  ! WARNING:  MAX_WRF_ALARMS must be
  30                                                                          ! large enough to include all of
  31                                                                          ! the alarms declared above.
  32
  33   CONTAINS
  34     SUBROUTINE init_module_streams
  35     END SUBROUTINE init_module_streams
  36
  37 END MODULE module_streams