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
!-------------------------------------------------------------------------------
32
ndim , ncelet , ncel , nfac , nfabor , nfml , nprfml , &
33
nnod , lndfac , lndfbr , ncelbr , &
34
nvar , nscal , nphas , &
35
nideve , nrdeve , nituse , nrtuse , &
36
idtr , iviscf , iviscb , idam , ixam , &
37
idrtp , ismbr , irovsd , &
38
iw1 , iw2 , iw3 , iw4 , iw5 , iw6 , &
39
iw7 , iw8 , iw9 , iw10 , iw11 , iw12 , &
44
!===============================================================================
48
! GESTION MEMOIRE POUR L'EQUATION SUR LA MASSE VOLUMIQUE
50
!-------------------------------------------------------------------------------
52
!__________________.____._____.________________________________________________.
53
! name !type!mode ! role !
54
!__________________!____!_____!________________________________________________!
55
! idbia0 ! i ! <-- ! number of first free position in ia !
56
! idbra0 ! i ! <-- ! number of first free position in ra !
57
! ndim ! i ! <-- ! spatial dimension !
58
! ncelet ! i ! <-- ! number of extended (real + ghost) cells !
59
! ncel ! i ! <-- ! number of cells !
60
! nfac ! i ! <-- ! number of interior faces !
61
! nfabor ! i ! <-- ! number of boundary faces !
62
! nfml ! i ! <-- ! number of families (group classes) !
63
! nprfml ! i ! <-- ! number of properties per family (group class) !
64
! nnod ! i ! <-- ! number of vertices !
65
! lndfac ! i ! <-- ! size of nodfac indexed array !
66
! lndfbr ! i ! <-- ! size of nodfbr indexed array !
67
! ncelbr ! i ! <-- ! number of cells with faces on boundary !
68
! nvar ! i ! <-- ! total number of variables !
69
! nscal ! i ! <-- ! total number of scalars !
70
! nphas ! i ! <-- ! number of phases !
71
! nideve, nrdeve ! i ! <-- ! sizes of idevel and rdevel arrays !
72
! nituse, nrtuse ! i ! <-- ! sizes of ituser and rtuser arrays !
73
! idtr ! e ! --> ! "pointeur" sur dtr !
74
! iviscf, b ! e ! --> ! "pointeur" sur viscf, viscb !
75
! idam, ixam ! e ! --> ! "pointeur" sur dam, xam !
76
! idrtp ! e ! --> ! "pointeur" sur drtp !
77
! ismbr ! e ! --> ! "pointeur" sur smbr !
78
! irovsd ! e ! --> ! "pointeur" sur rovsdt !
79
! iw1,2,...,12 ! e ! --> ! "pointeur" sur w1 a w12 !
80
! iwflms,b ! e ! --> ! "pointeur" sur wflmas et wflmab !
81
! icoefu ! e ! --> ! "pointeur" sur coefu !
82
! ifinia ! i ! --> ! number of first free position in ia (at exit) !
83
! ifinra ! i ! --> ! number of first free position in ra (at exit) !
84
!__________________.____._____.________________________________________________.
86
! TYPE : E (ENTIER), R (REEL), A (ALPHANUMERIQUE), T (TABLEAU)
87
! L (LOGIQUE) .. ET TYPES COMPOSES (EX : TR TABLEAU REEL)
88
! MODE : <-- donnee, --> resultat, <-> Donnee modifiee
89
! --- tableau de travail
90
!===============================================================================
94
!===============================================================================
96
!===============================================================================
103
!===============================================================================
107
integer idbia0 , idbra0
108
integer ndim , ncelet , ncel , nfac , nfabor
109
integer nfml , nprfml
110
integer nnod , lndfac , lndfbr , ncelbr
111
integer nvar , nscal , nphas
112
integer nideve , nrdeve , nituse , nrtuse
115
integer iviscf , iviscb , idam , ixam
116
integer idrtp , ismbr , irovsd
117
integer iw1 , iw2 , iw3 , iw4 , iw5 , iw6
118
integer iw7 , iw8 , iw9 , iw10 , iw11 , iw12
119
integer iwflms , iwflmb
121
integer ifinia , ifinra
125
integer idebia, idebra
127
!===============================================================================
134
!---> PLACE MEMOIRE RESERVEE AVEC DEFINITION DE IFINIA IFINRA
137
iviscf = idtr + ncelet
138
iviscb = iviscf + nfac
139
idam = iviscb + nfabor
141
idrtp = ixam + nfac*2
142
ismbr = idrtp + ncelet
143
irovsd = ismbr + ncelet
144
iw1 = irovsd + ncelet
156
iwflms = iw12 + ncelet
157
iwflmb = iwflms + nfac
158
icoefu = iwflmb + nfabor
159
ifinra = icoefu + nfabor*ndim
163
CALL RASIZE('MEMCFM',IFINRA)