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
!-------------------------------------------------------------------------------
31
( ivar , ncelet , ncel , &
32
volume , rtpa , propce , smbrs , rovsdt )
35
!===============================================================================
39
! ROUTINE PHYSIQUE PARTICULIERE : COMBUSTION FIOUL LOURD
40
! PRISE EN COMPTE DES TERMES SOURCES RADIATIFS
41
! IMPLICITE ET EXPLICITE DANS L'EQUATION DES PARTICULES
44
!-------------------------------------------------------------------------------
46
!__________________.____._____.________________________________________________.
47
! name !type!mode ! role !
48
!__________________!____!_____!________________________________________________!
49
! ivar ! e ! <-- ! numero de la variable scalaire !
50
! ! ! ! energie (enthalpie h2) pour le !
52
! ncelet ! i ! <-- ! number of extended (real + ghost) cells !
53
! ncel ! i ! <-- ! number of cells !
54
! volume(ncelet ! tr ! <-- ! volume des cellules !
55
! rtp, rtpa ! ra ! <-- ! calculated variables at cell centers !
56
! (ncelet, *) ! ! ! (at current and previous time steps) !
57
! propce(ncelet, *)! ra ! <-- ! physical properties at cell centers !
58
! smbrs(ncelet ! tr ! <-- ! second membre du systeme !
59
! rovsdt(ncelet ! tr ! <-- ! diagonale du systeme !
60
!__________________!____!_____!________________________________________________!
62
! TYPE : E (ENTIER), R (REEL), A (ALPHANUMERIQUE), T (TABLEAU)
63
! L (LOGIQUE) .. ET TYPES COMPOSES (EX : TR TABLEAU REEL)
64
! MODE : <-- donnee, --> resultat, <-> Donnee modifiee
65
! --- tableau de travail
66
!===============================================================================
70
!===============================================================================
72
!===============================================================================
84
!===============================================================================
88
integer ivar , ncelet, ncel
90
double precision volume(ncelet)
91
double precision smbrs(ncelet)
92
double precision rovsdt(ncelet)
93
double precision rtpa(ncelet,*)
94
double precision propce(ncelet,*)
98
integer iel , numcla , ipcl
100
!===============================================================================
102
!===============================================================================
103
! 1. RECHERCHE DE LA ZONE MEMOIRE (IPH) EN FONCTION DU NUMERO DE PHASE
104
! COURANT IPHAS POUR TROUVER LES BONS TERMES SOURCES
105
!===============================================================================
107
numcla = ivar-isca(ihlf(1))+1
110
!===============================================================================
111
! 2. PRISE EN COMPTE DES TERMES SOURCES RADIATIFS
112
!===============================================================================
116
propce(iel,ipproc(itsri(ipcl))) = max(-propce(iel,ipproc(itsri(ipcl))),zero)
120
if ( propce(iel,ipproc(iyfol(numcla))) .gt. epzero ) then
122
!--> PARTIE EXPLICITE
124
smbrs(iel) = smbrs(iel) + propce(iel,ipproc(itsre(ipcl)))*volume(iel) &
125
*rtpa(iel,isca(iyfol(numcla)))
127
!--> PARTIE IMPLICITE
129
rovsdt(iel) = rovsdt(iel) + propce(iel,ipproc(itsri(ipcl)))*volume(iel)