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 , &
37
idam , ixam , idrtp , &
39
iw1 , iw2 , iw3 , iw4 , iw5 , iw6 , iw7 , &
43
!===============================================================================
47
! GESTION MEMOIRE V2F PHI-MODEL
49
!-------------------------------------------------------------------------------
51
!__________________.____._____.________________________________________________.
52
! name !type!mode ! role !
53
!__________________!____!_____!________________________________________________!
54
! idbia0 ! i ! <-- ! number of first free position in ia !
55
! idbra0 ! i ! <-- ! number of first free position in ra !
56
! ndim ! i ! <-- ! spatial dimension !
57
! ncelet ! i ! <-- ! number of extended (real + ghost) cells !
58
! ncel ! i ! <-- ! number of cells !
59
! nfac ! i ! <-- ! number of interior faces !
60
! nfabor ! i ! <-- ! number of boundary faces !
61
! nfml ! i ! <-- ! number of families (group classes) !
62
! nprfml ! i ! <-- ! number of properties per family (group class) !
63
! nnod ! i ! <-- ! number of vertices !
64
! lndfac ! i ! <-- ! size of nodfac indexed array !
65
! lndfbr ! i ! <-- ! size of nodfbr indexed array !
66
! ncelbr ! i ! <-- ! number of cells with faces on boundary !
67
! nvar ! i ! <-- ! total number of variables !
68
! nscal ! i ! <-- ! total number of scalars !
69
! nphas ! i ! <-- ! number of phases !
70
! nideve, nrdeve ! i ! <-- ! sizes of idevel and rdevel arrays !
71
! nituse, nrtuse ! i ! <-- ! sizes of ituser and rtuser arrays !
72
! idtr ! e ! --> ! "pointeur" sur dtr !
73
! iviscf, b ! e ! --> ! "pointeur" sur viscf, viscb !
74
! idam, ixam ! e ! --> ! "pointeur" sur dam, xam !
75
! idrtp ! e ! --> ! "pointeur" sur drtp !
76
! ismbr ! e ! --> ! "pointeur" sur smbr !
77
! irovsd ! e ! --> ! "pointeur" sur rovsdt !
78
! iw1,2,...,10 ! e ! --> ! "pointeur" sur w1 a w10 !
79
! ifinia ! i ! --> ! number of first free position in ia (at exit) !
80
! ifinra ! i ! --> ! number of first free position in ra (at exit) !
81
!__________________.____._____.________________________________________________.
83
! TYPE : E (ENTIER), R (REEL), A (ALPHANUMERIQUE), T (TABLEAU)
84
! L (LOGIQUE) .. ET TYPES COMPOSES (EX : TR TABLEAU REEL)
85
! MODE : <-- donnee, --> resultat, <-> Donnee modifiee
86
! --- tableau de travail
87
!===============================================================================
91
!===============================================================================
93
!===============================================================================
99
!===============================================================================
103
integer idbia0 , idbra0
104
integer ndim , ncelet , ncel , nfac , nfabor
105
integer nfml , nprfml
106
integer nnod , lndfac , lndfbr , ncelbr
107
integer nvar , nscal , nphas
108
integer nideve , nrdeve , nituse , nrtuse
111
integer iviscf , iviscb
113
integer idrtp , ismbr , irovsd
114
integer iw1 , iw2 , iw3 , iw4 , iw5 , iw6
115
integer iw7 , iw8 , iw9 , iw10
116
integer ifinia , ifinra
118
integer idebia, idebra
120
!===============================================================================
128
!---> PLACE MEMOIRE RESERVEE AVEC DEFINITION DE IFINIA IFINRA
131
iviscf = idtr + ncelet
132
iviscb = iviscf + nfac
133
idam = iviscb + nfabor
135
idrtp = ixam + nfac*2
136
ismbr = idrtp + ncelet
137
irovsd = ismbr + ncelet
138
iw1 = irovsd + ncelet
148
ifinra = iw10 + ncelet
152
CALL RASIZE('MEMV2F',IFINRA)