Line data Source code
1 : // EnergyPlus, Copyright (c) 1996-2025, The Board of Trustees of the University of Illinois,
2 : // The Regents of the University of California, through Lawrence Berkeley National Laboratory
3 : // (subject to receipt of any required approvals from the U.S. Dept. of Energy), Oak Ridge
4 : // National Laboratory, managed by UT-Battelle, Alliance for Sustainable Energy, LLC, and other
5 : // contributors. All rights reserved.
6 : //
7 : // NOTICE: This Software was developed under funding from the U.S. Department of Energy and the
8 : // U.S. Government consequently retains certain rights. As such, the U.S. Government has been
9 : // granted for itself and others acting on its behalf a paid-up, nonexclusive, irrevocable,
10 : // worldwide license in the Software to reproduce, distribute copies to the public, prepare
11 : // derivative works, and perform publicly and display publicly, and to permit others to do so.
12 : //
13 : // Redistribution and use in source and binary forms, with or without modification, are permitted
14 : // provided that the following conditions are met:
15 : //
16 : // (1) Redistributions of source code must retain the above copyright notice, this list of
17 : // conditions and the following disclaimer.
18 : //
19 : // (2) Redistributions in binary form must reproduce the above copyright notice, this list of
20 : // conditions and the following disclaimer in the documentation and/or other materials
21 : // provided with the distribution.
22 : //
23 : // (3) Neither the name of the University of California, Lawrence Berkeley National Laboratory,
24 : // the University of Illinois, U.S. Dept. of Energy nor the names of its contributors may be
25 : // used to endorse or promote products derived from this software without specific prior
26 : // written permission.
27 : //
28 : // (4) Use of EnergyPlus(TM) Name. If Licensee (i) distributes the software in stand-alone form
29 : // without changes from the version obtained under this License, or (ii) Licensee makes a
30 : // reference solely to the software portion of its product, Licensee must refer to the
31 : // software as "EnergyPlus version X" software, where "X" is the version number Licensee
32 : // obtained under this License and may not use a different name for the software. Except as
33 : // specifically required in this Section (4), Licensee shall not use in a company name, a
34 : // product name, in advertising, publicity, or other promotional activities any name, trade
35 : // name, trademark, logo, or other designation of "EnergyPlus", "E+", "e+" or confusingly
36 : // similar designation, without the U.S. Department of Energy's prior written consent.
37 : //
38 : // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR
39 : // IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
40 : // AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
41 : // CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
42 : // CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
43 : // SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
44 : // THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
45 : // OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
46 : // POSSIBILITY OF SUCH DAMAGE.
47 :
48 : #ifndef TARCOGGasses90_hh_INCLUDED
49 : #define TARCOGGasses90_hh_INCLUDED
50 :
51 : // ObjexxFCL Headers
52 : #include <ObjexxFCL/Array2A.hh>
53 :
54 : // EnergyPlus Headers
55 : #include <EnergyPlus/EnergyPlus.hh>
56 : #include <EnergyPlus/TARCOGGassesParams.hh>
57 : #include <EnergyPlus/TARCOGParams.hh>
58 :
59 : namespace EnergyPlus {
60 :
61 : // Using/Aliasing
62 : using namespace TARCOGGassesParams;
63 : using namespace TARCOGParams;
64 :
65 : namespace TARCOGGasses90 {
66 :
67 : void GASSES90(EnergyPlusData &state,
68 : Real64 tmean,
69 : const Array1D_int &iprop,
70 : const Array1D<Real64> &frct,
71 : Real64 pres,
72 : int nmix,
73 : const Array1D<Real64> &xwght,
74 : Array2<Real64> const &xgcon,
75 : Array2<Real64> const &xgvis,
76 : Array2<Real64> const &xgcp,
77 : Real64 &con,
78 : Real64 &visc,
79 : Real64 &dens,
80 : Real64 &cp,
81 : Real64 &pr,
82 : TARCOGGassesParams::Stdrd standard,
83 : int &nperr,
84 : std::string &ErrorMessage);
85 :
86 : void GassesLow(Real64 tmean, Real64 mwght, Real64 pressure, Real64 gama, Real64 &cond, int &nperr, std::string &ErrorMessage);
87 : } // namespace TARCOGGasses90
88 : struct TARCOGGasses90Data : BaseGlobalStruct
89 : {
90 :
91 : Array1D<Real64> fvis = Array1D<Real64>(TARCOGGassesParams::maxgas);
92 : Array1D<Real64> fcon = Array1D<Real64>(TARCOGGassesParams::maxgas);
93 : Array1D<Real64> fdens = Array1D<Real64>(TARCOGGassesParams::maxgas);
94 : Array1D<Real64> fcp = Array1D<Real64>(TARCOGGassesParams::maxgas);
95 : Array1D<Real64> kprime = Array1D<Real64>(TARCOGGassesParams::maxgas);
96 : Array1D<Real64> kdblprm = Array1D<Real64>(TARCOGGassesParams::maxgas);
97 : Array1D<Real64> mukpdwn = Array1D<Real64>(TARCOGGassesParams::maxgas);
98 : Array1D<Real64> kpdown = Array1D<Real64>(TARCOGGassesParams::maxgas);
99 : Array1D<Real64> kdpdown = Array1D<Real64>(TARCOGGassesParams::maxgas);
100 :
101 2126 : void init_constant_state([[maybe_unused]] EnergyPlusData &state) override
102 : {
103 2126 : }
104 :
105 1152 : void init_state([[maybe_unused]] EnergyPlusData &state) override
106 : {
107 1152 : }
108 :
109 2100 : void clear_state() override
110 : {
111 2100 : fvis = Array1D<Real64>(TARCOGGassesParams::maxgas);
112 2100 : fcon = Array1D<Real64>(TARCOGGassesParams::maxgas);
113 2100 : fdens = Array1D<Real64>(TARCOGGassesParams::maxgas);
114 2100 : fcp = Array1D<Real64>(TARCOGGassesParams::maxgas);
115 2100 : kprime = Array1D<Real64>(TARCOGGassesParams::maxgas);
116 2100 : kdblprm = Array1D<Real64>(TARCOGGassesParams::maxgas);
117 2100 : mukpdwn = Array1D<Real64>(TARCOGGassesParams::maxgas);
118 2100 : kpdown = Array1D<Real64>(TARCOGGassesParams::maxgas);
119 2100 : kdpdown = Array1D<Real64>(TARCOGGassesParams::maxgas);
120 2100 : }
121 : };
122 :
123 : } // namespace EnergyPlus
124 :
125 : #endif
|
