/[ascend]/trunk/models/steam/iapwssat.a4c
ViewVC logotype

Diff of /trunk/models/steam/iapwssat.a4c

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

revision 1042 by johnpye, Fri Jan 5 04:53:38 2007 UTC revision 1043 by johnpye, Fri Jan 5 06:24:59 2007 UTC
# Line 1  Line 1 
1  REQUIRE "iapwssatprops.a4c";  REQUIRE "iapwssatprops.a4c";
2    
3  MODEL iapwssat REFINES iapwssatprops;  MODEL iapwssat REFINES iapwssatprops;
4      x IS_A fraction;      x IS_A fraction; (* ensures we stay in the required region *)
5      h IS_A specific_enthalpy;      h IS_A specific_enthalpy;
6      u IS_A specific_energy;      u IS_A specific_energy;
7      v IS_A specific_volume;      v IS_A specific_volume;
# Line 23  METHOD on_load; Line 23  METHOD on_load;
23      RUN bound_self;      RUN bound_self;
24  END on_load;  END on_load;
25  END iapwssat;  END iapwssat;
26    
27    MODEL testiapwssat1 REFINES iapwssat;
28    METHODS
29    METHOD values;
30        RUN iapwssatprops::values;
31        x := 1.01;
32    END values;
33    END testiapwssat1;

Legend:
Removed from v.1042  
changed lines
  Added in v.1043

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