1 | module paramax
2 |
3 |
4 | !####################################################################
5 | ! Parametres Communs aux Trois Modules
6 | !####################################################################
7 |
8 | ! Nombre de cellules maximale !
9 | INTEGER , PARAMETER :: nmax=10000000
10 | INTEGER , PARAMETER :: nmin=10
11 | ! Nombre de directions discrees maximales !
12 | INTEGER , PARAMETER :: nquadmax=100
13 | INTEGER , PARAMETER :: nfacemax=10
14 | INTEGER , PARAMETER :: nnodemax=10
15 | INTEGER , PARAMETER :: itermax=1000
16 | INTEGER , PARAMETER :: n_SNBmax=367
17 | INTEGER , PARAMETER :: n_gaz=3
18 | INTEGER , PARAMETER :: nkabs=5 ! Nb d points par bnds etroi
19 | INTEGER , PARAMETER :: n_mx=50
20 | REAL(8) , PARAMETER :: x_min=0.0
21 | REAL(8) , PARAMETER :: x_max=1.0
22 |
23 | INTEGER , PARAMETER :: Narrangx=10
24 | INTEGER , PARAMETER :: Narrangy=10
25 | INTEGER , PARAMETER :: Narrangz=10
26 |
27 |
28 | !####################################################################
29 | ! Parametres Texte Pour la flexibilisation
30 | !####################################################################
31 |
32 | CHARACTER (len=6), PARAMETER :: styledata='HOMO2'
33 | CHARACTER (len=3), PARAMETER :: homosyst='NO'
34 | CHARACTER (len=6), PARAMETER :: gambit='GAMBIT'
35 | CHARACTER (len=4), PARAMETER :: avbp='AVBP'
36 | CHARACTER (len=5), PARAMETER :: SNDOM='SNDOM'
37 | CHARACTER (len=5), PARAMETER :: TNDOM='TNDOM'
38 | CHARACTER (len=3), PARAMETER :: FVM='FVM'
39 | CHARACTER (len=3), PARAMETER :: STATUS1='NEW'
40 | CHARACTER (len=3), PARAMETER :: STATUS2='OLD'
41 | CHARACTER (len=5), PARAMETER :: EXPON='EXPO'
42 | CHARACTER (len=4), PARAMETER :: DMFS='DMFS'
43 | CHARACTER (len=4), PARAMETER :: SMFS='STEP'
44 | CHARACTER (len=10), PARAMETER :: COOR='.coor'
45 | CHARACTER (len=10), PARAMETER :: CONN='.conn'
46 | CHARACTER (len=13), PARAMETER :: EXBO='.exBound'
47 | CHARACTER (len=13), PARAMETER :: SOLU='.solu'
48 | CHARACTER (len=13), PARAMETER :: GMBT='.msh'
49 |
50 | !####################################################################
51 | ! Parametres - CONSTANTES
52 | !####################################################################
53 |
54 | REAL(8) , PARAMETER :: sigma = 5.67051E-08 ! W/(m^2.K^4) !
55 | REAL(8) , PARAMETER :: pi = 3.141592654
56 | REAL(8) , PARAMETER :: PASCAL=9.8692E-6 !(Atm)
57 |
58 | !####################################################################
59 | ! Paramtres pour generer les profils analytiques ds ADAPDATA
60 | !####################################################################
61 | !
62 | ! epsilon Wall emissivity (Option : HOMO)
63 | ! kabs Gray gas Coeff. (Option : HOMO, GRAY)
64 | ! kscat Gray gas Coeff. (Option : HOMO, GRAY)
65 | ! T_gas Arbitry Gas temperature (Option : HOMO)
66 | ! T_wall Arbitry Wall temperature (Option : HOMO)
67 | ! Xh2otemp For Non-Gray gas Coeff. (Option : HOMO, NONGRAY)
68 | ! Xco2temp For Non-Gray gas Coeff. (Option : HOMO, NONGRAY)
69 | ! Xcotemp For Non-Gray gas Coeff. (Option : HOMO, NONGRAY)
70 | ! Xo2temp For Non-Gray gas Coeff. (Option : HOMO, NONGRAY)
71 | ! Xn2temp For Non-Gray gas Coeff. (Option : HOMO, NONGRAY)
72 | ! XSOOT For Non-Gray gas Coeff. (Option : HOMO, NONGRAY)
73 | ! PRESSURE For Non-Gray gas Coeff. (Option : HOMO, NONGRAY)
74 | ! RHOtemp For Non-Gray gas Coeff. (Option : INHOMO, NONGRAY)
75 | !
76 | !####################################################################
77 |
78 | REAL(8) , PARAMETER :: epsilon=1.0
79 | REAL(8) , PARAMETER :: kabs=0.1
80 | REAL(8) , PARAMETER :: kscat=0.0
81 |
82 | REAL(8) , PARAMETER :: T_gas=100.
83 |
84 | REAL(8) , PARAMETER :: T_wall=0.
85 |
86 | REAL(8) , PARAMETER :: Xh2otemp=0.2
87 | REAL(8) , PARAMETER :: Xco2temp=0.0
88 | REAL(8) , PARAMETER :: Xcotemp=0.0
89 | REAL(8) , PARAMETER :: Xo2temp=0.0
90 | REAL(8) , PARAMETER :: Xn2temp=0.8
91 | REAL(8) , PARAMETER :: XSOOT=1.0E-7
92 |
93 | REAL(8) , PARAMETER :: PRESSURE=1.013253353869E+5
94 | REAL(8) , PARAMETER :: RHOtemp=1.0
95 |
96 | !######################################################################
97 | ! Paramtres pour generer des C.L. inhomognes
98 | ! dans ADAPDATA (Option:INHOMO)
99 | !######################################################################
100 |
101 | REAL(8) , PARAMETER :: Tw1=300.0 ! Wall 1 temperature
102 | REAL(8) , PARAMETER :: Tw2=300.0 ! Wall 2 temperature
103 | REAL(8) , PARAMETER :: Tw3=300.0 ! Wall 3 temperature
104 | REAL(8) , PARAMETER :: Tw4=300.0 ! Wall 4 temperature
105 | REAL(8) , PARAMETER :: Tw5=300.0 ! Wall 5 temperature
106 | REAL(8) , PARAMETER :: Tw6=300.0 ! Wall 6 temperature
107 | REAL(8) , PARAMETER :: epsilon1 = 1.0 ! Wall 1 emissivity
108 | REAL(8) , PARAMETER :: epsilon2 = 1.0 ! Wall 2 emissivity
109 | REAL(8) , PARAMETER :: epsilon3 = 1.0 ! Wall 3 emissivity
110 | REAL(8) , PARAMETER :: epsilon4 = 1.0 ! Wall 4 emissivity
111 | REAL(8) , PARAMETER :: epsilon5 = 1.0 ! Wall 5 emissivity
112 | REAL(8) , PARAMETER :: epsilon6 = 1.0 ! Wall 6 emissivity
113 |
114 | !###########################################################################
115 |
116 | END module paramax
117 |