module_driver_constants.F

References to this file elsewhere.
1 !WRF:DRIVER_LAYER:CONSTANTS
2 !
3 !  This MODULE contains all of the constants used in the model.  These
4 !  are separated by uage within the code.
5 
6 MODULE module_driver_constants
7 
8    !  0. The following tells the rest of the model what data ordering we are
9    !     using
10 
11    INTEGER , PARAMETER :: DATA_ORDER_XYZ = 1
12    INTEGER , PARAMETER :: DATA_ORDER_YXZ = 2
13    INTEGER , PARAMETER :: DATA_ORDER_ZXY = 3
14    INTEGER , PARAMETER :: DATA_ORDER_ZYX = 4
15    INTEGER , PARAMETER :: DATA_ORDER_XZY = 5
16    INTEGER , PARAMETER :: DATA_ORDER_YZX = 6
17    INTEGER , PARAMETER :: DATA_ORDER_XY = DATA_ORDER_XYZ
18    INTEGER , PARAMETER :: DATA_ORDER_YX = DATA_ORDER_YXZ
19 
20 
21 #include <model_data_order.inc>
22 
23    !  1. Following are constants for use in defining maximal values for array
24    !     definitions.  
25    !
26 
27    !  The maximum number of levels in the model is how deeply the domains may
28    !  be nested.
29 
30    INTEGER , PARAMETER :: max_levels      =  20
31 
32    !  The maximum number of nests that can depend on a single parent and other way round
33 
34    INTEGER , PARAMETER :: max_nests        =  20
35 
36    !  The maximum number of parents that a nest can have (simplified assumption -> one only)
37 
38    INTEGER , PARAMETER :: max_parents      =  1
39 
40    !  The maximum number of domains is how many grids the model will be running.
41 
42    INTEGER , PARAMETER :: max_domains     =   ( MAX_DOMAINS_F - 1 ) / 2 + 1
43 
44    !  The maximum number of nest move specifications allowed in a namelist
45 
46    INTEGER , PARAMETER :: max_moves       =   50
47 
48    !  The maximum number of eta levels
49 
50    INTEGER , PARAMETER :: max_eta         =   501
51 
52    !  2. Following related to driver leve data structures for DM_PARALLEL communications
53 
54 #ifdef DM_PARALLEL
55    INTEGER , PARAMETER :: max_comms       =   1024
56 #else
57    INTEGER , PARAMETER :: max_comms       =   1
58 #endif
59 
60    !  3. Following is information related to the file I/O.
61 
62    !  These are the bounds of the available FORTRAN logical unit numbers for the file I/O.
63    !  Only logical unti numbers within these bounds will be chosen for I/O unit numbers.
64 
65    INTEGER , PARAMETER :: min_file_unit = 10
66    INTEGER , PARAMETER :: max_file_unit = 99
67  CONTAINS
68    SUBROUTINE init_module_driver_constants
69    END SUBROUTINE init_module_driver_constants
70  END MODULE module_driver_constants