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 |