/[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 1822 by jpye, Wed Aug 20 09:06:39 2008 UTC revision 1823 by jpye, Wed Aug 20 11:05:05 2008 UTC
# Line 5  IMPORT "johnpye/fprops/helmholtz"; Line 5  IMPORT "johnpye/fprops/helmholtz";
5    
6  MODEL mbwrconf;  MODEL mbwrconf;
7      component IS_A symbol_constant;      component IS_A symbol_constant;
8      component :== 'R123';      component :== 'ammonia';
9  END mbwrconf;  END mbwrconf;
10    
11  MODEL fprops_test;  MODEL fprops_test;
12    
13      p IS_A pressure;      p IS_A pressure;
14      T IS_A temperature;      T IS_A temperature;
15      rhob IS_A molar_density;      rho IS_A mass_density;
16    
17      propsdata IS_A mbwrconf;      propsdata IS_A mbwrconf;
18    
19      props: mbwr_p(      props: helmholtz_p(
20          T, rhob : INPUT;          T, rho : INPUT;
21          p : OUTPUT;          p : OUTPUT;
22          propsdata : DATA          propsdata : DATA
23      );      );
24    
25  METHODS  METHODS
26  METHOD on_load;  METHOD on_load;
27      FIX rhob, T;      FIX rho, T;
28      rhob := 1 {mol/m^3};      rho := 1 {kg/m^3};
29      T := 400 {K};      T := 400 {K};
30  END on_load;  END on_load;
31  END fprops_test;  END fprops_test;

Legend:
Removed from v.1822  
changed lines
  Added in v.1823

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