← Back to branch summary

~ubuntu-branches/ubuntu/precise/code-saturne/precise

« back to all changes in this revision

Viewing changes to include/base/entsor.h

  • Committer: Package Import Robot
  • Author(s): Sylvestre Ledru
  • Date: 2011-11-01 17:43:32 UTC
  • mto: (6.1.7 sid)
  • mto: This revision was merged to the branch mainline in revision 11.
  • Revision ID: package-import@ubuntu.com-20111101174332-tl4vk45no0x3emc3
Tags: upstream-2.1.0
Import upstream version 2.1.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
include/base/entsor.h
1
 
!-------------------------------------------------------------------------------
2
 
 
3
 
!     This file is part of the Code_Saturne Kernel, element of the
4
 
!     Code_Saturne CFD tool.
5
 
 
6
 
!     Copyright (C) 1998-2009 EDF S.A., France
7
 
 
8
 
!     contact: saturne-support@edf.fr
9
 
 
10
 
!     The Code_Saturne Kernel is free software; you can redistribute it
11
 
!     and/or modify it under the terms of the GNU General Public License
12
 
!     as published by the Free Software Foundation; either version 2 of
13
 
!     the License, or (at your option) any later version.
14
 
 
15
 
!     The Code_Saturne Kernel is distributed in the hope that it will be
16
 
!     useful, but WITHOUT ANY WARRANTY; without even the implied warranty
17
 
!     of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18
 
!     GNU General Public License for more details.
19
 
 
20
 
!     You should have received a copy of the GNU General Public License
21
 
!     along with the Code_Saturne Kernel; if not, write to the
22
 
!     Free Software Foundation, Inc.,
23
 
!     51 Franklin St, Fifth Floor,
24
 
!     Boston, MA  02110-1301  USA
25
 
 
26
 
!-------------------------------------------------------------------------------
27
 
 
28
 
!                              entsor.h
29
 
!===============================================================================
30
 
 
31
 
! --- SORTIE STD
32
 
!     NFECRA : UNITE SORTIE STD
33
 
!     IWARNI : NIVEAU D'IMPRESSION
34
 
 
35
 
integer           nfecra,iwarni(nvarmx)
36
 
common / icontr / nfecra,iwarni
37
 
 
38
 
! --- FICHIER GEOMETRIE
39
 
 
40
 
character*6       ficgeo
41
 
common / ageotl / ficgeo
42
 
 
43
 
integer                   impgeo
44
 
common / igeotl /         impgeo
45
 
 
46
 
! --- FICHIER SUITE AMONT
47
 
!     -------------------
48
 
!     FICAMO        --> fichier suite de base
49
 
!     FICAMX        --> fichier suite auxiliaire
50
 
!     FICMT1        --> fichier suite module thermique 1D
51
 
!     FICMCT        --> fichier suite module aerorefrigerants
52
 
!     FICMVO,IMPMVO --> fichier suite methode des vortex (ASCII
53
 
!                       obligatoirement, structure specifique)
54
 
!     IMPDVO        --> fichier de donnees de la methode des vortex
55
 
!                       (nom FICDAT laisse a l'utilisateur dans usvort)
56
 
 
57
 
character*13      ficamo,ficamx,ficmt1,ficmct,ficmvo
58
 
common / afamon / ficamo,ficamx,ficmt1,ficmct,ficmvo
59
 
 
60
 
integer                   impmvo, impdvo
61
 
common / ifamon /         impmvo, impdvo
62
 
 
63
 
! --- FICHIERS SUITE AVAL
64
 
!     -------------------
65
 
!     FICAVA        --> fichier suite de base
66
 
!     FICAVX        --> fichier suite auxiliaire
67
 
!     FICVT1        --> fichier suite module thermique 1D
68
 
!     FICVCT        --> fichier suite module aerorefrigerants
69
 
!     FICVVO,IMPVVO --> fichier suite methode des vortex (ASCII
70
 
!                       obligatoirement, structure specifique)
71
 
 
72
 
 
73
 
character*13      ficava,ficavx,ficvt1,ficvct,ficvvo
74
 
common / afaval / ficava,ficavx,ficvt1,ficvct,ficvvo
75
 
 
76
 
integer           ntsuit, impvvo
77
 
common / ifaval / ntsuit, impvvo
78
 
 
79
 
! --- FICHIER SUITE AMONT RAYONNEMENT
80
 
 
81
 
character*13      ficamr
82
 
common / afamrd / ficamr
83
 
 
84
 
! --- FICHIER SUITE AVAL RAYONNEMENT
85
 
 
86
 
character*13      ficavr
87
 
common / afavrd / ficavr
88
 
 
89
 
integer                   ntsuir
90
 
common / ifavrd /         ntsuir
91
 
 
92
 
 
93
 
! --- FICHIER NSTOP
94
 
 
95
 
character*6       ficstp
96
 
common / afarre / ficstp
97
 
 
98
 
integer                   impstp
99
 
common / ifarre /         impstp
100
 
 
101
 
! --- LECTURE PREPROCESSEUR
102
 
 
103
 
integer           ifoenv
104
 
common / ifenvp / ifoenv
105
 
 
106
 
! --- SORTIES POST TRAITEMENT (via FVM)
107
 
 
108
 
!     ICHRVL : Post traitement du domaine fluide
109
 
!     ICHRBO : Post traitement du bord du domaine
110
 
!     ICHRSY : Post traitement des zones de bord couplees avec SYRTHES
111
 
!     ICHRZE : Post traitement des zones d'echange aerorefrigerants
112
 
!     ICHRMD : Indique si les maillages ecrits seront :
113
 
!               0 : fixes,
114
 
!               1 : deformables a topologie constante,
115
 
!               2 : modifiables (pourront etre completement redefinis
116
 
!                   en cours de calcul via le sous-programme USMPST),
117
 
!              10 : comme INDMOD = 0, avec champ de deplacement,
118
 
!              11 : comme INDMOD = 1, avec champ de deplacement,
119
 
!              12 : comme INDMOD = 2, avec champ de deplacement.
120
 
!     NTCHR  : frequence de sortie par defaut ( > 0 ou -1 (a la fin) )
121
 
!     ICHRVR : on sort la variable (1) ou non (0) ou non initialise
122
 
!     FMTCHR : format de sortie ('EnSight Gold', 'MED_fichier', 'CGNS')
123
 
!     OPTCHR : options associees au format de sortie
124
 
 
125
 
integer           ichrvl, ichrbo, ichrsy, ichrze,                 &
126
 
                  ichrmd, ntchr , ichrvr(nvppmx)
127
 
common / iepost / ichrvl, ichrbo, ichrsy, ichrze,                 &
128
 
                  ichrmd, ntchr, ichrvr
129
 
 
130
 
character*32      fmtchr
131
 
character*96      optchr
132
 
common / aepost / fmtchr, optchr
133
 
 
134
 
! --- FICHIER THERMOPHYSIQUE SPECIFIQUE PHYSIQUE PARTICULIERE
135
 
 
136
 
!     IMP    --> Unite logique du fichier
137
 
!     FPP    --> Fichier utilisateur lorsqu'on utilise Janaf
138
 
!     JNF    --> Janaf
139
 
!     JON    --> Utilisation de Janaf ou non
140
 
 
141
 
character*6       ficfpp
142
 
character*5       ficjnf
143
 
common / afcppp / ficfpp, ficjnf
144
 
 
145
 
integer           impfpp, impjnf, indjon
146
 
common / ifcppp / impfpp, impjnf, indjon
147
 
 
148
 
! --- INPUT FILES FOR THE ATMOSPHERIC SPECIFIC PHYSICS
149
 
!        IMPMET --> logical unit of the meteo profile file
150
 
!        FICMET --> name of the meteo profile file
151
 
 
152
 
  integer impmet
153
 
  common / ifcmet / impmet
154
 
 
155
 
  character*10 ficmet
156
 
  common / afcmet / ficmet
157
 
 
158
 
! --- FICHIERS HISTORIQUES
159
 
 
160
 
!     IMPHIS : fichier stock + unite d'ecriture des variables
161
 
!     EMPHIS : EMPlacement
162
 
!     PREHIS : PREfixe des fichiers
163
 
!     EXTHIS : EXTension des fichiers
164
 
!     IMPUSH : Unite fichiers specifiques ushist
165
 
!     FICUSH : Nom   fichiers specifiques ushist
166
 
!     IMPSTH : fichier stock + unite d'ecriture des variables
167
 
!              des structures mobiles
168
 
 
169
 
character*80      emphis, prehis, exthis
170
 
common / avhist / emphis, prehis, exthis
171
 
 
172
 
character*13      ficush(nushmx)
173
 
common / afhist / ficush
174
 
 
175
 
integer                   imphis(2), impush(nushmx), impsth(2)
176
 
common / ifhist /         imphis, impush, impsth
177
 
 
178
 
!     NCAPT  : nombre de sondes total (limite a NCAPTM)
179
 
!     NTHIST : Frequence de sortie
180
 
!         ( > 0 ou -1 (jamais) ou non initialise -999)
181
 
!     NTHSAV : Frequence de sauvegarde
182
 
!         ( > 0 ou -1 (a la fin) ou non initialise -999)
183
 
!     IHISVR : nb de sonde et numero par variable
184
 
!         (-999 non initialise)
185
 
!     IHISTR : indicateur d'ecriture des historiques des structures
186
 
!              mobiles internes (=0 ou 1)
187
 
!     NCAPT  : nombre de sondes total (limite a NCAPTM)
188
 
!     NODCAP : element correspondant aux sondes
189
 
!     NDRCAP : rang processus contenant NODCAP (parallelisme)
190
 
!     XYZCAP : position demandee des sondes
191
 
 
192
 
integer           ncapt, nthist, nthsav,                          &
193
 
                  ihisvr(nvppmx,ncaptm+1), ihistr,                &
194
 
                  nodcap(ncaptm), ndrcap(ncaptm)
195
 
 
196
 
common / ivhist / ncapt , nthist, nthsav,                         &
197
 
                  ihisvr, ihistr,                                 &
198
 
                  nodcap, ndrcap
199
 
 
200
 
double precision  xyzcap(3,ncaptm)
201
 
common / rvhist / xyzcap
202
 
 
203
 
 
204
 
! --- FICHIERS LAGRANGIENS
205
 
 
206
 
!   - FICHIER SUITE ET SUITE STATISTISQUE  AMONT LAGRANGIEN
207
 
 
208
 
character*13      ficaml, ficmls
209
 
common / afamla / ficaml, ficmls
210
 
 
211
 
!   - FICHIER SUITE ET SUITE STATISTISQUE AVAL LAGRANGIEN
212
 
 
213
 
character*13      ficavl, ficvls
214
 
common / afavla / ficavl, ficvls
215
 
 
216
 
 
217
 
!   - FICHIER LISTING LAGRANGIEN
218
 
 
219
 
!     FICLAL : Nom du fichier
220
 
!     IMPLAL : Unite du fichier
221
 
!     NTLAL  : Periode de sortie du listing
222
 
character*6       ficlal
223
 
common / afalal / ficlal
224
 
 
225
 
integer                   implal, ntlal
226
 
common / ifalal /         implal, ntlal
227
 
 
228
 
!   - FICHIER HISTORIQUE LAGRANGIEN
229
 
 
230
 
integer                   impli1, impli2
231
 
common / ifalah /         impli1, impli2
232
 
 
233
 
!   - AUTRES FICHIERS LAGRANGIEN
234
 
 
235
 
integer           impla1 , impla2 , impla3 , impla4 , impla5(15)
236
 
common / ifalag / impla1 , impla2 , impla3 , impla4 , impla5
237
 
 
238
 
 
239
 
! --- FICHIERS UTILISATEURS
240
 
 
241
 
character*13      ficusr(nusrmx)
242
 
common / afuser / ficusr
243
 
 
244
 
integer           impusr(nusrmx)
245
 
common / ifuser / impusr
246
 
 
247
 
 
248
 
! --- SORTIES LISTING
249
 
 
250
 
!   COMMUNES
251
 
!     IPP*   : Pointeurs de reperage des variables pour les sorties
252
 
!     NOMVAR : Nom des variables
253
 
!     ILISVR : on suit la variable (1) ou non (0) ou non initialise
254
 
!     ITRSVR : numero de variable si IPP correspond a une variable resolue (p,u,k...)
255
 
!              0 si IPP correspond a une variable annexe (cp, mut...)ou a rien
256
 
!     NTLIST : periode  ecriture
257
 
!       ( -1 : dernier pas de temps : > 0 : periode)
258
 
 
259
 
integer           ipprtp(nvarmx),                                 &
260
 
                  ipppro(npromx),                                 &
261
 
                  ippdt         ,                                 &
262
 
                  ipptx         , ippty         , ipptz  ,        &
263
 
                  ipp2ra(nvppmx)
264
 
common / ipntpp / ipprtp        ,                                 &
265
 
                  ipppro        ,                                 &
266
 
                  ippdt         ,                                 &
267
 
                  ipptx         , ippty         , ipptz  ,        &
268
 
                  ipp2ra
269
 
 
270
 
character*80      nomvar(nvppmx)
271
 
common / anampp / nomvar
272
 
 
273
 
integer           ilisvr(nvppmx),itrsvr(nvppmx)
274
 
common / ipostp / ilisvr        ,itrsvr
275
 
 
276
 
 
277
 
integer           ntlist
278
 
common / ilisti / ntlist
279
 
 
280
 
!   PARAMETRES DE SUIVI DE CALCUL, MIN-MAX, CLIPMIN, CLIPMAX
281
 
 
282
 
integer           iclpmn(nvppmx) , iclpmx(nvppmx)
283
 
common / isuivi / iclpmn         , iclpmx
284
 
 
285
 
double precision  varmin(nvppmx) , varmax(nvppmx),                &
286
 
                  varmna(nvppmx) , varmxa(nvppmx)
287
 
common / rsuivi / varmin ,         varmax,                        &
288
 
                  varmna ,         varmxa
289
 
 
290
 
 
291
 
!   PARAMETRES DE CONVERGENCE, NORME DU SECOND MEMBRE, NOMBRE ITERATIONS
292
 
!                                RESIDU NORME, DERIVE
293
 
 
294
 
integer           nbivar(nvppmx)
295
 
common / iconvg / nbivar
296
 
 
297
 
double precision  rnsmbr(nvppmx) ,                                &
298
 
                  resvar(nvppmx) , dervar(nvppmx)
299
 
common / rconvg / rnsmbr ,                                        &
300
 
                  resvar         , dervar
301
 
 
302
 
 
303
 
!   PARAMETRES DU PAS DE TEMPS LOCAL =
304
 
!     NB COURANT, FOURIER ET COMBINE MIN ET MAX + POINTS ASSOCIES
305
 
!     PTPLOC(.,1)   = NOMBRE , PTPLOC(.,2 3 et 4) = POINT ASSOCIE
306
 
!     PTPLOC(1 2,.) = COURANT MIN/MAX
307
 
!     PTPLOC(3 4,.) = FOURIER MIN/MAX
308
 
!     PTPLOC(5 6,.) = COU/FOU MIN/MAX
309
 
!     PTPLOC(7 8,.) = DT      MIN/MAX
310
 
!     NCLPTR        = NB DE CLIPPINGS PAR LE PDT MAX LIE AUX EFFETS DE DENSITE
311
 
!     RPDTRO        = RAPPORT MAX ENTRE DT ET DTmax LIE AUX EFFETS DE DENSITE
312
 
!                      +LOCALISATION
313
 
 
314
 
integer           nclptr
315
 
common / iptloc /  nclptr
316
 
 
317
 
double precision  ptploc(8,4), rpdtro(4)
318
 
common / rptloc /  ptploc, rpdtro
319
 
 
320
 
 
321
 
!   PARAMETRES DES SORTIES AU BORD =
322
 
 
323
 
!     IPSTDV = PROPRIETES POST TRAITEES
324
 
!        IPSTDV EST LE PRODUIT DES VALEURS ENTIERES SUIVANTES (NOMBRES PREMIERS) :
325
 
!          IPSTYP => YPLUS
326
 
!          IPSTCL => VARIABLES NON RECONSTRUITES (suffisant pour Dirichlet)
327
 
!          IPSTFT => FLUX THERMIQUE RECONSTRUIT
328
 
 
329
 
!     SI IPSTDV = 1 = PAS DE SORTIE
330
 
 
331
 
 
332
 
integer            ipstdv
333
 
common / iipstd /  ipstdv
334
 
 
335
 
 
336
 
! --- TEMPS CPU
337
 
 
338
 
double precision  tmarus
339
 
common / temcpu / tmarus
340
 
 
341
 
! FIN