Rocstar  1.0
Rocstar multiphysics simulation application
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
ModParameters.F90
Go to the documentation of this file.
1 ! *********************************************************************
2 ! * Rocstar Simulation Suite *
3 ! * Copyright@2015, Illinois Rocstar LLC. All rights reserved. *
4 ! * *
5 ! * Illinois Rocstar LLC *
6 ! * Champaign, IL *
7 ! * www.illinoisrocstar.com *
8 ! * sales@illinoisrocstar.com *
9 ! * *
10 ! * License: See LICENSE file in top level of distribution package or *
11 ! * http://opensource.org/licenses/NCSA *
12 ! *********************************************************************
13 ! *********************************************************************
14 ! * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, *
15 ! * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES *
16 ! * OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND *
17 ! * NONINFRINGEMENT. IN NO EVENT SHALL THE CONTRIBUTORS OR *
18 ! * COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER *
19 ! * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, *
20 ! * Arising FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE *
21 ! * USE OR OTHER DEALINGS WITH THE SOFTWARE. *
22 ! *********************************************************************
23 ! ******************************************************************************
24 !
25 ! Purpose: define various parameters
26 !
27 ! Description: none
28 !
29 ! Notes:
30 ! 1. DO NOT CHANGE any of the parameters values without good reason and
31 ! really knowing what you are doing...
32 ! 2. Error codes are defined in the module ModError.F90
33 !
34 ! ******************************************************************************
35 !
36 ! $Id: ModParameters.F90,v 1.165 2010/02/18 21:47:40 juzhang Exp $
37 !
38 ! Copyright: (c) 2001-2006 by the University of Illinois
39 !
40 ! ******************************************************************************
41 
42 MODULE modparameters
43 
44  IMPLICIT NONE
45 
46 ! ******************************************************************************
47 ! Geometry
48 ! ******************************************************************************
49 
50  INTEGER, PARAMETER :: XCOORD = 1, &
51  YCOORD = 2, &
52  ZCOORD = 3, &
53  XYZMAG = 4
54 
55  INTEGER, PARAMETER :: ICOORD = 1, &
56  JCOORD = 2, &
57  KCOORD = 3
58 
59  INTEGER, PARAMETER :: REGION_SHAPE_NORMAL = 0, &
60  REGION_SHAPE_FUNKY = 1
61 
62 ! ******************************************************************************
63 ! Data structure
64 ! ******************************************************************************
65 
66  INTEGER, PARAMETER :: CELL_TYPE_EXT = -99, & ! Exterior cell (parallel)
67  CELL_TYPE_BND = 0, & ! Boundary cell
68  CELL_TYPE_TET = 1, & ! Tetrahedron
69  CELL_TYPE_HEX = 2, & ! Hexahedron
70  CELL_TYPE_PRI = 3, & ! Prism
71  CELL_TYPE_PYR = 4 ! Pyramid
72 
73  INTEGER, PARAMETER :: FACE_TYPE_TRI = 1, &
74  FACE_TYPE_QUAD = 2
75 
76  INTEGER, PARAMETER :: FACE_TYPE_NEW = 1, &
77  FACE_TYPE_OLD = 2
78 
79  INTEGER, PARAMETER :: EDGE_TYPE_NEW = 1, &
80  EDGE_TYPE_OLD = 2
81 
82  INTEGER, PARAMETER :: FACE_SPLIT_13 = 1, &
83  FACE_SPLIT_24 = 2, &
84  FACE_SPLIT_YES = 1, &
85  FACE_SPLIT_NO = 2
86 
87  INTEGER, PARAMETER :: FACE_NONE = 0, & ! Must be zero or less
88  OPP_FACE_NONE = -1 ! Must be negative
89 
90  INTEGER, PARAMETER :: VERT_NONE = 0, & ! Must be zero because of Charm
91  VERT_KIND_ACTUAL = 1, &
92  VERT_KIND_VIRTUAL = 2, &
93  VERT_KIND_A = 1, &
94  VERT_KIND_V = 2, &
95  VERT_KIND_AV = 3
96 
97  INTEGER, PARAMETER :: BVERT_CLASS_OUTSIDER = 0, & ! Must be zero or less
98  BVERT_CLASS_INSIDER = 1 ! Must be positive
99 
100  INTEGER, PARAMETER :: CELL_KIND_EXT = -99, & ! Exterior cell (parallel)
101  CELL_KIND_BND = 0, &
102  CELL_KIND_ACTUAL = 1, &
103  CELL_KIND_VIRTUAL = 3
104 
105  INTEGER, PARAMETER :: FACE_KIND_AA = 1, & ! Actual-Actual
106  FACE_KIND_AV = 2, & ! Actual-Virtual
107  FACE_KIND_VV = 3, & ! Virtual-Virtual
108  FACE_KIND_VB = 4, & ! Virtual-Boundary
109  FACE_KIND_VX = 5, & ! Virtual-Exterior
110  FACE_KIND_AB = 6 ! Actual-Boundary
111 
112  INTEGER, PARAMETER :: EDGE_KIND_AA = 1, & ! Actual-Actual
113  EDGE_KIND_AV = 2, & ! Actual-Virtual
114  EDGE_KIND_VV = 3 ! Virtual-Virtual
115 
116  INTEGER, PARAMETER :: DIFF_LOC_CELL = 1, &
117  DIFF_LOC_FACE = 2, &
118  DIFF_LOC_VERT = 3
119 
120  INTEGER, PARAMETER :: DIFF_DEGREE_GRAD = 1, &
121  DIFF_DEGREE_HESS = 2
122 
123  INTEGER, PARAMETER :: GRAD_TYPE_UNCONSTRAINED = 0, &
124  GRAD_TYPE_CONSTRAINED = 1
125 
126  INTEGER, PARAMETER :: INTERP_LOC_CELL = 1, &
127  INTERP_LOC_FACE = 2, &
128  INTERP_LOC_VERT = 3
129 
130  INTEGER, PARAMETER :: C2F_INIT = -1, & ! Must be negative
131  C2V_INIT = 0, & ! Must be zero or less
132  F2C_INIT = 0
133 
134  INTEGER, PARAMETER :: C2FN_INIT = 0, & ! Must be zero or less
135  C2CS_INIT = 0, & ! Must be zero or less
136  F2CS_INIT = 0, & ! Must be zero or less
137  V2CS_INIT = 0 ! Must be zero or less
138 
139  INTEGER, PARAMETER :: V2C_BEG = 1, &
140  V2C_END = 2
141 
142  INTEGER, PARAMETER :: X2CS_LAYER_BEG = 1, &
143  X2CS_LAYER_END = 2
144 
145  INTEGER, PARAMETER :: DERIV_DEGREE_0 = 0, &
146  DERIV_DEGREE_1 = 1
147 
148  INTEGER, PARAMETER :: INT_LIM_LOW = 1, &
149  INT_LIM_UPP = 2
150 
151  INTEGER, PARAMETER :: REGION_INDEX_OFFSET = 100
152 
153 #ifdef RFLO
154  INTEGER, PARAMETER :: DEGENERAT_NONE = 0, & ! degenerative
155  DEGENERAT_EDGE_IN_PATCH = 1, & ! edges/corners
156  DEGENERAT_CORN_IN_EDGE = 1, &
157  DEGENERAT_CORN_IN_PATCH = 2, &
158  DEGENERAT_DETACH = -1
159 
160  INTEGER, PARAMETER :: EDGE_INTERACT_FULL = 0, & ! all edgeCells interior
161  EDGE_INTERACT_PART = 1
162 #endif
163 
164 ! ******************************************************************************
165 ! Coordinate moments
166 ! ******************************************************************************
167 
168  INTEGER, PARAMETER :: XYZ_MOM_11 = 1, &
169  XYZ_MOM_12 = 2, &
170  XYZ_MOM_22 = 3, &
171  XYZ_MOM_13 = 4, &
172  XYZ_MOM_23 = 5, &
173  XYZ_MOM_33 = 6, &
174  XYZ_MOM_14 = 7, &
175  XYZ_MOM_24 = 8, &
176  XYZ_MOM_34 = 9, &
177  XYZ_MOM_44 = 10
178 
179 ! ******************************************************************************
180 ! Mixture
181 ! ******************************************************************************
182 
183  INTEGER, PARAMETER :: CV_MIXT_DENS = 1, & ! density (rho)
184  CV_MIXT_XMOM = 2, & ! rho * u
185  CV_MIXT_YMOM = 3, & ! rho * v
186  CV_MIXT_ZMOM = 4, & ! rho * w
187  CV_MIXT_ENER = 5, & ! rho * E
188  CV_MIXT_NEQS = 5 ! total no. of equations
189 
190 #ifdef RFLU
191  INTEGER, PARAMETER :: CV_MIXT_XVEL = 2, & ! u
192  CV_MIXT_YVEL = 3, & ! v
193  CV_MIXT_ZVEL = 4, & ! w
194  CV_MIXT_PRES = 5, & ! p
195  CV_MIXT_TEMP = 5 ! T
196 
197  INTEGER, PARAMETER :: CV_MIXT_STATE_CONS = 1, &
198  CV_MIXT_STATE_PRIM = 2, &
199  CV_MIXT_STATE_DUVWP = 3, &
200  CV_MIXT_STATE_DUVWT = 4
201 
202  INTEGER, PARAMETER :: VAR_INFO_POS = 1, &
203  VAR_INFO_POSNEG = 2
204 #endif
205 
206 #ifdef RFLO
207  INTEGER, PARAMETER :: DV_MIXT_UVEL = 1, & ! velocity components
208  DV_MIXT_VVEL = 2, &
209  DV_MIXT_WVEL = 3, &
210  DV_MIXT_TEMP = 4, & ! static temperature
211  DV_MIXT_PRES = 5, & ! static pressure
212  DV_MIXT_SOUN = 6 ! speed of sound
213 #endif
214 #ifdef RFLU
215  INTEGER, PARAMETER :: DV_MIXT_PRES = 1, & ! static pressure
216  DV_MIXT_TEMP = 2, & ! static temperature
217  DV_MIXT_SOUN = 3, & ! speed of sound
218  DV_MIXT_NVAR = 3
219 #endif
220 
221  INTEGER, PARAMETER :: TV_MIXT_MUEL = 1, & ! laminar viscosity
222  TV_MIXT_TCOL = 2, & ! laminar thermal conductivity
223  TV_MIXT_MUET = 3, & ! turbulent viscosity
224  TV_MIXT_TCOT = 4 ! turbulent thermal conductivity
225 
226  INTEGER, PARAMETER :: GV_MIXT_CP = 1, & ! heat coeff. at const. pressure
227  GV_MIXT_MOL = 2 ! molecular weight
228 
229 #ifdef RFLU
230  INTEGER, PARAMETER :: PV_MIXT_SCHL = 1, &
231  PV_MIXT_SHAD = 2, &
232  PV_MIXT_INTF = 3, &
233  PV_MIXT_XVOR = 4, &
234  PV_MIXT_YVOR = 5, &
235  PV_MIXT_ZVOR = 6, &
236  PV_MIXT_VCI2 = 7, &
237  PV_MIXT_VCL2 = 8, &
238  PV_MIXT_VCLI = 9, &
239  PV_MIXT_VCLR = 10, &
240  PV_MIXT_GREX = 11, &
241  PV_MIXT_GREY = 12, &
242  PV_MIXT_GREZ = 13, &
243  PV_PLAG_DIA3 = 14, &
244  PV_PLAG_DIA4 = 15, &
245  PV_PLAG_NDNS = 16, &
246  PV_PLAG_XVEL = 17, &
247  PV_PLAG_YVEL = 18, &
248  PV_PLAG_ZVEL = 19, &
249  PV_PLAG_TEMP = 20, &
250  PV_PLAG_MASS = 21, &
251  PV_XXXX_NVAR = 21
252 #endif
253 
254 #ifdef RFLO
255  INTEGER, PARAMETER :: GR_MIXT_UX = 1, & ! Gradients: du/dx
256  GR_MIXT_VX = 2, & ! dv/dx
257  GR_MIXT_WX = 3, & ! dw/dx
258  GR_MIXT_TX = 4, & ! dT/dx
259  GR_MIXT_UY = 5, & ! du/dy
260  GR_MIXT_VY = 6, & ! dv/dy
261  GR_MIXT_WY = 7, & ! dw/dy
262  GR_MIXT_TY = 8, & ! dT/dy
263  GR_MIXT_UZ = 9, & ! du/dz
264  GR_MIXT_VZ = 10, & ! dv/dz
265  GR_MIXT_WZ = 11, & ! dw/dz
266  GR_MIXT_TZ = 12 ! dT/dz
267 #endif
268 #ifdef RFLU
269  INTEGER, PARAMETER :: GRC_MIXT_DENS = 1, & ! dr/dx, dr/dy, or dr/dz
270  GRC_MIXT_XVEL = 2, & ! du/dx, du/dy, or du/dz
271  GRC_MIXT_YVEL = 3, & ! dv/dx, dv/dy, or dv/dz
272  GRC_MIXT_ZVEL = 4, & ! dw/dx, dw/dy, or dw/dz
273  GRC_MIXT_PRES = 5, & ! dP/dx, dP/dy, or dP/dz
274  GRC_MIXT_TEMP = 5 ! dT/dx, dT/dy, or dT/dz
275 
276  INTEGER, PARAMETER :: GRBF_MIXT_DENS = 1, & ! dr/dx, dr/dy, or dr/dz
277  GRBF_MIXT_XVEL = 2, & ! du/dx, du/dy, or du/dz
278  GRBF_MIXT_YVEL = 3, & ! dv/dx, dv/dy, or dv/dz
279  GRBF_MIXT_ZVEL = 4, & ! dw/dx, dw/dy, or dw/dz
280  GRBF_MIXT_PRES = 5, & ! dP/dx, dP/dy, or dP/dz
281  GRBF_MIXT_TEMP = 5 ! dT/dx, dT/dy, or dT/dz
282 
283  INTEGER, PARAMETER :: GRF_MIXT_XVEL = 1, & ! du/dx, du/dy, or du/dz
284  GRF_MIXT_YVEL = 2, & ! dv/dx, dv/dy, or dv/dz
285  GRF_MIXT_ZVEL = 3, & ! dw/dx, dw/dy, or dw/dz
286  GRF_MIXT_TEMP = 4 ! dT/dx, dT/dy, or dT/dz
287 
288  INTEGER, PARAMETER :: BF2BG_BEG = 1, &
289  BF2BG_END = 2
290 #endif
291 
292 ! ******************************************************************************
293 ! Species
294 ! ******************************************************************************
295 
296  INTEGER, PARAMETER :: SPEC_SOURCE_TYPE_NONE = 0, &
297  SPEC_SOURCE_TYPE_CHEM = 1, &
298  SPEC_SOURCE_TYPE_CAVI = 2
299 
300  INTEGER, PARAMETER :: SPEC_METHV_FLUIDVEL = 0, & ! species vel = fluid vel
301  SPEC_METHV_EQEUL = 1 ! Eq Eul method
302 
303  INTEGER, PARAMETER :: SD_XMOM = 1, &
304  SD_YMOM = 2, &
305  SD_ZMOM = 3
306 
307 ! ******************************************************************************
308 ! Grid motion
309 ! ******************************************************************************
310 
311  INTEGER, PARAMETER :: MOVEGRID_BLOCKS = 0, &
312  MOVEGRID_GLOBAL = 1, &
313  MOVEGRID_FRAME = 2, &
314  MOVEGRID_FOMS = 3, &
315  MOVEGRID_ELGLOBAL = 4, &
316  MOVEGRID_ELFRAME = 5, &
317  MOVEGRID_VMS = 6
318 
319  INTEGER, PARAMETER :: PATCH_MOVEMENT_OFF = 0, &
320  PATCH_MOVEMENT_ON = 1
321 
322  INTEGER, PARAMETER :: PATCH_SMOOTHING_OFF = 0, &
323  PATCH_SMOOTHING_ON = 1
324 
325  INTEGER, PARAMETER :: MOVEGRID_TYPE_DISP = 1, &
326  MOVEGRID_TYPE_XYZ = 2, &
327  MOVEGRID_TYPE_GENX = 3
328 
329  INTEGER, PARAMETER :: MOVEGRID_CONTEXT_MOVESMOOTH = 1, &
330  MOVEGRID_CONTEXT_ONLYSMOOTH = 2
331 
332  INTEGER, PARAMETER :: MOVEGRID_BCTYPE_NONE = -1, &
333  MOVEGRID_BCTYPE_NEUMANN = 0, &
334  MOVEGRID_BCTYPE_DIRICHX = XCOORD, &
335  MOVEGRID_BCTYPE_DIRICHY = YCOORD, &
336  MOVEGRID_BCTYPE_DIRICHZ = ZCOORD
337 
338  INTEGER, PARAMETER :: MOVEPATCH_DIR_NONE = 0, &
339  MOVEPATCH_DIR_X = 1, &
340  MOVEPATCH_DIR_Y = 2, &
341  MOVEPATCH_DIR_Z = 4, &
342  MOVEPATCH_DIR_XY = 3, &
343  MOVEPATCH_DIR_XZ = 5, &
344  MOVEPATCH_DIR_YZ = 6, &
345  MOVEPATCH_DIR_XYZ = 7
346 
347 #ifdef STATS
348 ! ******************************************************************************
349 ! Statistics
350 ! ******************************************************************************
351 
352  INTEGER, PARAMETER :: STAT_NONE = 0, & ! statistics variable code
353  STAT_CV = 1, &
354  STAT_DV = 2, &
355  STAT_TV = 3, &
356  STAT_GV = 4, &
357  STAT_SV = 5, &
358  STAT_ST = 6, &
359  STAT_PLAGEV = 7, &
360  STAT_MAXTYPE = 9
361 
362  INTEGER, PARAMETER :: NSTATS_TEC_MIXT = 9, & ! mixture nStats to tecplot
363  NSTATS_TEC_TURB = 2 ! turb. nStats to tecplot
364 
365 #endif
366 
367  INTEGER, PARAMETER :: FTYPE_MIXT = 1, & ! module labels
368  FTYPE_TURB = 2, &
369  FTYPE_PLAG = 3, &
370  FTYPE_PEUL = 4, &
371  FTYPE_SPEC = 5, &
372  FTYPE_RADI = 6, &
373  FTYPE_MAX = 6 ! highest module label
374 
375 ! ******************************************************************************
376 ! Boundary conditions
377 ! ******************************************************************************
378 
379  INTEGER, PARAMETER :: BC_NONREFLECTING = 0, &
380  BC_REFLECTING = 1
381 
382  INTEGER, PARAMETER :: BC_KIND_SIMPLE = 0, &
383  BC_KIND_NSCBC = 1, &
384  BC_KIND_MIN = 0, &
385  BC_KIND_MAX = 1
386 
387  INTEGER, PARAMETER :: BC_RANGE = 9, &
388  BC_INFLOW = 10, &
389  BC_INFLOW_TOTANG = 10, &
390  BC_INFLOW_VELTEMP = 11, &
391  BC_INFLOW_VELPRESS = 12, &
392  BC_OUTFLOW = 20, &
393  BC_OUTFLOW_FREE = 21, &
394  BC_OUTFLOW_FIXED = 22, &
395  BC_OUTFLOW_XSLIDE = 23, &
396  BC_OUTFLOW_YSLIDE = 24, &
397  BC_OUTFLOW_ZSLIDE = 25, &
398  BC_OUTFLOW_XYSLIDE = 26, &
399  BC_OUTFLOW_XZSLIDE = 27, &
400  BC_OUTFLOW_YZSLIDE = 28, &
401  BC_REGIONCONF = 30, &
402  BC_REGIONINT = 40, &
403  BC_REGNONCONF = 50, &
404  BC_SLIPWALL = 60, &
405  BC_SLIPWALL_FREE = 61, &
406  BC_SLIPWALL_FIXED = 62, &
407  BC_SLIPWALL_XSLIDE = 63, &
408  BC_SLIPWALL_YSLIDE = 64, &
409  BC_SLIPWALL_ZSLIDE = 65, &
410  BC_SLIPWALL_XYSLIDE = 66, &
411  BC_SLIPWALL_XZSLIDE = 67, &
412  BC_SLIPWALL_YZSLIDE = 68, &
413  BC_NOSLIPWALL = 70, &
414  BC_NOSLIPWALL_HFLUX = 70, &
415  BC_NOSLIPWALL_TEMP = 71, &
416  BC_NOSLIPWALL_FREE = 71, &
417  BC_NOSLIPWALL_FIXED = 72, &
418  BC_NOSLIPWALL_XSLIDE = 73, &
419  BC_NOSLIPWALL_YSLIDE = 74, &
420  BC_NOSLIPWALL_ZSLIDE = 75, &
421  BC_NOSLIPWALL_XYSLIDE= 76, &
422  BC_NOSLIPWALL_XZSLIDE= 77, &
423  BC_NOSLIPWALL_YZSLIDE= 78, &
424  BC_FARFIELD = 80, &
425  BC_INJECTION = 90, &
426  BC_INJECTION_MRATE = 90, &
427  BC_INJECTION_APN = 91, &
428  BC_INJECTION_HT = 92, &
429  BC_SYMMETRY = 100, &
430  BC_SYMMETRY_FREE = 101, &
431  BC_SYMMETRY_FIXED = 102, &
432  BC_SYMMETRY_XSLIDE = 103, &
433  BC_SYMMETRY_YSLIDE = 104, &
434  BC_SYMMETRY_ZSLIDE = 105, &
435  BC_SYMMETRY_XYSLIDE = 106, &
436  BC_SYMMETRY_XZSLIDE = 107, &
437  BC_SYMMETRY_YZSLIDE = 108, &
438  BC_PERIODIC = 110, &
439  BC_TRA_PERI = 110, &
440  BC_ROT_PERI = 120, &
441  BC_VIRTUAL = 130, &
442  BC_CODE_MIN = 10, & ! min. and max. BC number
443  BC_CODE_MAX = 129, &
444  BC_SIMPLE_COPY = 999, &
445  BC_INTERNAL = 0, & ! source of BC values
446  BC_EXTERNAL = 1
447 
448  INTEGER, PARAMETER :: BC_NOT_BURNING = 0, &
449  BC_BURNING = 1, &
450  BC_NOT_COUPLED = 2
451 
452  INTEGER, PARAMETER :: BCDAT_INFLOW_PTOT = 1, &
453  BCDAT_INFLOW_TTOT = 2, &
454  BCDAT_INFLOW_BETAH = 3, &
455  BCDAT_INFLOW_BETAV = 4, &
456  BCDAT_INFLOW_MACH = 5, &
457  BCDAT_INFLOW_U = 1, &
458  BCDAT_INFLOW_V = 2, &
459  BCDAT_INFLOW_W = 3, &
460  BCDAT_INFLOW_T = 4, &
461  BCDAT_INFLOW_P = 5, &
462  BCDAT_INFLOW_NELM = 5, &
463  BCSWI_INFLOW_TYPE = 1, &
464  BCSWI_INFLOW_FIXED = 2, &
465  BCSWI_INFLOW_MODEL = 3
466 
467  INTEGER, PARAMETER :: BCDAT_OUTFLOW_PRESS = 1, &
468  BCDAT_OUTFLOW_NRCOEF = 2, &
469  BCSWI_OUTFLOW_TYPE = 1, &
470  BCSWI_OUTFLOW_MODEL = 2
471 
472  INTEGER, PARAMETER :: BCSWI_SLIPW_EXTRAP = 1
473 
474  INTEGER, PARAMETER :: BCDAT_NOSLIP_Q = 1, &
475  BCDAT_NOSLIP_T = 1, &
476  BCDAT_NOSLIP_TWALL = 1, &
477  BCSWI_NOSLIP_ADIABAT = 1
478 
479  INTEGER, PARAMETER :: BCDAT_FARF_MACH = 1, &
480  BCDAT_FARF_ATTACK = 2, &
481  BCDAT_FARF_SLIP = 3, &
482  BCDAT_FARF_PRESS = 4, &
483  BCDAT_FARF_TEMP = 5, &
484  BCSWI_FARF_CORR = 1
485 
486  INTEGER, PARAMETER :: BCDAT_INJECT_MFRATE = 1, &
487  BCDAT_INJECT_TEMP = 2, &
488  BCDAT_INJECT_RFVFU = 3, &
489  BCDAT_INJECT_RFVFV = 4, &
490  BCDAT_INJECT_RFVFW = 5, &
491  BCDAT_INJECT_SDENS = 6, &
492  BCDAT_INJECT_ACOEFF = 7, &
493  BCDAT_INJECT_NPOWER = 8, &
494  BCSWI_INJECT_EXTRAP = 1
495 
496  INTEGER, PARAMETER :: BCDAT_CONSTANT = 0, & ! Values do matter!!!
497  BCDAT_DISTRIB = 1 ! Used to access vals(:,i) !!!
498 
499  INTEGER, PARAMETER :: BCOPT_ADIABAT = 1, &
500  BCOPT_NON_ADIABAT = 0, &
501  BCOPT_SUBSONIC = 1, &
502  BCOPT_SUPERSONIC = 0, &
503  BCOPT_MIXED = 2, &
504  BCOPT_FIXED_NO = 0, &
505  BCOPT_FIXED_YES = 1, &
506  BCOPT_CORR_NO = 0, &
507  BCOPT_CORR_YES = 1, &
508  BCOPT_DEFAULT = 0, &
509  BCOPT_MODEL1 = 1, &
510  BCOPT_STEADY = 0, &
511  BCOPT_UNSTEADY = 1
512 
513  INTEGER, PARAMETER :: EXTRAPOL_CONST = 0, & ! extrapolation to dummy cells
514  EXTRAPOL_LINEAR = 1
515 
516  INTEGER, PARAMETER :: NIJK_INFLOW_INIT = 10000 ! initial intg in recycturb
517 
518 ! ******************************************************************************
519 ! Time-dependent boundary conditions
520 ! ******************************************************************************
521 
522 ! ==============================================================================
523 ! Aliases for choices
524 ! ==============================================================================
525 
526  INTEGER, PARAMETER :: TBC_NONE = 0, &
527  TBC_SINUSOIDAL = 1, &
528  TBC_STOCHASTIC = 2, &
529  TBC_WHITENOISE = 3, &
530  TBC_PIECEWISE = 4
531 
532 ! ==============================================================================
533 ! Aliases for indices: params and switches
534 ! ==============================================================================
535 
536  INTEGER, PARAMETER :: TBCDAT_ONTIME = 1, & ! All TBC types
537  TBCDAT_OFFTIME = 2, &
538  TBCDAT_AMP = 3 ! (AMP not used for PIECEWISE)
539 
540  INTEGER, PARAMETER :: TBCDAT_FREQ = 4, & ! TBC_SINUSOIDAL
541  TBCDAT_PHASE = 5
542 
543  INTEGER, PARAMETER :: TBCDAT_TIMECOR = 4, & ! TBC_STOCHASTIC
544  TBCDAT_SHAPE = 5, &
545  TBCDAT_MINCUT = 6, &
546  TBCDAT_MAXCUT = 7
547 
548  INTEGER, PARAMETER :: TBCSWI_SUBSTEP = 1 ! TBC_WHITENOISE
549 
550  INTEGER, PARAMETER :: TBCOPT_STEP = 0, & ! TBCSWI_SUBSTEP
551  TBCOPT_SUBSTEP = 1
552 
553 
554  INTEGER, PARAMETER :: TBCSWI_ORDER = 1, & ! TBC_PIECEWISE
555  TBCSWI_NJUMPS = 2, &
556  TBCDAT_DAT0 = 2
557 
558  INTEGER, PARAMETER :: TBCOPT_CONSTANT = 0, & ! TBCSWI_ORDER
559  TBCOPT_LINEAR = 1
560 
561 ! ==============================================================================
562 ! Aliases for indices: svals and bvals
563 ! ==============================================================================
564 
565  INTEGER, PARAMETER :: TBCSTO_VAL = 1, & ! All TBC types
566  TBCSTO_DVAL = 2, & ! TBC_STOCHASTIC
567  TBCSTO_FACTOR = 3
568 
569 ! ******************************************************************************
570 ! Constraints
571 ! ******************************************************************************
572 
573  INTEGER, PARAMETER :: CONSTR_NONE = 0, &
574  CONSTR_WEIGHTED = 1
575 
576  INTEGER, PARAMETER :: CONSTR_TYPE_NONE = 0, &
577  CONSTR_TYPE_DIRICHLET = 1, &
578  CONSTR_TYPE_VONNEUMANN = 2, &
579  CONSTR_TYPE_ROBIN = 3
580 
581  INTEGER, PARAMETER :: V_MIXT_XVEL = 1, &
582  V_MIXT_YVEL = 2, &
583  V_MIXT_ZVEL = 3, &
584  V_MIXT_DENS = 4, &
585  V_MIXT_PRES = 5, &
586  V_MIXT_TEMP = 6
587 
588  INTEGER, PARAMETER :: V_SPEC_VAR1 = 10, &
589  V_SPEC_VAR2 = 11, &
590  V_SPEC_VAR3 = 12, &
591  V_SPEC_VAR4 = 13, &
592  V_SPEC_VAR5 = 14, &
593  V_SPEC_VAR6 = 15, &
594  V_SPEC_VAR7 = 16, &
595  V_SPEC_VAR8 = 17, &
596  V_SPEC_VAR9 = 18
597 
598 ! ******************************************************************************
599 ! Time-stepping schemes
600 ! ******************************************************************************
601 
602  INTEGER, PARAMETER :: FLOW_STEADY = 0, &
603  FLOW_UNSTEADY = 1, &
604  SOLV_EXPLICIT = 1, &
605  SOLV_IMPLICIT = 2, &
606  SOLV_IMPLICIT_NK = 2, &
607  TST_HYB5RK = 1, & ! 5-stage hybrid RK scheme
608  TST_STD4RK = 2 ! 4-stage classical RK scheme
609 
610  INTEGER, PARAMETER :: RK_SCHEME_4_CLASSICAL = 1, &
611  RK_SCHEME_3_WRAY = 2
612 
613  INTEGER, PARAMETER :: VAR_TYPE_CELL = 1, &
614  VAR_TYPE_POINT = 2
615 
616 ! ******************************************************************************
617 ! Physical models
618 ! ******************************************************************************
619 
620  INTEGER, PARAMETER :: FLUID_MODEL_INCOMP = 0, &
621  FLUID_MODEL_COMP = 1
622 
623  INTEGER, PARAMETER :: FLOW_EULER = 0, &
624  FLOW_NAVST = 1
625 
626  INTEGER, PARAMETER :: TURB_MODEL_NONE = 0
627 
628  INTEGER, PARAMETER :: GAS_MODEL_TCPERF = 1, &
629  GAS_MODEL_TPERF = 2, &
630  GAS_MODEL_MIXT_TCPERF = 3, &
631  GAS_MODEL_MIXT_TPERF = 4, &
632  GAS_MODEL_MIXT_PSEUDO = 5, &
633  GAS_MODEL_MIXT_GASLIQ = 6
634 
635  INTEGER, PARAMETER :: VISC_SUTHR = 0, &
636  VISC_FIXED = 1, &
637  VISC_ANTIB = 2
638 
639 ! ******************************************************************************
640 ! Numerics
641 ! ******************************************************************************
642 
643  INTEGER, PARAMETER :: DISCR_CEN_SCAL = 0, &
644  DISCR_UPW_ROE = 1, &
645  DISCR_UPW_MAPS = 2, &
646  DISCR_UPW_HLLC = 3, &
647  DISCR_UPW_AUSMPLUS = 4, &
648  DISCR_OPT_LES = 99
649 
650  INTEGER, PARAMETER :: DISCR_ORDER_1 = 1, &
651  DISCR_ORDER_2 = 2, &
652  DISCR_ORDER_4 = 4
653 
654  INTEGER, PARAMETER :: FLUX_PART_CENTRAL = 0, &
655  FLUX_PART_DISSIP = 1, &
656  FLUX_PART_BOTH = 2
657 
658  INTEGER, PARAMETER :: RECONST_NONE = 0, &
659  RECONST_WENO_SIMPLE = 1, &
660  RECONST_WENO_XYZ = 2, &
661  RECONST_LIM_BARTHJESP = 10, &
662  RECONST_LIM_VENKAT = 11
663 
664  INTEGER, PARAMETER :: PSWITCH_STD = 0, &
665  PSWITCH_TVD = 1
666 
667  INTEGER, PARAMETER :: MGCYCLE_NO = 0, &
668  MGCYCLE_V = 1, &
669  MGCYCLE_W = 2
670 
671  INTEGER, PARAMETER :: FE_AVG_UNIFORM = 0, &
672  FE_AVG_LINEAR = 1
673 
674 ! ******************************************************************************
675 ! Probes
676 ! ******************************************************************************
677 
678  INTEGER, PARAMETER :: PROBE_REGION = 1, &
679  PROBE_CELL = 2, &
680  PROBE_ILOC = 2, &
681  PROBE_JLOC = 3, &
682  PROBE_KLOC = 4
683 
684 ! ******************************************************************************
685 ! Forces calculation
686 ! ******************************************************************************
687 
688  INTEGER, PARAMETER :: FORCES_NONE = 0, &
689  FORCES_PRESS = 1, &
690  FORCES_VISC = 2
691 
692  INTEGER, PARAMETER :: COMP_MOM = 1, &
693  COMP_PRES = 2, &
694  COMP_VISC = 3
695 
696 ! ******************************************************************************
697 ! Thrust calculation
698 ! ******************************************************************************
699 
700  INTEGER, PARAMETER :: THRUST_NONE = 0, &
701  THRUST_MOM = 1, &
702  THRUST_MOMP = 2
703 
704  INTEGER, PARAMETER :: MASS_IN = 1, &
705  MASS_OUT = 2
706 
707 ! ******************************************************************************
708 ! File formats
709 ! ******************************************************************************
710 
711  INTEGER, PARAMETER :: FORMAT_ASCII = 0, &
712  FORMAT_BINARY = 1, &
713  FORMAT_HDF = 2
714 
715 ! ******************************************************************************
716 ! File destinations
717 ! ******************************************************************************
718 
719  INTEGER, PARAMETER :: FILEDEST_INDIR = 1, &
720  FILEDEST_OUTDIR = 2
721 
722 ! ******************************************************************************
723 ! Grid source
724 ! ******************************************************************************
725 
726  INTEGER, PARAMETER :: GRID_SRC_CENTAUR_ASCII = 0, &
727  GRID_SRC_VGRIDNS = 1, &
728  GRID_SRC_MESH3D = 2, &
729  GRID_SRC_TETMESH = 3, &
730  GRID_SRC_COBALT = 4, &
731  GRID_SRC_GAMBIT_NEUTRAL = 5, &
732  GRID_SRC_CENTAUR_BINARY = 10
733 
734 ! ******************************************************************************
735 ! Region activation
736 ! ******************************************************************************
737 
738  INTEGER, PARAMETER :: ACTIVE = 1, &
739  OFF = 0
740 
741 ! ******************************************************************************
742 ! Verbosity levels
743 ! ******************************************************************************
744 
745  INTEGER, PARAMETER :: VERBOSE_NONE = 0, &
746  VERBOSE_LOW = 1, &
747  VERBOSE_MED = 2, &
748  VERBOSE_HIGH = 3
749 
750 ! ******************************************************************************
751 ! Checking level
752 ! ******************************************************************************
753 
754  INTEGER, PARAMETER :: CHECK_NONE = 0, &
755  CHECK_LOW = 1, &
756  CHECK_HIGH = 2
757 
758 ! ******************************************************************************
759 ! File IDs
760 ! ******************************************************************************
761 
762  INTEGER, PARAMETER :: IF_INPUT = 10, &
763  IF_GRID = 11, &
764  IF_TOPOL = 12, &
765  IF_SOLUT = 13, &
766  IF_CONVER = 14, &
767  IF_DISTR = 15, &
768  IF_PLOT = 16, &
769  IF_REGMAP = 17, &
770  IF_CONTROL = 18, &
771  IF_PTMATRIX = 19, &
772  IF_BC = 20, & ! BC files
773 #ifdef STATS
774  if_stat = 29, &
775 #endif
776  if_integ_oles = 30, & ! Optimal LES integrals
777  if_stats_oles = 31, & ! Optimal LES statistics
778  if_dims = 32, & ! Dimensions
779  if_vrs = 33, & ! Version
780  if_postinfo = 34, & ! Postprocessor info
781  if_restinfo = 35, & ! Restart info
782  if_patch_coef = 36, & ! Patch coefficients
783  if_degenrt = 37, & ! Degeneracy info
784  if_rnmb = 38, & ! Renumberings
785  if_cell_maps = 39, & ! Cell mappings
786  if_mass = 40, & ! Total mass
787  if_thrust = 41, & ! thrust data
788  if_rand_state = 42, & ! State of Random Number Gen
789  if_formom = 43, & ! Forces and moments
790  if_comm_lists = 44, & ! Communication lists
791  if_color = 45, & ! Coloring
792  if_ctrl_vol = 46, &
793  if_ctrl_surf = 47, &
794  if_extr_data1 = 48, &
795  if_extr_data2 = 49, &
796  if_probe = 50, & ! + global%nProbes-1 channels
797  if_isp = 51 ! Specific Impulse
798 
799 #ifdef PEUL
800  INTEGER, PARAMETER :: IF_PEUL_SOLUT = 73
801 #endif
802 #ifdef TURB
803  INTEGER, PARAMETER :: IF_TURB_SOLUT = 81
804 #endif
805 #ifdef PLAG
806  INTEGER, PARAMETER :: IF_PLAG_SURF_STATS = 90, & ! Surface statistics
807  IF_PLAG_STATS = 91, & ! Statistics
808  IF_PLAG_INJCPDF = 92 ! Pdf for injection
809 #endif
810 
811  INTEGER, PARAMETER :: IF_ENS_CASE = 100, &
812  IF_ENS_GEOMETRY = 101, &
813  IF_ENS_SCALAR = 102, &
814  IF_ENS_VECTOR = 200
815 
816  INTEGER, PARAMETER :: STDIN = 5, &
817  STDOUT = 6, &
818  STDERR = 6
819 
820  INTEGER, PARAMETER :: FILE_STATUS_OLD = 1, &
821  FILE_STATUS_UNKNOWN = 2
822 
823  INTEGER, PARAMETER :: FILE_POSITION_START = 1, &
824  FILE_POSITION_END = 2
825 
826 ! ******************************************************************************
827 ! Output
828 ! ******************************************************************************
829 
830  INTEGER, PARAMETER :: POST_OUTPUT_FORMAT_TECPLOT = 1, &
831  POST_OUTPUT_FORMAT_ENSIGHT = 2
832 
833  INTEGER, PARAMETER :: PLOT_GRID_ONLY = 1, &
834  PLOT_GRID_FLOW = 2
835 
836  INTEGER, PARAMETER :: PLOT_FMT_GENERIC = 1, &
837  PLOT_FMT_TECPLOT = 2, &
838  PLOT_FMT_TECASCII = 3
839 
840 ! ******************************************************************************
841 ! PETSc
842 ! ******************************************************************************
843 
844  INTEGER, PARAMETER :: RFLU_PETSC_POISSON_INFO_BEG = 1, &
845  RFLU_PETSC_POISSON_INFO_A = 1, &
846  RFLU_PETSC_POISSON_INFO_B = 2, &
847  RFLU_PETSC_POISSON_INFO_X = 3, &
848  RFLU_PETSC_POISSON_INFO_KSP = 4, &
849  RFLU_PETSC_POISSON_INFO_PC = 5, &
850  RFLU_PETSC_POISSON_INFO_NSP = 6, &
851  RFLU_PETSC_POISSON_INFO_END = 6
852 
853 ! ******************************************************************************
854 ! Miscellaneous
855 ! ******************************************************************************
856 
857  INTEGER, PARAMETER :: CRAZY_VALUE_INT = -987654321 ! MUST be negative
858 
859  INTEGER, PARAMETER :: MIN_VAL = 1, &
860  MAX_VAL = 2
861 
862  INTEGER, PARAMETER :: INITFLOW_FROMSCRATCH = 1, &
863  INITFLOW_FROMFILE = 2, &
864  INITFLOW_FROMHARDCODE = 3, &
865  INITFLOW_FROMCOMBO_SERIAL = 4, &
866  INITFLOW_FROMCOMBO_PARALLEL = 5
867 
868  INTEGER, PARAMETER :: PLAG_INIT_FROMSCRATCH = 1, & ! Initialization Flags for Plag
869  PLAG_INIT_FROMFILE = 2, &
870  PLAG_INIT_FROMHARDCODE = 3, &
871  PLAG_INIT_FROMRANDOMSTATE = 4
872 
873  INTEGER, PARAMETER :: PATCH_DIMENS_NPATCHMAX = 100, &
874  PATCH_DIMENS_BEG = 1, &
875  PATCH_DIMENS_IPGLOBAL = 1, &
876  PATCH_DIMENS_NBTRIS = 2, &
877  PATCH_DIMENS_NBTRISTOT = 3, &
878  PATCH_DIMENS_NBTRISMAX = 4, &
879  PATCH_DIMENS_NBQUADS = 5, &
880  PATCH_DIMENS_NBQUADSTOT = 6, &
881  PATCH_DIMENS_NBQUADSMAX = 7, &
882  PATCH_DIMENS_NBCELLSVIRT = 8, &
883  PATCH_DIMENS_END = 8
884 
885  INTEGER, PARAMETER :: PATCH_IBORDER_DEFAULT = 0 ! Must be zero or negative
886 
887  INTEGER, PARAMETER :: BORDER_INFO_MAX = 100, &
888  BORDER_INFO_BEG = 1, &
889  BORDER_INFO_IRGLOB = 1, &
890  BORDER_INFO_IBORD = 2, &
891  BORDER_INFO_NCSEND = 3, &
892  BORDER_INFO_NCRECV = 4, &
893  BORDER_INFO_NVSEND = 5, &
894  BORDER_INFO_NVRECV = 6, &
895  BORDER_INFO_NVSHAR = 7, &
896  BORDER_INFO_END = 7
897 
898  INTEGER, PARAMETER :: LOCINFO_MODE_SILENT = 0, &
899  LOCINFO_MODE_VERBOSE = 1
900 
901  INTEGER, PARAMETER :: OUTPUT_MODE_MASTER_ONLY = 0, &
902  OUTPUT_MODE_ANYBODY = 1
903 
904  INTEGER, PARAMETER :: INFOFILE_READMODE_FLAG = 0, &
905  INFOFILE_READMODE_DATA = 1
906 
907  INTEGER, PARAMETER :: MAPFILE_READMODE_ALL = 0, &
908  MAPFILE_READMODE_PEEK = 1
909 
910  INTEGER, PARAMETER :: ALLOC_MODE_ALL = 0, &
911  ALLOC_MODE_PRIMARY = 1, &
912  ALLOC_MODE_SECONDARY = 2, &
913  ALLOC_MODE_GRIDGEOM = 3, &
914  ALLOC_MODE_FLOWSOL = 4
915 
916  INTEGER, PARAMETER :: NCELLS_SPECIAL_MAX = 100, &
917  NFACES_SPECIAL_MAX = 100
918 
919  INTEGER, PARAMETER :: COMPWTS_MODE_FIXED = 0, &
920  COMPWTS_MODE_ADAPT = 1
921 
922  INTEGER, PARAMETER :: COMPWTS_SCAL_NONE = 0, &
923  COMPWTS_SCAL_INVDIST = 1
924 
925  INTEGER, PARAMETER :: MODULE_TYPE_NONE = 0, &
926  MODULE_TYPE_PART = 1, &
927  MODULE_TYPE_SOLVER = 2, &
928  MODULE_TYPE_POSTPROC = 3, &
929  MODULE_TYPE_INIT = 4
930 
931 #ifdef RFLO
932  INTEGER, PARAMETER :: REGOFF = 100 ! offset for region number
933 #endif
934 
935 ! ******************************************************************************
936 ! Preprocessing
937 ! ******************************************************************************
938 
939  INTEGER, PARAMETER :: PARTITION_MODE_PROPER = 1, &
940  PARTITION_MODE_IMPOSED = 2
941  INTEGER, PARAMETER :: WRITE_GRID_ON = 1, &
942  WRITE_GRID_OFF = 2
943 
944 ! ******************************************************************************
945 ! Postprocessing
946 ! ******************************************************************************
947 
948  INTEGER, PARAMETER :: INTERP_TYPE_NONE = 0, &
949  INTERP_TYPE_SIMPLE = 1, &
950  INTERP_TYPE_PROPER = 2
951 
952 ! ******************************************************************************
953 ! Random number generator
954 ! ******************************************************************************
955 
956  INTEGER, PARAMETER :: RAND_SEED_TYPE_FIXED = 0, &
957  RAND_SEED_TYPE_CLOCK = 1
958 
959 ! ******************************************************************************
960 ! Output prefix
961 ! ******************************************************************************
962 
963 #ifdef GENX
964 #ifdef RFLO
965  CHARACTER(7), PARAMETER :: SOLVER_NAME = 'Rocflo:'
966 #endif
967 #ifdef RFLU
968  CHARACTER(7), PARAMETER :: SOLVER_NAME = 'Rocflu:'
969 #endif
970 #else
971 #ifdef RFLO
972  CHARACTER(0), PARAMETER :: SOLVER_NAME = ''
973 #endif
974 #ifdef RFLU
975  CHARACTER(0), PARAMETER :: SOLVER_NAME = ''
976 #endif
977 #endif
978 
979 END MODULE modparameters
980 
981 ! ******************************************************************************
982 !
983 ! RCS Revision history:
984 !
985 ! $Log: ModParameters.F90,v $
986 ! Revision 1.165 2010/02/18 21:47:40 juzhang
987 ! Heat transfer bc for non-propellant surface documented in Rocburn_PY_HT.pdf in Rocburn_PY directory is implemented within Rocburn_PY. Major changes were made to Rocburn, Rocman3, RocfluidMP/genx, RocfluidMP/modflo directories.
988 !
989 ! Revision 1.164 2009/08/27 14:04:52 mtcampbe
990 ! Updated to enable burning motion with symmetry boundaries and enhanced
991 ! burnout code.
992 !
993 ! Revision 1.163 2008/12/06 08:44:19 mtcampbe
994 ! Updated license.
995 !
996 ! Revision 1.162 2008/11/19 22:17:30 mtcampbe
997 ! Added Illinois Open Source License/Copyright
998 !
999 ! Revision 1.161 2008/10/23 18:20:56 mtcampbe
1000 ! Crazy number of changes to track and fix initialization and
1001 ! restart bugs. Many improperly formed logical expressions
1002 ! were fixed, and bug in allocation for data associated with
1003 ! the BC_INFLOWVELTEMP boundary condition squashed in
1004 ! RFLO_ReadBcInflowVelSection.F90.
1005 !
1006 ! Revision 1.160 2007/03/19 21:41:11 haselbac
1007 ! Renamed PV_MIXT_NVAR to PV_XXXX_NVAR
1008 !
1009 ! Revision 1.159 2006/10/20 21:30:47 mparmar
1010 ! Added parameters for thrust and Isp computations
1011 !
1012 ! Revision 1.158 2006/08/28 11:44:48 rfiedler
1013 ! Add grid motion constraint types for outflow BC.
1014 !
1015 ! Revision 1.157 2006/08/24 13:15:36 rfiedler
1016 ! Rocflo now supports XYSLIDE, XZSLIDE, and YZSLIDE instead of TANGEN constraint.
1017 !
1018 ! Revision 1.156 2006/08/19 15:54:22 mparmar
1019 ! Added parameters for NSCBC implementation
1020 !
1021 ! Revision 1.155 2006/08/18 14:00:31 haselbac
1022 ! Changed unit numbers to fit in IF_PTMATRIX
1023 !
1024 ! Revision 1.154 2006/05/08 22:31:34 wasistho
1025 ! added rocprop BC 71-76
1026 !
1027 ! Revision 1.153 2006/05/01 20:59:50 haselbac
1028 ! Added FLUX_PART parameters
1029 !
1030 ! Revision 1.152 2006/04/15 16:57:43 haselbac
1031 ! Changed parameters for RECONST_
1032 !
1033 ! Revision 1.151 2006/04/07 15:19:18 haselbac
1034 ! Removed tabs
1035 !
1036 ! Revision 1.150 2006/03/30 20:49:00 haselbac
1037 ! Added parameters for cavitation source term
1038 !
1039 ! Revision 1.149 2006/03/26 20:21:59 haselbac
1040 ! Removed FLUID_MODEL_GASLIQ, added GAS_MODEL_MIXT_GASLIQ
1041 !
1042 ! Revision 1.148 2006/03/25 21:47:22 haselbac
1043 ! Added PATCH_DIMENS_ parameters bcos of sype patch changes
1044 !
1045 ! Revision 1.147 2006/03/04 04:33:15 wasistho
1046 ! added REGION_SHAPE_...
1047 !
1048 ! Revision 1.146 2006/03/02 01:26:25 wasistho
1049 ! split movegrid_epde to elglobal and elframe
1050 !
1051 ! Revision 1.145 2006/01/20 06:16:00 wasistho
1052 ! added sdens, acoeff and npower in bcdat_inject
1053 !
1054 ! Revision 1.144 2006/01/06 22:09:38 haselbac
1055 ! Added PV params for gradient errors
1056 !
1057 ! Revision 1.143 2005/12/01 17:12:09 fnajjar
1058 ! Added parameter defs for randSeedType
1059 !
1060 ! Revision 1.142 2005/12/01 08:57:37 wasistho
1061 ! added NIJK_INFLOW_INIT
1062 !
1063 ! Revision 1.141 2005/11/30 22:16:35 fnajjar
1064 ! Added params for PV_PLAG bcos of Eulerian vars in rflupost
1065 !
1066 ! Revision 1.140 2005/11/28 20:03:32 wasistho
1067 ! added movegrid_epde
1068 !
1069 ! Revision 1.139 2005/11/14 16:57:01 haselbac
1070 ! Added param for pseudo-gas model
1071 !
1072 ! Revision 1.138 2005/11/10 02:21:47 haselbac
1073 ! Changed parameters for gas model
1074 !
1075 ! Revision 1.137 2005/10/31 21:09:35 haselbac
1076 ! Changed specModel and SPEC_MODEL_NONE
1077 !
1078 ! Revision 1.136 2005/10/31 19:27:34 haselbac
1079 ! Added gas model parameters
1080 !
1081 ! Revision 1.135 2005/10/27 18:59:07 haselbac
1082 ! Added parameter for constraints
1083 !
1084 ! Revision 1.134 2005/10/27 05:11:36 wasistho
1085 ! swab moveGridVms and moveGridFoms
1086 !
1087 ! Revision 1.133 2005/10/17 22:32:01 wasistho
1088 ! added movegrid_foms
1089 !
1090 ! Revision 1.132 2005/10/05 20:03:30 haselbac
1091 ! Added params for ENSIGHT
1092 !
1093 ! Revision 1.131 2005/10/05 13:53:11 haselbac
1094 ! Added new params for bc and constrained reconstruction
1095 !
1096 ! Revision 1.130 2005/09/20 23:16:43 wasistho
1097 ! added BCSWI_INFLOW_MODEL and BCDAT_INFLOW_NELM
1098 !
1099 ! Revision 1.129 2005/09/13 21:37:07 haselbac
1100 ! Added new init option
1101 !
1102 ! Revision 1.128 2005/08/19 02:32:55 haselbac
1103 ! Added IF_COLOR
1104 !
1105 ! Revision 1.127 2005/08/10 00:34:42 haselbac
1106 ! Added more PV_MIXT parameters
1107 !
1108 ! Revision 1.126 2005/08/03 18:21:19 hdewey2
1109 ! Added SOLV_IMPLICIT_NK parameter
1110 !
1111 ! Revision 1.125 2005/07/25 12:22:21 haselbac
1112 ! Added PV_MIXT parameters
1113 !
1114 ! Revision 1.124 2005/07/14 21:41:30 haselbac
1115 ! Added parameter for AUSM flux function
1116 !
1117 ! Revision 1.123 2005/07/11 19:27:38 mparmar
1118 ! Added reconst parameters
1119 !
1120 ! Revision 1.122 2005/06/29 22:51:38 wasistho
1121 ! added EDGE_INTERACT parameters
1122 !
1123 ! Revision 1.121 2005/06/19 05:31:30 wasistho
1124 ! shift index rocprop slipwalls
1125 !
1126 ! Revision 1.120 2005/06/13 02:18:43 wasistho
1127 ! added new bc_slipwall types including xyz slidewalls
1128 !
1129 ! Revision 1.119 2005/06/09 20:18:46 haselbac
1130 ! Added MOVEPATCH_DIR parameters
1131 !
1132 ! Revision 1.118 2005/06/02 03:21:03 wasistho
1133 ! shuffle MoveGridVms with MoveGridFrame
1134 !
1135 ! Revision 1.117 2005/05/28 08:06:14 wasistho
1136 ! added parameters for moveGridFrame
1137 !
1138 ! Revision 1.116 2005/05/21 00:17:35 wasistho
1139 ! added MOVE_GRID_VMS
1140 !
1141 ! Revision 1.115 2005/05/13 06:06:37 wasistho
1142 ! added parameters for bc outflow
1143 !
1144 ! Revision 1.114 2005/04/28 05:46:27 wasistho
1145 ! added BC_INFLOW_VELPRESS
1146 !
1147 ! Revision 1.113 2005/04/27 02:09:32 haselbac
1148 ! Added parameters for inflow bc based on velocities and temperature
1149 !
1150 ! Revision 1.112 2005/04/25 18:39:08 luca1
1151 ! Imposed PDF from file option for random particle ejection
1152 !
1153 ! Revision 1.111 2005/04/15 15:06:32 haselbac
1154 ! Added MPI parameters and modified module type parameters
1155 !
1156 ! Revision 1.110 2005/03/31 16:58:03 haselbac
1157 ! Changed SD access parameters
1158 !
1159 ! Revision 1.109 2005/03/29 22:29:37 haselbac
1160 ! Added INITFLOW_FROMCOMBO
1161 !
1162 ! Revision 1.108 2005/03/09 14:55:00 haselbac
1163 ! Added parameter for virtual boundary
1164 !
1165 ! Revision 1.107 2005/01/08 20:35:03 fnajjar
1166 ! Added IF_PLAG_STATS for PLAG statistics file
1167 !
1168 ! Revision 1.106 2004/12/29 23:26:30 wasistho
1169 ! prepared statistics for PLAG and PEUL
1170 !
1171 ! Revision 1.105 2004/12/29 21:03:33 haselbac
1172 ! Added parameters for parallelization
1173 !
1174 ! Revision 1.104 2004/12/27 23:27:47 haselbac
1175 ! Added parameters for farf bc and interpolation
1176 !
1177 ! Revision 1.103 2004/12/21 15:02:09 fnajjar
1178 ! Added file definition for PLAG surface statistics
1179 !
1180 ! Revision 1.102 2004/12/19 15:46:07 haselbac
1181 ! Added PETSC parameters for incompressible solver
1182 !
1183 ! Revision 1.101 2004/12/04 03:23:55 haselbac
1184 ! Added parameters for vertex kinds and file units
1185 !
1186 ! Revision 1.100 2004/11/17 16:29:49 haselbac
1187 ! Added parameters for RK scheme and variable type
1188 !
1189 ! Revision 1.99 2004/11/09 10:56:05 wasistho
1190 ! added statistics parameters due to inclusion statistics in rflopost
1191 !
1192 ! Revision 1.98 2004/11/03 14:55:24 haselbac
1193 ! Added parameter for GAMBIT grid conversion and added comment
1194 !
1195 ! Revision 1.97 2004/11/02 02:29:49 haselbac
1196 ! Added FLUID_MODEL_ parameters
1197 !
1198 ! Revision 1.96 2004/10/26 15:17:32 haselbac
1199 ! Added parameters for data extraction
1200 !
1201 ! Revision 1.95 2004/10/19 19:29:03 haselbac
1202 ! Clean-up
1203 !
1204 ! Revision 1.94 2004/10/10 20:03:38 fnajjar
1205 ! Added PLAG initialization flags
1206 !
1207 ! Revision 1.93 2004/09/27 01:37:16 haselbac
1208 ! Added parameters for special and opposing faces
1209 !
1210 ! Revision 1.92 2004/09/02 02:33:46 wasistho
1211 ! added face-edge averaging input-option parameter in Rocflo
1212 !
1213 ! Revision 1.91 2004/08/21 00:30:31 wasistho
1214 ! parameters DEGENERAT_...
1215 !
1216 ! Revision 1.90 2004/07/30 22:47:35 jferry
1217 ! Implemented Equilibrium Eulerian method for Rocflu
1218 !
1219 ! Revision 1.89 2004/07/21 14:55:34 haselbac
1220 ! Added INTER_TYPE_ parameters
1221 !
1222 ! Revision 1.88 2004/07/06 15:14:16 haselbac
1223 ! Moved WRITE_DIMENS parameters to RFLU_ModDimensions
1224 !
1225 ! Revision 1.87 2004/06/30 21:08:58 wasistho
1226 ! removed ifdef GENX surrounded REGOFF
1227 !
1228 ! Revision 1.86 2004/06/30 04:04:44 wasistho
1229 ! moved Genx related parameter REGOFF to ModParameters
1230 !
1231 ! Revision 1.85 2004/06/16 20:00:56 haselbac
1232 ! Added patch coefficient and moment parameters
1233 !
1234 ! Revision 1.84 2004/04/01 21:29:03 haselbac
1235 ! Added SPEC_SOURCE_* parameters
1236 !
1237 ! Revision 1.83 2004/03/17 04:26:28 haselbac
1238 ! Added parameters for writing of Rocflu dimensions file
1239 !
1240 ! Revision 1.82 2004/03/06 02:32:57 wasistho
1241 ! moved mpi tag shifts from ModParameters to ModMPI
1242 !
1243 ! Revision 1.81 2004/03/05 21:10:28 wasistho
1244 ! added TURB and PEUL mpi-tag-shift
1245 !
1246 ! Revision 1.80 2004/02/26 21:02:00 haselbac
1247 ! Added parameters for memory allocation
1248 !
1249 ! Revision 1.79 2004/02/07 00:53:23 wasistho
1250 ! defined separate file id for turbulence solution
1251 !
1252 ! Revision 1.78 2004/01/29 22:57:28 haselbac
1253 ! Added various new parameters
1254 !
1255 ! Revision 1.77 2003/12/04 03:28:27 haselbac
1256 ! Added new parameters for data structures and gradients
1257 !
1258 ! Revision 1.76 2003/11/21 22:35:51 fnajjar
1259 ! Update Random Number Generator
1260 !
1261 ! Revision 1.75 2003/10/03 21:39:03 fnajjar
1262 ! Bug fix for IF_PEUL_SOLUT by including INTEGER definition
1263 !
1264 ! Revision 1.74 2003/09/29 15:29:51 fnajjar
1265 ! Removed ampersand and comma after IF_PROBE since build breaks w/o PEUL
1266 !
1267 ! Revision 1.73 2003/09/26 22:51:41 jferry
1268 ! added parameter for rocsmoke solution files
1269 !
1270 ! Revision 1.72 2003/09/15 00:37:06 haselbac
1271 ! Added INITFLOW_FROMHARDCODE
1272 !
1273 ! Revision 1.71 2003/08/19 22:46:35 haselbac
1274 ! Added parameter for COBALT format and C2V_INIT
1275 !
1276 ! Revision 1.70 2003/08/11 21:50:00 jblazek
1277 ! Splitted ModInterfaces into 4 sections.
1278 !
1279 ! Revision 1.69 2003/07/22 02:01:47 haselbac
1280 ! Modified and added diff and interp parameters
1281 !
1282 ! Revision 1.68 2003/07/03 21:48:45 jblazek
1283 ! Implemented dual-time stepping.
1284 !
1285 ! Revision 1.67 2003/06/20 22:33:57 haselbac
1286 ! Added three new parameters
1287 !
1288 ! Revision 1.66 2003/06/10 22:54:43 jferry
1289 ! Added Piecewise TBC
1290 !
1291 ! Revision 1.65 2003/06/04 22:07:04 haselbac
1292 ! Added and removed some parameters
1293 !
1294 ! Revision 1.64 2003/06/02 17:11:32 jblazek
1295 ! Added computation of thrust.
1296 !
1297 ! Revision 1.63 2003/05/24 02:13:17 wasistho
1298 ! turbulence statistics expanded
1299 !
1300 ! Revision 1.62 2003/05/16 22:07:08 haselbac
1301 ! Added HLLC parameter
1302 !
1303 ! Revision 1.61 2003/05/07 00:23:48 haselbac
1304 ! Added WRITE_GRID parameters
1305 !
1306 ! Revision 1.60 2003/04/28 22:42:48 haselbac
1307 ! Added PARTITION_MODE_* parameters
1308 !
1309 ! Revision 1.59 2003/04/10 23:22:44 fnajjar
1310 ! Added Parameters for viscosity models
1311 !
1312 ! Revision 1.58 2003/04/10 18:48:24 haselbac
1313 ! Changed grid source parameters
1314 !
1315 ! Revision 1.57 2003/04/01 19:38:01 haselbac
1316 ! Added file status parameters
1317 !
1318 ! Revision 1.56 2003/04/01 16:38:50 haselbac
1319 ! Added NCELLS_SPECIAL_MAX
1320 !
1321 ! Revision 1.55 2003/03/31 16:14:45 haselbac
1322 ! Added IF_VRS and MOVEGRID_TYPEs
1323 !
1324 ! Revision 1.54 2003/03/19 16:46:23 haselbac
1325 ! Added GRID_SOURCE_TETMESH
1326 !
1327 ! Revision 1.53 2003/03/18 21:30:59 haselbac
1328 ! Added allocation mode parameters
1329 !
1330 ! Revision 1.52 2003/03/17 20:40:44 jblazek
1331 ! Changed channel numbers (possible conflict with some GenX crap).
1332 !
1333 ! Revision 1.51 2003/03/15 17:50:29 haselbac
1334 ! Added new parameters, primarily for || RFLU
1335 !
1336 ! Revision 1.50 2003/01/28 16:46:54 haselbac
1337 ! Added various new parameters
1338 !
1339 ! Revision 1.49 2003/01/23 17:48:53 jblazek
1340 ! Changed algorithm to dump convergence, solution and probe data.
1341 !
1342 ! Revision 1.48 2002/11/26 15:25:15 haselbac
1343 ! Added parameters for boundary condition on grid motion
1344 !
1345 ! Revision 1.47 2002/11/08 21:25:36 haselbac
1346 ! Added parameter for total mass
1347 !
1348 ! Revision 1.46 2002/10/27 19:03:20 haselbac
1349 ! Added several parameters for edge list and grid motion
1350 !
1351 ! Revision 1.45 2002/10/05 19:00:19 haselbac
1352 ! Added probe and GENX parameters (coupling types)
1353 !
1354 ! Revision 1.44 2002/09/25 18:29:57 jferry
1355 ! simplified TBC parameter lists
1356 !
1357 ! Revision 1.43 2002/09/20 22:22:36 jblazek
1358 ! Finalized integration into GenX.
1359 !
1360 ! Revision 1.42 2002/09/17 13:43:00 jferry
1361 ! Added Time-dependent boundary conditions
1362 !
1363 ! Revision 1.41 2002/09/09 14:59:21 haselbac
1364 ! Added and changed various parameters
1365 !
1366 ! Revision 1.40 2002/09/05 17:40:20 jblazek
1367 ! Variable global moved into regions().
1368 !
1369 ! Revision 1.39 2002/08/30 01:47:58 jblazek
1370 ! Added support for moving grids.
1371 !
1372 ! Revision 1.38 2002/08/18 02:22:35 wasistho
1373 ! Moved TURB parameters into rocturb
1374 !
1375 ! Revision 1.37 2002/08/15 19:48:05 jblazek
1376 ! Implemented grid deformation capability.
1377 !
1378 ! Revision 1.36 2002/08/01 01:29:31 wasistho
1379 ! Added gradient parameters for RFLU
1380 !
1381 ! Revision 1.35 2002/07/29 17:10:45 jblazek
1382 ! Put TURB stuff into #ifdef.
1383 !
1384 ! Revision 1.34 2002/07/27 08:08:24 wasistho
1385 ! prepared for rocturb preliminary stage
1386 !
1387 ! Revision 1.33 2002/07/25 15:12:30 haselbac
1388 ! Added various new parameters for diff and OLES, and others
1389 !
1390 ! Revision 1.32 2002/07/25 00:39:01 jblazek
1391 ! Option for TVD type pressure switch.
1392 !
1393 ! Revision 1.31 2002/07/20 00:43:16 jblazek
1394 ! Added ASCII Tecplot format.
1395 !
1396 ! Revision 1.30 2002/06/30 00:01:44 jblazek
1397 ! Removed TAB characters. Grrrrr ...
1398 !
1399 ! Revision 1.29 2002/06/27 15:55:47 haselbac
1400 ! Added parameters for parallelization
1401 !
1402 ! Revision 1.28 2002/06/22 01:13:37 jblazek
1403 ! Modified interfaces to BC routines.
1404 !
1405 ! Revision 1.27 2002/06/17 13:40:44 haselbac
1406 ! Added SOLVER_NAME character parameter
1407 !
1408 ! Revision 1.26 2002/06/14 21:34:32 wasistho
1409 ! Added time avg statistics
1410 !
1411 ! Revision 1.25 2002/06/14 20:15:28 haselbac
1412 ! Added parameters for vertex and cell types (for parallel)
1413 !
1414 ! Revision 1.24 2002/06/10 21:27:14 haselbac
1415 ! Deleted parameters for inflow
1416 !
1417 ! Revision 1.23 2002/06/07 16:40:37 jblazek
1418 ! Grid & solution for all regions in one file.
1419 !
1420 ! Revision 1.22 2002/05/21 01:48:22 wasistho
1421 ! add viscous terms
1422 !
1423 ! Revision 1.21 2002/05/04 16:57:28 haselbac
1424 ! Added IF_REGMAP AND BC_SIMPLE_COPY
1425 !
1426 ! Revision 1.20 2002/04/11 18:54:24 haselbac
1427 ! Added new parameters for primitive cv and miscellaneous
1428 !
1429 ! Revision 1.19 2002/03/29 23:15:22 jblazek
1430 ! Corrected bug in MPI send.
1431 !
1432 ! Revision 1.18 2002/03/27 15:52:39 haselbac
1433 ! Changed values of GRID_SOURCE_XXX paramaters for ROCFLU
1434 !
1435 ! Revision 1.17 2002/03/26 19:19:55 haselbac
1436 ! Added parameters for ROCFLU - grid source
1437 !
1438 ! Revision 1.16 2002/03/14 19:07:57 haselbac
1439 ! Added parameter FACE_SPLIT_NO
1440 !
1441 ! Revision 1.15 2002/03/01 16:49:07 haselbac
1442 ! Added parameters for data structure and its generation
1443 !
1444 ! Revision 1.14 2002/02/27 18:38:20 jblazek
1445 ! Changed extrapol. to dummy cells at injection boundaries and slip walls.
1446 !
1447 ! Revision 1.13 2002/02/21 23:25:05 jblazek
1448 ! Blocks renamed as regions.
1449 !
1450 ! Revision 1.12 2002/02/16 07:16:00 jblazek
1451 ! Added implicit residual smoothing.
1452 !
1453 ! Revision 1.11 2002/02/09 01:47:01 jblazek
1454 ! Added multi-probe option, residual smoothing, physical time step.
1455 !
1456 ! Revision 1.10 2002/02/08 15:07:42 haselbac
1457 ! Added parameters for plotting of grid and or flow
1458 !
1459 ! Revision 1.9 2002/01/23 03:51:24 jblazek
1460 ! Added low-level time-stepping routines.
1461 !
1462 ! Revision 1.8 2002/01/10 00:02:07 jblazek
1463 ! Added calculation of mixture properties.
1464 !
1465 ! Revision 1.7 2002/01/02 16:20:19 jblazek
1466 ! Added flow initialization and dummy cell geometry.
1467 !
1468 ! Revision 1.6 2001/12/22 00:09:38 jblazek
1469 ! Added routines to store grid and solution.
1470 !
1471 ! Revision 1.5 2001/12/19 23:09:21 jblazek
1472 ! Added routines to read grid and solution.
1473 !
1474 ! Revision 1.4 2001/12/08 00:18:41 jblazek
1475 ! Added routines to read BC input file.
1476 !
1477 ! Revision 1.3 2001/12/07 18:36:42 jblazek
1478 ! Update of ModError and ModParameters.
1479 !
1480 ! Revision 1.2 2001/12/07 16:47:44 jblazek
1481 ! ModError and ModParameters updated.
1482 !
1483 ! Revision 1.1.1.1 2001/12/03 21:44:05 jblazek
1484 ! Import of RocfluidMP
1485 !
1486 ! ******************************************************************************
1487 
1488 
1489 
1490 
1491 
1492