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
!===============================================================================
31
!===============================================================================
33
! Include pour le module Lagrangien : dimensions
35
! Trois fichiers complementaires
36
! lagran.h qui porte les non dimensions
37
! lagdim.h qui porte les dimensions variables
38
! lagpar.h qui porte les parametres
40
!===============================================================================
41
! 1. Classes et particules
43
! NCLAGM : NOMBRE MAXIMAL DE CLASSES DE PARTICULES
46
parameter (nclagm = 20)
48
! NCHARM2 : NOMBRE MAXIMAL DE CLASSES DE CHARBON (voir cpincl.h)
51
parameter (ncharm2 = 3)
53
! NCLSTM : NOMBRE MAXIMUM DE STATISTIQUES VOLUMIQUE PAR GROUPE
56
parameter (nclstm = 100)
58
!===============================================================================
59
! 2. Conditions aux limites
61
! NFLAGM : NOMBRE MAXIMAL DE ZONE FRONTIERES
64
parameter (nflagm = 100)
66
!===============================================================================
67
! 3. Conditions aux limites
69
! NDLAGM : NOMBRE MAXIMAL DE DONNEES SUR LES PARTICULES (REELS)
72
parameter (ndlagm = 50)
74
! NDLAIM : NOMBRE MAXIMAL DE DONNEES SUR LES PARTICULES (ENTIERS)
77
parameter (ndlaim = 10)
79
!===============================================================================
82
! NVGAUS : NOMBRE DE VARIABLES ALEATOIRES GAUSSIENNES PAR PARTICULES
85
parameter (nvgaus = 9)
88
!===============================================================================
89
! 5. Mouvement Brownien
91
! NVGAUS : NOMBRE DE VARIABLES ALEATOIRES GAUSSIENNES PAR PARTICULES
94
parameter (nbrgau = 6)
97
!===============================================================================
98
! 6. Variables utilisateurs supplementaires
100
! NUSVAR : Nombre maximum de variables utilisateur supplementaires
103
parameter (nusvar = 10)
105
! NUSSTA : Nombre maximum de stats utilisateur supplementaires
108
parameter (nussta = 20)
110
! NUSBRD : Nombre maximum interactions particules/frontieres
111
! utilisateur supplementaires
114
parameter (nusbrd = 10)
116
!===============================================================================
117
! 7. Affichages et fichiers suite
119
! NVPLMX : Nombre maximum de variables
122
parameter (nvplmx = 50)
124
!===============================================================================
125
! 8. Visualisation particulaires
127
! NLISTE : Nombre maximum de particules visualisable
130
parameter (nliste = 500)
132
!===============================================================================
133
! 9. Types d'interaction au bord
135
! NLISTE : Nombre maximum de particules visualisable
137
integer ientrl , isortl , irebol
138
integer idepo1 , idepo2 , idepo3
139
integer iencrl , jbord1 , jbord2
140
integer jbord3 , jbord4 , jbord5
143
parameter (ientrl = 1, isortl = 2, irebol = 3)
144
parameter (idepo1 = 4, idepo2 = 5, idepo3 = 6)
145
parameter (iencrl = 7, jbord1 = 8, jbord2 = 9)
146
parameter (jbord3 = 10, jbord4 = 11, jbord5 = 12)
147
parameter (idepfa = 13)
149
!===============================================================================