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 , &
37
iw1 , iw2 , iw3 , iw4 , iw5 , iw6 , &
38
icoefu , irijip , iuetbo , ivsvdr , ihbord , itbord , &
41
!===============================================================================
45
! GESTION MEMOIRE CONDITIONS LIMITES
47
!-------------------------------------------------------------------------------
49
!__________________.____._____.________________________________________________.
50
! name !type!mode ! role !
51
!__________________!____!_____!________________________________________________!
52
! idbia0 ! i ! <-- ! number of first free position in ia !
53
! idbra0 ! i ! <-- ! number of first free position in ra !
54
! ndim ! i ! <-- ! spatial dimension !
55
! ncelet ! i ! <-- ! number of extended (real + ghost) cells !
56
! ncel ! i ! <-- ! number of cells !
57
! nfac ! i ! <-- ! number of interior faces !
58
! nfabor ! i ! <-- ! number of boundary faces !
59
! nfml ! i ! <-- ! number of families (group classes) !
60
! nprfml ! i ! <-- ! number of properties per family (group class) !
61
! nnod ! i ! <-- ! number of vertices !
62
! lndfac ! i ! <-- ! size of nodfac indexed array !
63
! lndfbr ! i ! <-- ! size of nodfbr indexed array !
64
! ncelbr ! i ! <-- ! number of cells with faces on boundary !
65
! nvar ! i ! <-- ! total number of variables !
66
! nscal ! i ! <-- ! total number of scalars !
67
! nphas ! i ! <-- ! number of phases !
68
! isvhb ! e ! <-- ! indicateur de stockage de hbord !
69
! isvtb ! e ! <-- ! indicateur de stockage de tbord !
70
! iicodc,ircodc ! e ! --> ! "pointeur" sur icodlc rcodcl !
71
! iw1,2,3,4,5,6 ! e ! --> ! "pointeur" sur w1,2,3,4,5,6 !
72
! iuetbo ! e ! --> ! "pointeur" sur uetbor !
73
! ihbord ! e ! --> ! "pointeur" sur hbord !
74
! itbord ! e ! --> ! "pointeur" sur hbord !
75
! irijip ! e ! --> ! "pointeur" sur rijipb !
76
! ivsvdr ! e ! --> ! "pointeur" sur visvdr !
77
! ifinia ! i ! --> ! number of first free position in ia (at exit) !
78
! ifinra ! i ! --> ! number of first free position in ra (at exit) !
79
!__________________.____._____.________________________________________________.
81
! TYPE : E (ENTIER), R (REEL), A (ALPHANUMERIQUE), T (TABLEAU)
82
! L (LOGIQUE) .. ET TYPES COMPOSES (EX : TR TABLEAU REEL)
83
! MODE : <-- donnee, --> resultat, <-> Donnee modifiee
84
! --- tableau de travail
85
!===============================================================================
89
!===============================================================================
91
!===============================================================================
98
!===============================================================================
102
integer idbia0 , idbra0
103
integer ndim , ncelet , ncel , nfac , nfabor
104
integer nfml , nprfml
105
integer nnod , lndfac , lndfbr , ncelbr
106
integer nvar , nscal , nphas
107
integer isvhb , isvtb
108
integer iicodc , ircodc
109
integer iw1 , iw2 , iw3 , iw4 , iw5 , iw6
110
integer icoefu , irijip , iuetbo , ivsvdr
111
integer ihbord , itbord
112
integer ifinia , ifinra
114
integer idebia , idebra, irij, iphas, iiuetb
116
!===============================================================================
125
if(itytur(iphas).eq.3) then
132
if(itytur(iphas).eq.4.and.idries(iphas).eq.1)then
137
!---> PLACE MEMOIRE RESERVEE AVEC DEFINITION DE IFINIA IFINRA
140
ifinia = iicodc + nfabor*nvar
143
iw1 = ircodc + nfabor*nvar*3
149
icoefu = iw6 + ncelet
150
irijip = icoefu + nfabor*ndim
151
iuetbo = irijip + nfabor*6*irij
152
ivsvdr = iuetbo + nfabor*nphas*iiuetb
153
ifinra = ivsvdr + ncelet*nphas*iiuetb
157
ifinra = ihbord + nfabor
160
if(isvtb.gt.0.or.iirayo.gt.0) then
161
ifinra = itbord + nfabor
166
CALL IASIZE('MEMCLI',IFINIA)
169
CALL RASIZE('MEMCLI',IFINRA)