/[ascend]/trunk/models/johnpye/thermo_types.a4c
ViewVC logotype

Contents of /trunk/models/johnpye/thermo_types.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1270 - (show annotations) (download) (as text)
Sun Feb 4 01:01:18 2007 UTC (15 years, 4 months ago) by johnpye
File MIME type: text/x-ascend
File size: 2851 byte(s)
Reduced some debug output.
Added ATOM for specific_energy_rate.
Fixed default_self routines for DSG models.
Added testdsgsatrepeat test to check above.
1 REQUIRE "atoms.a4l";
2 REQUIRE "stream_holdup.a4l";
3
4 CONSTANT specific_gas_constant
5 REFINES real_constant DIMENSION L^2/T^2/TMP;
6
7 CONSTANT mass_density_constant
8 REFINES real_constant DIMENSION M/L^3;
9
10 ATOM heat_transfer_coefficient REFINES solver_var
11 DIMENSION M/T^3/TMP
12 DEFAULT 5{W/m^2/K};
13
14 lower_bound := 0{W/m^2/K};
15 upper_bound := 1e50{W/m^2/K};
16 nominal := 5{W/m^2/K};
17
18 END heat_transfer_coefficient;
19
20 ATOM specific_enthalpy REFINES solver_var
21 DIMENSION L^2/T^2
22 DEFAULT 1000{kJ/kg};
23
24 lower_bound := 0{kJ/kg};
25 upper_bound := 1e50{kJ/kg};
26 nominal := 1000{kJ/kg};
27
28 END specific_enthalpy;
29
30 ATOM specific_entropy REFINES solver_var
31 DIMENSION L^2/T^2/TMP
32 DEFAULT 6{kJ/kg/K};
33
34 lower_bound := 0{kJ/kg/K};
35 upper_bound := 1e50{kJ/kg/K};
36 nominal := 6{kJ/kg/K};
37
38 END specific_entropy;
39
40 ATOM specific_heat_capacity REFINES solver_var
41 DIMENSION L^2/T^2/TMP
42 DEFAULT 4.0{kJ/kg/K};
43
44 lower_bound := 0{kJ/kg/K};
45 upper_bound := 1e50{kJ/kg/K};
46 nominal := 4.2{kJ/kg/K};
47 END specific_heat_capacity;
48
49 ATOM heat_capacity REFINES solver_var
50 DIMENSION M*L^2/T^2/TMP
51 DEFAULT 100{kJ/K};
52 lower_bound := 0.0{kJ/K};
53 upper_bound := 1e50{kJ/K};
54 nominal := 100{kJ/K};
55 END heat_capacity;
56
57 ATOM specific_volume REFINES solver_var
58 DIMENSION L^3/M
59 DEFAULT 0.001{m^3/kg};
60
61 lower_bound := 0{m^3/kg};
62 upper_bound := 1e50{m^3/kg};
63 nominal := 0.001{m^3/kg};
64
65 END specific_volume;
66
67 ATOM specific_energy REFINES solver_var
68 DIMENSION L^2/T^2
69 DEFAULT 1000{kJ/kg};
70
71 lower_bound := 0{kJ/kg};
72 upper_bound := 1e50{kJ/kg};
73 nominal := 1000{kJ/kg};
74 END specific_energy;
75
76 ATOM specific_power REFINES solver_var
77 DIMENSION L^2/T^3
78 DEFAULT 100{W/kg};
79
80 lower_bound := 0{W/kg};
81 upper_bound := 1e50{W/kg};
82 nominal := 100{W/kg};
83 END specific_power;
84
85 ATOM delta_specific_power REFINES solver_var
86 DIMENSION L^2/T^3
87 DEFAULT 100{W/kg};
88
89 lower_bound := -1e50{W/kg};
90 upper_bound := 1e50{W/kg};
91 nominal := 100{W/kg};
92 END delta_specific_power;
93
94 ATOM specific_energy_rate REFINES solver_var
95 DIMENSION L^2/T^3
96 DEFAULT 100 {J/kg/s};
97
98 lower_bound := -1e50 {kJ/kg/s};
99 upper_bound := 1e50 {kJ/kg/s};
100 nominal := 100{ J/kg/s};
101 END specific_energy_rate;
102
103 ATOM ua_value REFINES solver_var
104 DIMENSION M/T^3/TMP*L^2
105 DEFAULT 1{kW/K};
106
107 lower_bound := 0{W/K};
108 upper_bound := 1e50{W/K};
109 nominal := 1{kW/K}; (* heat up 1kg water by 1deg in 5 s *)
110 END ua_value;
111
112 ATOM pressure_per_temperature REFINES solver_var
113 DIMENSION M/L/T^2/TMP
114 DEFAULT 1.0{Pa/K};
115 lower_bound := -1e50{Pa/K};
116 upper_bound := 1e50{Pa/K};
117 nominal := 1.0{Pa/K};
118 END pressure_per_temperature;
119
120 MODEL thermo_state;
121 T IS_A temperature;
122 rho IS_A mass_density;
123 p IS_A pressure;
124 u IS_A specific_energy;
125 h IS_A specific_enthalpy;
126 s IS_A specific_entropy;
127 cp IS_A specific_heat_capacity;
128 cv IS_A specific_heat_capacity;
129 (* w IS_A speed; *)
130 END thermo_state;

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22