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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1995 by jpye, Fri Oct 3 07:02:27 2008 UTC revision 1996 by jpye, Thu Feb 5 09:42:42 2009 UTC
# Line 4  REQUIRE "atoms.a4l"; Line 4  REQUIRE "atoms.a4l";
4  REQUIRE "johnpye/thermo_types.a4c";  REQUIRE "johnpye/thermo_types.a4c";
5  IMPORT "johnpye/fprops/helmholtz";  IMPORT "johnpye/fprops/helmholtz";
6    
7  MODEL mbwrconf;  MODEL helmholtz_conf;
8      component IS_A symbol_constant;      component IS_A symbol_constant;
9      component :== 'ammonia';      component :== 'water';
10  END mbwrconf;  END helmholtz_conf;
11    
12  MODEL fprops_test;  MODEL fprops_test;
13    
# Line 19  MODEL fprops_test; Line 19  MODEL fprops_test;
19      a IS_A specific_energy;      a IS_A specific_energy;
20      s IS_A specific_entropy;      s IS_A specific_entropy;
21    
22      propsdata IS_A mbwrconf;      conf IS_A helmholtz_conf;
23    
24      props1: helmholtz_p(      props1: helmholtz_p(
25          T, rho : INPUT;          T, rho : INPUT;
26          p : OUTPUT;          p : OUTPUT;
27          propsdata : DATA          conf : DATA
28      );      );
29    
30      props2: helmholtz_u(      props2: helmholtz_u(
31          T, rho : INPUT;          T, rho : INPUT;
32          u : OUTPUT;          u : OUTPUT;
33          propsdata : DATA          conf : DATA
34      );      );
35    
36      props3: helmholtz_s(      props3: helmholtz_s(
37          T, rho : INPUT;          T, rho : INPUT;
38          s : OUTPUT;          s : OUTPUT;
39          propsdata : DATA          conf : DATA
40      );      );
41    
42      rho*(h - u) = p;      rho*(h - u) = p;

Legend:
Removed from v.1995  
changed lines
  Added in v.1996

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