6.2
general documentation
cs_gui_specific_physics.h
Go to the documentation of this file.
1 #ifndef __CS_GUI_SPECIFIC_PHYSICS_H__
2 #define __CS_GUI_SPECIFIC_PHYSICS_H__
3 
4 /*============================================================================
5  * Management of the GUI parameters file: specific physics
6  *============================================================================*/
7 
8 /*
9  This file is part of Code_Saturne, a general-purpose CFD tool.
10 
11  Copyright (C) 1998-2020 EDF S.A.
12 
13  This program is free software; you can redistribute it and/or modify it under
14  the terms of the GNU General Public License as published by the Free Software
15  Foundation; either version 2 of the License, or (at your option) any later
16  version.
17 
18  This program is distributed in the hope that it will be useful, but WITHOUT
19  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
20  FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
21  details.
22 
23  You should have received a copy of the GNU General Public License along with
24  this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
25  Street, Fifth Floor, Boston, MA 02110-1301, USA.
26 */
27 
28 /*----------------------------------------------------------------------------*/
29 
30 /*----------------------------------------------------------------------------
31  * Local headers
32  *----------------------------------------------------------------------------*/
33 
34 #include "cs_base.h"
35 
36 /*----------------------------------------------------------------------------*/
37 
39 
40 /*============================================================================
41  * Type definitions
42  *============================================================================*/
43 
44 /*============================================================================
45  * Public Fortran function prototypes
46  *============================================================================*/
47 
48 /*----------------------------------------------------------------------------
49  * Density under relaxation
50  *
51  * Fortran Interface:
52  *
53  * SUBROUTINE UICPI1 (SRROM)
54  * *****************
55  * DOUBLE PRECISION SRROM <-- density relaxation
56  * DOUBLE PRECISION DIFTL0 <-- dynamic diffusion
57  *----------------------------------------------------------------------------*/
58 
59 void CS_PROCF (uicpi1, UICPI1) (double *const srrom,
60  double *const diftl0);
61 
62 /*----------------------------------------------------------------------------
63  * Temperature for D3P Gas Combustion
64  *
65  * Fortran Interface:
66  *
67  * SUBROUTINE UICPI2 (SRROM)
68  * *****************
69  * DOUBLE PRECISION Toxy <-- Oxydant temperature
70  * DOUBLE PRECISION Tfuel <-- Fuel temperature
71  *----------------------------------------------------------------------------*/
72 
73 void CS_PROCF (uicpi2, UICPI2) (double *const toxy,
74  double *const tfuel);
75 
76 /*----------------------------------------------------------------------------
77  * Atmospheric flows: read of meteorological file of data
78  *
79  * Fortran Interface:
80  *
81  * subroutine uiati1
82  * *****************
83  * integer imeteo <-- on/off index
84  * char(*) fmeteo <-- meteo file name
85  * int len <-- meteo file name destination string length
86  *----------------------------------------------------------------------------*/
87 
88 void CS_PROCF (uiati1, UIATI1) (int *imeteo,
89  char *fmeteo,
90  int *len
92 
93 /*----------------------------------------------------------------------------
94  * Indirection between the solver numbering and the XML one
95  * for physical properties of the activated specific physics
96  * (pulverized solid fuels)
97  *----------------------------------------------------------------------------*/
98 
99 void CS_PROCF (uisofu, UISOFU) (const int *iirayo,
100  const int *ncharm,
101  int *ncharb,
102  int *nclpch,
103  int *nclacp,
104  const int *ncpcmx,
105  int *ichcor,
106  double *diam20,
107  double *cch,
108  double *hch,
109  double *och,
110  double *nch,
111  double *sch,
112  int *ipci,
113  double *pcich,
114  double *cp2ch,
115  double *rho0ch,
116  double *thcdch,
117  double *cck,
118  double *hck,
119  double *ock,
120  double *nck,
121  double *sck,
122  double *xashch,
123  double *xashsec,
124  double *xwatch,
125  double *h0ashc,
126  double *cpashc,
127  int *iy1ch,
128  double *y1ch,
129  int *iy2ch,
130  double *y2ch,
131  double *a1ch,
132  double *a2ch,
133  double *e1ch,
134  double *e2ch,
135  double *crepn1,
136  double *crepn2,
137  double *ahetch,
138  double *ehetch,
139  int *iochet,
140  double *ahetc2,
141  double *ehetc2,
142  int *ioetc2,
143  double *ahetwt,
144  double *ehetwt,
145  int *ioetwt,
146  int *ieqnox,
147  int *ieqco2,
148  int *imdnox,
149  int *irb,
150  int *ihtco2,
151  int *ihth2o,
152  double *qpr,
153  double *fn,
154  double *ckabs1,
155  int *noxyd,
156  double *oxyo2,
157  double *oxyn2,
158  double *oxyh2o,
159  double *oxyco2,
160  double *repnck,
161  double *repnle,
162  double *repnlo);
163 
164 /*----------------------------------------------------------------------------
165  * Copy name of thermophysical data file from C to Fortran
166  *----------------------------------------------------------------------------*/
167 
168 void CS_PROCF(cfnmtd, CFNMTD) (char *fstr, /* --> Fortran string */
169  int *len /* --> String Length */
171 
172 /*----------------------------------------------------------------------------
173  * groundwater model : read parameters
174  *
175  * Fortran Interface:
176  *
177  * subroutine uidai1
178  * *****************
179  * integer permeability <-- permeability type
180  * integer dispersion <-- dispersion type
181  * integer unsteady <-- steady flow
182  * integer gravity <-- check if gravity is taken into account
183  * integer unsaturated <-- take into account unsaturated zone
184  *----------------------------------------------------------------------------*/
185 
186 void CS_PROCF (uidai1, UIDAI1) (int *permeability,
187  int *dispersion,
188  int *unsteady,
189  int *gravity,
190  int *unsaturated);
191 
192 /*=============================================================================
193  * Public function prototypes
194  *============================================================================*/
195 
196 /*-----------------------------------------------------------------------------
197  * Activate specific physical models based on XML settings.
198  *----------------------------------------------------------------------------*/
199 
200 void
202 
203 /*----------------------------------------------------------------------------
204  * Electrical model: read parameters
205  *----------------------------------------------------------------------------*/
206 
207 void
208 cs_gui_elec_model(void);
209 
210 /*----------------------------------------------------------------------------
211  * Electrical model: define plane for elreca
212  *----------------------------------------------------------------------------*/
213 
214 void
216 
217 /*-----------------------------------------------------------------------------
218  * Return the name of a thermophysical model.
219  *
220  * parameter:
221  * model_thermo --> thermophysical model category
222  *----------------------------------------------------------------------------*/
223 
224 const char *
225 cs_gui_get_thermophysical_model(const char *model_thermo);
226 
227 /*-----------------------------------------------------------------------------
228  * Return 1 if a specific physics model is activated, 0 othewise.
229  *
230  * Updates the cs_glob_vars global structure.
231  *----------------------------------------------------------------------------*/
232 
233 int
235 
236 /*----------------------------------------------------------------------------*/
237 
239 
240 #endif /* __CS_GUI_SPECIFIC_PHYSICS_H__ */
void uiati1(int *imeteo, char *fmeteo, int *len CS_ARGF_SUPP_CHAINE)
Definition: cs_gui_specific_physics.c:600
double precision, dimension(ncharm), save thcdch
Definition: cpincl.f90:99
integer ncharm
maximum number of coals
Definition: ppppar.f90:55
void cs_gui_physical_model_select(void)
Definition: cs_gui_specific_physics.c:1254
integer, dimension(ncharm), save iy2ch
Definition: cpincl.f90:150
integer, dimension(ncharm), save nclpch
Number of classes per coal.
Definition: cpincl.f90:58
double precision, dimension(ncharm), save cck
Definition: cpincl.f90:99
void cs_gui_elec_model_rec(void)
Definition: cs_gui_specific_physics.c:1471
double precision, dimension(ncharm), save xashsec
Definition: cs_coal_incl.f90:42
double precision, dimension(ncharm), save ahetc2
Definition: cpincl.f90:152
double precision, dimension(ncharm), save ehetc2
Definition: cpincl.f90:152
double precision, dimension(ncharm), save ahetwt
Definition: cpincl.f90:152
integer, save ieqco2
Definition: ppcpfu.f90:63
#define BEGIN_C_DECLS
Definition: cs_defs.h:495
double precision, dimension(ncharm), save e1ch
Definition: cpincl.f90:152
double precision, dimension(ncharm), save a1ch
Definition: cpincl.f90:152
double precision, dimension(ncharm), save h0ashc
Definition: cpincl.f90:99
double precision, dimension(ncharm), save sch
Definition: cpincl.f90:99
double precision, dimension(3), save oxyn2
Definition: ppcpfu.f90:175
double precision, dimension(ncharm), save hck
Definition: cpincl.f90:99
double precision, dimension(3), save oxyo2
Definition: ppcpfu.f90:175
double precision, dimension(ncharm), save hch
Definition: cpincl.f90:99
double precision, dimension(3), save oxyco2
Definition: ppcpfu.f90:175
double precision, dimension(ncharm), save cp2ch
Definition: cpincl.f90:99
double precision, dimension(ncharm), save sck
Definition: cpincl.f90:99
#define CS_ARGF_SUPP_CHAINE
Definition: cs_defs.h:524
integer(c_int), pointer, save iirayo
Activation of the radiative transfer module:
Definition: radiat.f90:45
double precision, dimension(ncharm), save e2ch
Definition: cpincl.f90:152
integer(c_int), dimension(:), pointer, save ichcor
Definition: cpincl.f90:195
double precision, dimension(ncharm), save y2ch
Definition: cpincl.f90:152
double precision, dimension(ncharm), save nch
Definition: cpincl.f90:99
void cs_gui_elec_model(void)
Definition: cs_gui_specific_physics.c:1397
integer(c_int), pointer, save nclacp
Definition: cpincl.f90:183
integer, save ieqnox
Definition: ppcpfu.f90:102
double precision, dimension(ncharm), save cpashc
Definition: cpincl.f90:99
const char * cs_gui_get_thermophysical_model(const char *model_thermo)
Definition: cs_gui_specific_physics.c:1510
integer, save ncharb
Number of coals.
Definition: cpincl.f90:51
double precision, dimension(ncharm), save och
Definition: cpincl.f90:99
double precision, dimension(ncharm), save repnck
Definition: cs_coal_incl.f90:79
double precision, dimension(ncharm), save y1ch
Definition: cpincl.f90:152
real(c_double), pointer, save ckabs1
Absorption coefficient of gas mixture.
Definition: ppthch.f90:152
double precision, dimension(ncharm), save fn
Definition: cs_coal_incl.f90:42
double precision, dimension(ncharm), save cch
Definition: cpincl.f90:99
double precision, dimension(ncharm), save pcich
Definition: cpincl.f90:99
integer ncpcmx
maximum number of coals classes
Definition: ppppar.f90:57
double precision, save diftl0
Definition: ppthch.f90:161
integer, dimension(ncharm), save ioetwt
Definition: cpincl.f90:151
integer, dimension(ncharm), save ioetc2
Definition: cpincl.f90:151
double precision, dimension(2, ncharm), save crepn1
Definition: cpincl.f90:99
void cfnmtd(char *fstr, int *len CS_ARGF_SUPP_CHAINE)
Definition: cs_gui_specific_physics.c:1098
double precision, dimension(ncharm), save nck
Definition: cpincl.f90:99
double precision, dimension(ncharm), save ock
Definition: cpincl.f90:99
double precision, dimension(ncharm), save ahetch
Definition: cpincl.f90:152
double precision, dimension(ncharm), save repnle
Definition: cs_coal_incl.f90:79
integer, save noxyd
Definition: ppcpfu.f90:168
integer, dimension(ncharm), save ipci
Definition: cs_coal_incl.f90:36
double precision, dimension(ncharm), save xwatch
Definition: cpincl.f90:99
integer, dimension(ncharm), save iochet
Definition: cpincl.f90:151
real(c_double), dimension(:), pointer, save xashch
Definition: cpincl.f90:115
double precision, save srrom
Definition: ppincl.f90:726
#define END_C_DECLS
Definition: cs_defs.h:496
integer, save ihtco2
Definition: ppcpfu.f90:71
#define CS_PROCF(x, y)
Definition: cs_defs.h:509
double precision, dimension(ncharm), save a2ch
Definition: cpincl.f90:152
double precision, dimension(2, ncharm), save crepn2
Definition: cpincl.f90:99
void uicpi2(double *const toxy, double *const tfuel)
Definition: cs_gui_specific_physics.c:576
double precision, dimension(ncharm), save ehetch
Definition: cpincl.f90:152
integer, dimension(ncharm), save iy1ch
Definition: cpincl.f90:150
void uisofu(const int *iirayo, const int *ncharm, int *ncharb, int *nclpch, int *nclacp, const int *ncpcmx, int *ichcor, double *diam20, double *cch, double *hch, double *och, double *nch, double *sch, int *ipci, double *pcich, double *cp2ch, double *rho0ch, double *thcdch, double *cck, double *hck, double *ock, double *nck, double *sck, double *xashch, double *xashsec, double *xwatch, double *h0ashc, double *cpashc, int *iy1ch, double *y1ch, int *iy2ch, double *y2ch, double *a1ch, double *a2ch, double *e1ch, double *e2ch, double *crepn1, double *crepn2, double *ahetch, double *ehetch, int *iochet, double *ahetc2, double *ehetc2, int *ioetc2, double *ahetwt, double *ehetwt, int *ioetwt, int *ieqnox, int *ieqco2, int *imdnox, int *irb, int *ihtco2, int *ihth2o, double *qpr, double *fn, double *ckabs1, int *noxyd, double *oxyo2, double *oxyn2, double *oxyh2o, double *oxyco2, double *repnck, double *repnle, double *repnlo)
Definition: cs_gui_specific_physics.c:652
void uicpi1(double *const srrom, double *const diftl0)
Definition: cs_gui_specific_physics.c:543
integer, save imdnox
Definition: ppcpfu.f90:102
double precision, dimension(ncharm), save qpr
Definition: cs_coal_incl.f90:42
integer(c_int), pointer, save imeteo
flag for reading the meteo input file
Definition: atincl.f90:145
integer, save ihth2o
Definition: cs_coal_incl.f90:36
integer, save irb
Definition: ppcpfu.f90:102
int cs_gui_get_activ_thermophysical_model(void)
Definition: cs_gui_specific_physics.c:1534
double precision, dimension(3), save oxyh2o
Definition: ppcpfu.f90:175
double precision, dimension(ncharm), save ehetwt
Definition: cpincl.f90:152
double precision, dimension(ncharm), save rho0ch
Definition: cpincl.f90:99
double precision, dimension(ncharm), save repnlo
Definition: cs_coal_incl.f90:79
real(c_double), dimension(:), pointer, save diam20
Definition: cpincl.f90:196
void uidai1(int *permeability, int *dispersion, int *unsteady, int *gravity, int *unsaturated)
Definition: cs_gui_specific_physics.c:1142