← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/fuel/fuveri.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/fuel/fuveri.f90
1
 
!-------------------------------------------------------------------------------
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
25
 
 
26
 
!-------------------------------------------------------------------------------
27
 
 
28
 
subroutine fuveri &
29
 
!================
30
 
 
31
 
 ( iok    )
32
 
 
33
 
!===============================================================================
34
 
!  FONCTION  :
35
 
!  ---------
36
 
 
37
 
! VERIFICATION DES PARAMETRES DE CALCUL
38
 
!   COMBUSTION FUEL
39
 
!     APRES INTERVENTION UTILISATEUR
40
 
!       (COMMONS)
41
 
!-------------------------------------------------------------------------------
42
 
! Arguments
43
 
!__________________.____._____.________________________________________________.
44
 
! name             !type!mode ! role                                           !
45
 
!__________________!____!_____!________________________________________________!
46
 
!__________________!____!_____!________________________________________________!
47
 
 
48
 
!     TYPE : E (ENTIER), R (REEL), A (ALPHANUMERIQUE), T (TABLEAU)
49
 
!            L (LOGIQUE)   .. ET TYPES COMPOSES (EX : TR TABLEAU REEL)
50
 
!     MODE : <-- donnee, --> resultat, <-> Donnee modifiee
51
 
!            --- tableau de travail
52
 
!===============================================================================
53
 
 
54
 
implicit none
55
 
 
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 "fuincl.h"
72
 
include "ppincl.h"
73
 
 
74
 
!===============================================================================
75
 
 
76
 
! Arguments
77
 
 
78
 
integer          iok
79
 
 
80
 
! Local variables
81
 
 
82
 
integer          iphas
83
 
 
84
 
!===============================================================================
85
 
 
86
 
!===============================================================================
87
 
! 1. OPTIONS DU CALCUL : TABLEAUX DE ppincl.h : formats 2000
88
 
!===============================================================================
89
 
 
90
 
! --> Coefficient de relaxation de la masse volumique
91
 
 
92
 
if( srrom.lt.0d0 .or. srrom.ge.1d0) then
93
 
  WRITE(NFECRA,2000)'SRROM ', SRROM
94
 
  iok = iok + 1
95
 
endif
96
 
 
97
 
!===============================================================================
98
 
! 2. TABLEAUX DE futphy.h et ppthch.F : formats 3000
99
 
!===============================================================================
100
 
 
101
 
iphas = 1
102
 
 
103
 
! --> Masse volumique
104
 
 
105
 
if( ro0(iphas).lt.0d0) then
106
 
  WRITE(NFECRA,3000)IPHAS,'RO0   ', RO0(IPHAS)
107
 
  iok = iok + 1
108
 
endif
109
 
 
110
 
! --> Diffusivite dynamique en kg/(m s) : DIFTL0
111
 
 
112
 
if( diftl0.lt.0d0) then
113
 
  WRITE(NFECRA,3010)'DIFTL0', DIFTL0
114
 
  iok = iok + 1
115
 
else
116
 
  visls0(ihm) = diftl0
117
 
endif
118
 
 
119
 
!===============================================================================
120
 
! 3. FORMATS VERIFICATION
121
 
!===============================================================================
122
 
 
123
 
 2000 format(                                                           &
124
 
'@                                                            ',/,&
125
 
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@',/,&
126
 
'@                                                            ',/,&
127
 
'@ @@ ATTENTION : ARRET A L''ENTREE DES DONNEES               ',/,&
128
 
'@    =========                                               ',/,&
129
 
'@    ',A6,                            ' DOIT ETRE UN REEL    ',/,&
130
 
'@    SUPERIEUR OU EGAL A ZERO ET INFERIEUR STRICTEMENT A 1   ',/,&
131
 
'@    IL VAUT ICI ',E14.5                                      ,/,&
132
 
'@                                                            ',/,&
133
 
'@  Le calcul ne peut etre execute.                           ',/,&
134
 
'@                                                            ',/,&
135
 
'@  Verifier usfui1.                                          ',/,&
136
 
'@                                                            ',/,&
137
 
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@',/,&
138
 
'@                                                            ',/)
139
 
 3000 format(                                                           &
140
 
'@                                                            ',/,&
141
 
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@',/,&
142
 
'@                                                            ',/,&
143
 
'@ @@ ATTENTION : ARRET A L''ENTREE DES DONNEES               ',/,&
144
 
'@    =========                                               ',/,&
145
 
'@    PHASE ',I10                                              ,/,&
146
 
'@    ',A6,' DOIT ETRE UN REEL POSITIF                        ',/,&
147
 
'@    IL VAUT ICI ',E14.5                                      ,/,&
148
 
'@                                                            ',/,&
149
 
'@  Le calcul ne peut etre execute.                           ',/,&
150
 
'@                                                            ',/,&
151
 
'@  Verifier usfui1.                                          ',/,&
152
 
'@                                                            ',/,&
153
 
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@',/,&
154
 
'@                                                            ',/)
155
 
 3010 format(                                                           &
156
 
'@                                                            ',/,&
157
 
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@',/,&
158
 
'@                                                            ',/,&
159
 
'@ @@ ATTENTION : ARRET A L''ENTREE DES DONNEES               ',/,&
160
 
'@    =========                                               ',/,&
161
 
'@    ',A6,' DOIT ETRE UN REEL POSITIF                        ',/,&
162
 
'@    IL VAUT ICI ',E14.5                                      ,/,&
163
 
'@                                                            ',/,&
164
 
'@  Le calcul ne peut etre execute.                           ',/,&
165
 
'@                                                            ',/,&
166
 
'@  Verifier usfui1.                                          ',/,&
167
 
'@                                                            ',/,&
168
 
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@',/,&
169
 
'@                                                            ',/)
170
 
 
171
 
!===============================================================================
172
 
! 6. SORTIE
173
 
!===============================================================================
174
 
 
175
 
return
176
 
end subroutine