1
!-------------------------------------------------------------------------------
3
! This file is part of the Code_Saturne Kernel, element of the
4
! Code_Saturne CFD tool.
6
! Copyright (C) 1998-2009 EDF S.A., France
8
! contact: saturne-support@edf.fr
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.
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.
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
26
!-------------------------------------------------------------------------------
29
!===============================================================================
48
! LA MODIFICATION DES PARAMETRES CI DESSOUS
64
! Elle demande la recompilation de la totalite de la bibliotheque
65
! operation qui ne peut etre effectuee que si l'on dispose de
66
! la totalite des sources.
87
! NPHSMX : NOMBRE MAX DE PHASES
88
! (keep it coherent with CS_NPHSMX in cs_perio.h)
89
! NSCAMX : NOMBRE MAX DE SCALAIRES
90
! NVARMX : NOMBRE MAX DE VARIABLES =
91
! NOMBRE MAX DE SCALAIRES + 12 (U,V,W,P,Rij,E,ALP)*NPHSMX
92
! NPRCMX : NOMBRE MAX DE PROPRIETES PHYSIQUES AUX CELLULES (TOTAL) =
93
! NSCAMX (Lambda) + 7 (RHO,CP,VISCL,VISCT,COU,FOU,IPRTOT) NPHSMX
95
! NPRFMX : NOMBRE MAX DE PROPRIETES PHYSIQUES AUX FACES INTERNES =
96
! NSCAMX (Flumas) + 2*NPHSMX(Flumas,ALP)
97
! NPRBMX : NOMBRE MAX DE PROPRIETES PHYSIQUES AUX FACES DE BORD =
98
! NSCAMX (Flumab) + 3*NPHSMX(Flumab,ALP, ROMB)
99
! NPROMX : NOMBRE MAX DE PROPRIETES PHYSIQUES TOUT CONFONDU
100
! Majore par NPRCMX+NPRFMX+NPRBMX
101
! NGRDMX : NOMBRE MAX DE GRANDEURS =
103
! NSMAMX : NOMBRE MAX DE CASES POUR LES TABLEAUX TERMES SOURCE DE MASSE
104
! NVARMX + NPHSMX pour SMACEL
105
! NVPPMX : NOMBRE DE VARIABLES POUR AFFICHAGES
106
! NGRDMX + 20 (20 couvre DT, TPUCOU, et une marge de 16 ...)
108
integer nphsmx, nscamx, nvarmx, nprcmx, nprfmx, nprbmx, npromx
109
integer ngrdmx, nsmamx, nvppmx
111
parameter(nscamx=200)
112
parameter(nvarmx=nscamx+12*nphsmx)
113
parameter(nprcmx=nscamx+11*nphsmx)
114
parameter(nprfmx=nscamx+ 2*nphsmx)
115
parameter(nprbmx=nscamx+ 3*nphsmx)
116
parameter(npromx=nprcmx+ nprfmx+nprbmx)
117
parameter(ngrdmx=nvarmx+ npromx)
118
parameter(nsmamx=nvarmx+ nphsmx)
119
parameter(nvppmx=ngrdmx+20)
121
! NUSHMX : NOMBRE MAX DE FICHIERS UTILISATEUR POUR HISTORIQUES
125
! NUSRMX : NOMBRE MAX DE FICHIERS UTILISATEUR
129
! NCAPTM : NOMBRE MAX DE SONDES (POUR HISTORIQUES)
130
! Voir le format associe dans ecrhis
132
parameter(ncaptm=100)
134
! NTYPMX NOMBRE DE TYPES DE CONDITIONS AUX LIMITES POSSIBLES
137
parameter(ntypmx=200)
139
integer iindef, ientre, isolib, isymet, iparoi, &
140
iparug, iesicf, isspcf, isopcf, ierucf, &
143
parameter(iindef=1, ientre=2, isolib=3, isymet=4, iparoi=5, &
144
iparug=6, iesicf=7, isspcf=8, isopcf=9, ierucf=10, &
145
ieqhcf=11, icscpl=12)
147
! NESTMX : NOMBRE MAX D'ESTIMATEURS
148
! IESPRE, IESDER, IESCOR, IESTOT : Numeros
151
integer iespre , iesder , iescor , iestot
152
parameter (iespre=1, iesder=2, iescor=3, iestot=4)
154
! NBMOMX : NOMBRE MAX DE MOYENNES (MOMENTS) CALCULE
155
! NDGMOX : DEGRE MAX DES MOMENTS
156
integer nbmomx, ndgmox
157
parameter (nbmomx = 50, ndgmox = 5)
159
! IPST* : SELECTION POST TRAITEMENT AUTOMATIQUE BORD : VOIR IPSTDV
161
integer ipstyp , ipstcl , ipstft, ipstfo
162
parameter (ipstyp=2, ipstcl=3, ipstft=5, ipstfo=7)
164
! CONDITIONS AUX LIMITES POSSIBLES POUR LA VITESSE DE MAILLAGE EN ALE
166
integer ibfixe, igliss, ivimpo
167
parameter(ibfixe=1, igliss=2, ivimpo=3 )
169
! NOMBRE DE STRUCTURES MAX EN ALE
172
parameter (nstrmx=200)
174
! NOMBRE DE STRUCTURES MAX EN ALE ET COUPLAGE CODE_ASTER
177
parameter (nastmx=200)
179
! DIMENSIONS MAXIMALES DES TABLEAUX CONTENANT LES BORNES PAR THREAD
181
integer nthrd1, nthrd2
182
parameter (nthrd1=4, nthrd2=16)