1 | include(dom.inc)
2 |
3 | ! ----------!
4 | ! Constants !
5 | ! ----------!
6 |
7 | DOM_REAL, PARAMETER :: sigma = 5.667E-08 ! [WK4/m2]
8 | DOM_REAL, PARAMETER :: pi = 3.141592654
9 | DOM_REAL, PARAMETER :: PASCAL = 9.8692E-6 ! [Atm]
10 | DOM_REAL, PARAMETER :: c0 = 2.9979E8 ! [m/s]
11 | DOM_REAL, PARAMETER :: Boltzmann= 1.3805E-23 ! [J/K]
12 | DOM_REAL, PARAMETER :: Planckcst= 6.626E-34 ! [J.s]
13 |
14 | ! Memory needed for 10000 cells
15 | DOM_REAL, PARAMETER :: Memtot = 48 ! [Mb]
16 |
17 | ! -------------------!
18 | ! Species properties !
19 | ! -------------------!
20 | DOM_REAL, PARAMETER :: W_H2O = 0.01801530
21 | DOM_REAL, PARAMETER :: W_CO2 = 0.04400980
22 | DOM_REAL, PARAMETER :: W_CO = 0.02801400
23 | DOM_REAL, PARAMETER :: W_O2 = 0.03199880
24 | DOM_REAL, PARAMETER :: W_N2 = 0.02801340
25 | DOM_REAL, PARAMETER :: W_C3H8 = 0.04409721
26 | DOM_REAL, PARAMETER :: W_CH4 = 0.01604230
27 |
28 | ! --------------!
29 | ! Element types !
30 | ! --------------!
31 | DOM_INT, PARAMETER :: EL_TRI = 1
32 | DOM_INT, PARAMETER :: EL_QUAD = 2
33 | DOM_INT, PARAMETER :: EL_TETRA = 3
34 | DOM_INT, PARAMETER :: EL_PYRAM = 4
35 | DOM_INT, PARAMETER :: EL_PRISM = 5
36 | DOM_INT, PARAMETER :: EL_HEXA = 6
37 |
38 | ! -------------------------!
39 | ! Element types for Gambit !
40 | ! -------------------------!
41 | DOM_INT, PARAMETER :: GB_QUAD = 2
42 | DOM_INT, PARAMETER :: GB_TRI = 3
43 | DOM_INT, PARAMETER :: GB_HEXA = 4
44 | DOM_INT, PARAMETER :: GB_PRISM = 5
45 | DOM_INT, PARAMETER :: GB_TETRA = 6
46 | DOM_INT, PARAMETER :: GB_PYRAM = 7
47 |
48 | ! -----------!
49 | ! MAX values !
50 | ! -----------!
51 |
52 | DOM_INT, PARAMETER :: MAX_NFACES_CELL = 8
53 | DOM_INT, PARAMETER :: MAX_NNODES_CELL = 10
54 |
55 | ! ---------------------------------!
56 | ! Quadrature discretization method !
57 | ! ---------------------------------!
58 |
59 | CHARACTER*5, PARAMETER :: SNDOM='SNDOM'
60 | CHARACTER*5, PARAMETER :: TNDOM='TNDOM'
61 | CHARACTER*3, PARAMETER :: FVM ='FVM'
62 |
63 | CHARACTER*4 , PARAMETER :: EXPON='EXPO'
64 | CHARACTER*4 , PARAMETER :: DMFS ='DMFS'
65 | CHARACTER*4 , PARAMETER :: SMFS ='STEP'
66 |
67 | ! ------------!
68 | ! IN/OUT file !
69 | ! ------------!
70 | DOM_INT, PARAMETER :: FILE_NODES = 100
71 | DOM_INT, PARAMETER :: FILE_CELLS = 101
72 | DOM_INT, PARAMETER :: FILE_FACES = 102
73 | DOM_INT, PARAMETER :: FILE_C2C = 103
74 | DOM_INT, PARAMETER :: FILE_CCELL = 104
75 | DOM_INT, PARAMETER :: FILE_CFACE = 105
76 | DOM_INT, PARAMETER :: FILE_CLNOD = 106
77 | DOM_INT, PARAMETER :: FILE_NORM = 107
78 | DOM_INT, PARAMETER :: FILE_VOLA = 108
79 | DOM_INT, PARAMETER :: FILE_EMIS = 109
80 | DOM_INT, PARAMETER :: FILE_KSCA = 110
81 | DOM_INT, PARAMETER :: FILE_EXTRN = 111
82 | DOM_INT, PARAMETER :: FILE_QUADR = 112
83 | DOM_INT, PARAMETER :: FILE_CLPRO = 113
84 | DOM_INT, PARAMETER :: FILE_CLFAC = 114
85 | DOM_INT, PARAMETER :: FILE_PROG = 115
86 | DOM_INT, PARAMETER :: FILE_SNBWN = 116
87 | DOM_INT, PARAMETER :: FILE_LSPEC = 117
88 | DOM_INT, PARAMETER :: FILE_SSPEC = 118
89 | DOM_INT, PARAMETER :: FILE_G = 119
90 | DOM_INT, PARAMETER :: FILE_Sr = 120
91 | DOM_INT, PARAMETER :: FILE_H = 121
92 | DOM_INT, PARAMETER :: FILE_Qw = 122
93 | DOM_INT, PARAMETER :: FILE_Qr = 123
94 | DOM_INT, PARAMETER :: FILE_C2FAC = 124
95 | DOM_INT, PARAMETER :: FILE_FAC = 125
96 | DOM_INT, PARAMETER :: FILE_T = 126
97 | DOM_INT, PARAMETER :: FILE_E = 127
98 | DOM_INT, PARAMETER :: FILE_GDATA = 128
99 | DOM_INT, PARAMETER :: FILE_PROP = 129
100 | DOM_INT, PARAMETER :: FILE_CHCS = 130
101 | DOM_INT, PARAMETER :: FILE_Tf = 131
102 | DOM_INT, PARAMETER :: FILE_EMIS2 = 132
103 | DOM_INT, PARAMETER :: FILE_G2 = 133
104 | DOM_INT, PARAMETER :: FILE_Sr2 = 134
105 | DOM_INT, PARAMETER :: FILE_H2 = 135
106 | DOM_INT, PARAMETER :: FILE_Qw2 = 136
107 | DOM_INT, PARAMETER :: FILE_Qr2 = 137
108 | DOM_INT, PARAMETER :: FILE_GDAT2 = 138
109 | DOM_INT, PARAMETER :: FILE_MSH = 139
110 | DOM_INT, PARAMETER :: FILE_KEXT = 140
111 | DOM_INT, PARAMETER :: FILE_Kp = 141
112 | DOM_INT, PARAMETER :: FILE_Kp2 = 142
113 | DOM_INT, PARAMETER :: FILE_Wsgg = 143
114 | DOM_INT, PARAMETER :: FILE_CLDAT = 144
115 | DOM_INT, PARAMETER :: FILE_FC = 145
116 | DOM_INT, PARAMETER :: FILE_TRACK = 146
117 | DOM_INT, PARAMETER :: FILE_QRP = 147
118 | DOM_INT, PARAMETER :: FILE_TAB = 148
119 |
120 | ! ---------------!
121 | ! Gaz identifier !
122 | ! ---------------!
123 | DOM_INT, PARAMETER :: GAZ_CO = 1
124 | DOM_INT, PARAMETER :: GAZ_C = 2
125 | DOM_INT, PARAMETER :: GAZ_H = 3