/[ascend]/trunk/models/johnpye/fprops/fprops_test.a4c
ViewVC logotype

Contents of /trunk/models/johnpye/fprops/fprops_test.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1825 - (show annotations) (download) (as text)
Thu Aug 21 05:03:19 2008 UTC (15 years, 10 months ago) by jpye
File MIME type: text/x-ascend
File size: 661 byte(s)
Added functions for enthalpy and internal energy.
Test suites still needed!
1 (* test of the fluid properties routines currently implemented in asc_mbwr.c *)
2
3 REQUIRE "atoms.a4l";
4 REQUIRE "johnpye/thermo_types.a4c";
5 IMPORT "johnpye/fprops/helmholtz";
6
7 MODEL mbwrconf;
8 component IS_A symbol_constant;
9 component :== 'ammonia';
10 END mbwrconf;
11
12 MODEL fprops_test;
13
14 p IS_A pressure;
15 T IS_A temperature;
16 rho IS_A mass_density;
17 h IS_A specific_enthalpy;
18
19 propsdata IS_A mbwrconf;
20
21 props1: helmholtz_p(
22 T, rho : INPUT;
23 p : OUTPUT;
24 propsdata : DATA
25 );
26
27 props2: helmholtz_h(
28 T, rho : INPUT;
29 h : OUTPUT;
30 propsdata : DATA
31 );
32
33 METHODS
34 METHOD on_load;
35 FIX rho, T;
36 rho := 1 {kg/m^3};
37 T := 400 {K};
38 END on_load;
39 END fprops_test;

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