File: RELATIVE:/../../../mfix.git/model/param1_mod.f

1           MODULE param1
2     
3     ! Number of single precision .SPx files
4           INTEGER, PARAMETER :: N_SPX = 11
5     
6     ! Maximum number of cell classes
7           INTEGER, PARAMETER :: MAX_CLASS = 1000000
8     ! Maximum number of corner cells
9           INTEGER, PARAMETER :: MAX_NCORN = 4000
10     
11     ! Dimension for the upper triangle of an MxM matrix
12           INTEGER :: DIMENSION_LM
13     ! Total number of species
14           INTEGER :: DIMENSION_N_all
15     
16     ! Parameters for testing if user input was specifed.
17           DOUBLE PRECISION, PARAMETER :: UNDEFINED = 9.87654321D31
18           INTEGER, PARAMETER :: UNDEFINED_I = 987654321
19           CHARACTER, PARAMETER :: UNDEFINED_C = ' '
20     
21     ! Cutoffs for large and small numbers
22           DOUBLE PRECISION, PARAMETER :: LARGE_NUMBER = 1.0D32
23           DOUBLE PRECISION, PARAMETER :: SMALL_NUMBER = 1.0D-15
24     
25     ! ZERO, HALF, ONE
26           DOUBLE PRECISION, PARAMETER :: ZERO = 0.0d0
27           DOUBLE PRECISION, PARAMETER :: HALF = 0.5d0
28           DOUBLE PRECISION, PARAMETER :: ONE  = 1.0d0
29     
30           END MODULE param1
31