← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/cogz/ebuver.f90

  • Committer: Package Import Robot
  • Author(s): Sylvestre Ledru
  • Date: 2011-11-24 00:00:08 UTC
  • mfrom: (6.1.9 sid)
  • Revision ID: package-import@ubuntu.com-20111124000008-2vo99e38267942q5
Tags: 2.1.0-3
Install a missing file

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/cogz/ebuver.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
 
51
46
!            --- tableau de travail
52
47
!===============================================================================
53
48
 
 
49
!===============================================================================
 
50
! Module files
 
51
!===============================================================================
 
52
 
 
53
use paramx
 
54
use dimens
 
55
use numvar
 
56
use optcal
 
57
use cstphy
 
58
use entsor
 
59
use cstnum
 
60
use ppppar
 
61
use ppthch
 
62
use coincl
 
63
use cpincl
 
64
use ppincl
 
65
 
 
66
!===============================================================================
 
67
 
54
68
implicit none
55
69
 
56
 
!===============================================================================
57
 
! Common blocks
58
 
!===============================================================================
59
 
 
60
 
include "paramx.h"
61
 
include "dimens.h"
62
 
include "numvar.h"
63
 
include "optcal.h"
64
 
include "cstphy.h"
65
 
include "entsor.h"
66
 
include "cstnum.h"
67
 
include "ppppar.h"
68
 
include "ppthch.h"
69
 
include "coincl.h"
70
 
include "cpincl.h"
71
 
include "ppincl.h"
72
 
 
73
 
!===============================================================================
74
 
 
75
70
! Arguments
76
71
 
77
72
integer          iok
78
73
 
79
74
! Local variables
80
75
 
81
 
integer          iphas
82
 
 
83
76
!===============================================================================
84
77
!===============================================================================
85
78
! 1. OPTIONS DU CALCUL : TABLEAUX DE ppincl.h : formats 2000
96
89
! 42. TABLEAUX DE cstphy.h et ppthch.F : formats 3000
97
90
!===============================================================================
98
91
 
99
 
iphas = 1
100
 
 
101
92
! --> Masse volumique
102
93
 
103
 
if( ro0(iphas).lt.0d0) then
104
 
  WRITE(NFECRA,3000)IPHAS,'RO0   ', RO0(IPHAS)
 
94
if( ro0.lt.0d0) then
 
95
  WRITE(NFECRA,3000)'RO0   ', RO0
105
96
  iok = iok + 1
106
97
endif
107
98
 
147
138
'@                                                            ',/,&
148
139
'@ @@ ATTENTION : ARRET A L''ENTREE DES DONNEES               ',/,&
149
140
'@    =========                                               ',/,&
150
 
'@    PHASE ',I10                                              ,/,&
151
141
'@    ',A6,' DOIT ETRE UN REEL POSITIF                        ',/,&
152
142
'@    IL VAUT ICI ',E14.5                                      ,/,&
153
143
'@                                                            ',/,&