← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/cogz/colecd.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/cogz/colecd.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
 
28
23
subroutine colecd
29
24
!================
 
25
 
30
26
!===============================================================================
31
27
!  FONCTION  :
32
28
!  ---------
47
43
!            --- tableau de travail
48
44
!===============================================================================
49
45
 
 
46
!===============================================================================
 
47
! Module files
 
48
!===============================================================================
 
49
 
 
50
use paramx
 
51
use pointe
 
52
use entsor
 
53
use cstnum
 
54
use cstphy
 
55
use ppppar
 
56
use ppthch
 
57
use coincl
 
58
use cpincl
 
59
use ppincl
 
60
use radiat
 
61
 
 
62
!===============================================================================
 
63
 
50
64
implicit none
51
65
 
52
 
!===============================================================================
53
 
! Common blocks
54
 
!===============================================================================
55
 
 
56
 
include "paramx.h"
57
 
include "pointe.h"
58
 
include "entsor.h"
59
 
include "cstnum.h"
60
 
include "cstphy.h"
61
 
include "ppppar.h"
62
 
include "ppthch.h"
63
 
include "coincl.h"
64
 
include "cpincl.h"
65
 
include "ppincl.h"
66
 
include "radiat.h"
67
 
 
68
 
!===============================================================================
69
 
 
70
66
! Arguments
71
67
 
72
68
! Local variables
97
93
! -0. INITIALISATION et VERIFICATIONS
98
94
!===============================================================================
99
95
 
 
96
! Initialize variables to avoid compiler warnings
 
97
 
 
98
iico2 = 0
 
99
iih2o = 0
 
100
 
 
101
mfuel = 0.d0
 
102
moxyd = 0.d0
100
103
 
101
104
epsi = 1.d-9
102
105