www.mooseframework.org
Water_Steam_EOS.h
Go to the documentation of this file.
1 /****************************************************************/
2 /* MOOSE - Multiphysics Object Oriented Simulation Environment */
3 /* */
4 /* All contents are licensed under LGPL V2.1 */
5 /* See LICENSE for full restrictions */
6 /****************************************************************/
7 #include "Moose.h"
8 
9 namespace Water_Steam_EOS
10 {
11 extern "C" {
12 
13 // subroutine TSAT(p, 100D0, Ts)
14 // double TSAT_( double&, double&, double&);
15 
16 // subroutine water_steam_prop_PH(p, h, Ts,T, Sw, Den, dTdp, dTdh, dDendp, dDendh, ierr, dhwdp,
17 // dhsdp, dTdp)
18 void FORTRAN_CALL(water_steam_prop_ph)(double &,
19  double &,
20  double &,
21  double &,
22  double &,
23  double &,
24  double &,
25  double &,
26  double &,
27  double &,
28  double &,
29  double &,
30  double &,
31  double &,
32  double &,
33  int &,
34  double &,
35  double &,
36  double &);
37 
38 // subroutine water_steam_prop_PH_ex(p, h, Ts,T, Sw, Den, dTdp, dTdh, dDendp, dDendh, ierr, dhwdp,
39 // dhsdp, dTdp, arg1, arg2)
40 void FORTRAN_CALL(water_steam_prop_ph_ex)(double &,
41  double &,
42  double &,
43  double &,
44  double &,
45  double &,
46  double &,
47  double &,
48  double &,
49  double &,
50  double &,
51  double &,
52  double &,
53  double &,
54  double &,
55  int &,
56  double &,
57  double &,
58  double &,
59  double &,
60  double &);
61 
62 // subroutine water_steam_prop_PH_noderiv(p, h, T, Sw, Den,Denw, Dens, hw, hs,visw,viss,ierror)
63 void FORTRAN_CALL(water_steam_prop_ph_noderiv)(double &,
64  double &,
65  double &,
66  double &,
67  double &,
68  double &,
69  double &,
70  double &,
71  double &,
72  double &,
73  double &,
74  int &);
75 
76 // subroutine wateos_noderiv(T, p, dw, dwmol, hw, energyscale, ierr)
77 // extern "C" double watereos_( double&, double&, double&, double&, double&, double&, double&);
78 // void water_eos1_( double&, double&, double&);
79 
80 // subroutine wateos_noderiv(T, p, dw) this one is faster, no derivatives calculated
81 void FORTRAN_CALL(wateos_noderiv1)(double &, double &, double &);
82 
83 // subroutine VISW_noderiv1 (rho_s,tc,vs)
84 void FORTRAN_CALL(viss_noderiv1)(double &, double &, double &);
85 
86 //================================================================================
87 //
88 //
89 // Following function/subroutines definitions are in source water_steam_functions.f90
90 //
91 //--------------------------------------------------------------------------------
92 
93 void FORTRAN_CALL(boundary_23)(double & P, double & T, int & N);
94 
95 void FORTRAN_CALL(saturation)(double & P, double & T, int & N, int & nerr);
96 
97 void FORTRAN_CALL(enthalpy_density_pt)(
98  double & H, double & D, double & P, double & T, int & nerr, int & nRegion);
99 
100 double FORTRAN_CALL(viscosity)(double & rho, double & T);
101 
103 //
104 // A list of functions used for BISON coolant channel model
105 //
106 //
107 // | Function name | source code file |
108 // |---------------------------+----------------------------|
109 // | void water_steam_prop_ph_ | water_steam_phase_prop.f90 |
110 // | void viss_noderiv1_ | VISS_noderiv1.f90 |
111 // | void boundary_23_ | water_steam_functions.f90 |
112 // | void saturation_ | water_steam_functions.f90 |
113 // | void enthalpy_density_pt_ | water_steam_functions.f90 |
114 // | double viscosity_ | water_steam_functions.f90 |
115 // | | |
116 //
117 //
119 }
120 }
void FORTRAN_CALL() water_steam_prop_ph_ex(double &, double &, double &, double &, double &, double &, double &, double &, double &, double &, double &, double &, double &, double &, double &, int &, double &, double &, double &, double &, double &)
void FORTRAN_CALL() boundary_23(double &P, double &T, int &N)
void FORTRAN_CALL() wateos_noderiv1(double &, double &, double &)
double FORTRAN_CALL() viscosity(double &rho, double &T)
void FORTRAN_CALL() enthalpy_density_pt(double &H, double &D, double &P, double &T, int &nerr, int &nRegion)
void FORTRAN_CALL() viss_noderiv1(double &, double &, double &)
void FORTRAN_CALL() water_steam_prop_ph_noderiv(double &, double &, double &, double &, double &, double &, double &, double &, double &, double &, double &, int &)
void FORTRAN_CALL() saturation(double &P, double &T, int &N, int &nerr)
void FORTRAN_CALL() water_steam_prop_ph(double &, double &, double &, double &, double &, double &, double &, double &, double &, double &, double &, double &, double &, double &, double &, int &, double &, double &, double &)