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