source: lmdz_wrf/WRFV3/frame/module_streams.F @ 1

Last change on this file since 1 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 1.6 KB
Line 
1!WRF:DRIVER_LAYER:IO_STREAMS
2MODULE 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
37END MODULE module_streams
Note: See TracBrowser for help on using the repository browser.