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 |
---|