/[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 1274 by johnpye, Sun Feb 4 04:54:20 2007 UTC revision 1275 by johnpye, Sun Feb 4 06:03:13 2007 UTC
# Line 12  MODEL iapwssat REFINES iapwssatprops; Line 12  MODEL iapwssat REFINES iapwssatprops;
12  METHODS  METHODS
13  METHOD default_self;  METHOD default_self;
14      x := 0.5;      x := 0.5;
15      x.nominal := 0.5;      h := 3000 {kJ/kg};
     h := 2800 {kJ/kg};  
     h.nominal := 500 {kJ/kg};  
16      u := 2300 {kJ/kg};      u := 2300 {kJ/kg};
17      u.nominal := 400 {kJ/kg};      v := 100 {m^3/kg};
18      v := 0.001 {m^3/kg};      v.nominal := 0.01 {m^3/kg};
     v.nominal := 0.07 {m^3/kg};  
19      RUN iapwssatprops::default_self;      RUN iapwssatprops::default_self;
20  END default_self;  END default_self;
21  METHOD bound_self;  METHOD bound_self;
22      T.lower_bound := 273 {K};      T.lower_bound := 273 {K};
23  END bound_self;  END bound_self;
24  METHOD specify;  METHOD specify;
     FIX x;  
25      RUN iapwssatprops::specify;      RUN iapwssatprops::specify;
26        FIX x;
27  END specify;  END specify;
28  METHOD values;  METHOD values;
     x := 0.5;  
29      RUN iapwssatprops::values;      RUN iapwssatprops::values;
30        x := 0.5;
31  END values;  END values;
32  METHOD on_load;  METHOD on_load;
33      RUN default_self;      RUN default_self;

Legend:
Removed from v.1274  
changed lines
  Added in v.1275

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