← Back to branch summary

~ubuntu-branches/ubuntu/precise/code-saturne/precise

« back to all changes in this revision

Viewing changes to src/cplv/cpcym2.f90

  • Committer: Package Import Robot
  • Author(s): Sylvestre Ledru
  • Date: 2011-11-01 17:43:32 UTC
  • mto: (6.1.7 sid)
  • mto: This revision was merged to the branch mainline in revision 11.
  • Revision ID: package-import@ubuntu.com-20111101174332-tl4vk45no0x3emc3
Tags: upstream-2.1.0
Import upstream version 2.1.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/cplv/cpcym2.f90
1
1
!-------------------------------------------------------------------------------
2
2
 
3
 
!     This file is part of the Code_Saturne Kernel, element of the
4
 
!     Code_Saturne CFD tool.
5
 
 
6
 
!     Copyright (C) 1998-2009 EDF S.A., France
7
 
 
8
 
!     contact: saturne-support@edf.fr
9
 
 
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.
14
 
 
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.
19
 
 
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
 
3
! This file is part of Code_Saturne, a general-purpose CFD tool.
 
4
!
 
5
! Copyright (C) 1998-2011 EDF S.A.
 
6
!
 
7
! This program is free software; you can redistribute it and/or modify it under
 
8
! the terms of the GNU General Public License as published by the Free Software
 
9
! Foundation; either version 2 of the License, or (at your option) any later
 
10
! version.
 
11
!
 
12
! This program is distributed in the hope that it will be useful, but WITHOUT
 
13
! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 
14
! FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
 
15
! details.
 
16
!
 
17
! You should have received a copy of the GNU General Public License along with
 
18
! this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
 
19
! Street, Fifth Floor, Boston, MA 02110-1301, USA.
25
20
 
26
21
!-------------------------------------------------------------------------------
27
22
 
84
79
!            --- tableau de travail
85
80
!===============================================================================
86
81
 
 
82
!===============================================================================
 
83
! Module files
 
84
!===============================================================================
 
85
 
 
86
use paramx
 
87
use numvar
 
88
use optcal
 
89
use cstphy
 
90
use cstnum
 
91
use entsor
 
92
use parall
 
93
use pointe
 
94
use ppppar
 
95
use ppthch
 
96
use coincl
 
97
use cpincl
 
98
use ppincl
 
99
use ppcpfu
 
100
 
 
101
!===============================================================================
 
102
 
87
103
implicit none
88
104
 
89
 
!==============================================================================
90
 
! Common blocks
91
 
!==============================================================================
92
 
 
93
 
include "paramx.h"
94
 
include "numvar.h"
95
 
include "optcal.h"
96
 
include "cstphy.h"
97
 
include "cstnum.h"
98
 
include "entsor.h"
99
 
include "parall.h"
100
 
include "pointe.h"
101
 
include "ppppar.h"
102
 
include "ppthch.h"
103
 
include "coincl.h"
104
 
include "cpincl.h"
105
 
include "ppincl.h"
106
 
include "ppcpfu.h"
107
 
 
108
 
!===============================================================================
109
 
 
110
105
! Arguments
111
106
 
112
107
integer          ncelet , ncel , nrtbmc
190
185
! 0. INITIALISATIONS
191
186
!===============================================================================
192
187
 
 
188
! Initialize variables to avoid compiler warnings
 
189
 
 
190
zchx13 = 0.d0
 
191
zchx23 = 0.d0
 
192
zco23 = 0.d0
 
193
zco2t = 0.d0
 
194
zco3 = 0.d0
 
195
zh2o3 = 0.d0
 
196
zn23 = 0.d0
 
197
zo23 = 0.d0
 
198
 
193
199
! --- Initialisation tableau de travail
194
200
 
195
201
do iel = 1, ncel