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

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

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

revision 2274 by jpye, Wed Aug 11 11:23:30 2010 UTC revision 2275 by jpye, Wed Aug 11 13:58:25 2010 UTC
# Line 71  METHOD default; Line 71  METHOD default;
71      s := 4 {kJ/kg/K};      s := 4 {kJ/kg/K};
72      x := 0.8;      x := 0.8;
73    
74      RUN enable_pT;      RUN enable_ph;
75  END default;  END default;
76    (**** THIS CODE, IF UNCOMMENTED, REMOVES ERROR.
77    METHOD default_self;
78        RUN default;
79    END default_self;*)
80  METHOD enable_pT;  METHOD enable_pT;
81      FOR i IN [1..4] DO      FOR i IN [1..4] DO
82          calc_ph[i].included := FALSE;          calc_ph[i].included := FALSE;
# Line 181  MODEL pump_simple_test REFINES pump_simp Line 185  MODEL pump_simple_test REFINES pump_simp
185      cd.component :== 'water';      cd.component :== 'water';
186  METHODS  METHODS
187  METHOD on_load;  METHOD on_load;
188        RUN default_self;
189      FIX inlet.p; inlet.p := 5 {bar};      FIX inlet.p; inlet.p := 5 {bar};
190      FIX inlet.h; inlet.h := 400 {kJ/kg};      FIX inlet.h; inlet.h := 400 {kJ/kg};
191      FIX outlet.p; outlet.p := 100 {bar};      FIX outlet.p; outlet.p := 100 {bar};
# Line 229  MODEL turbine_simple_test REFINES turbin Line 234  MODEL turbine_simple_test REFINES turbin
234      cd.component :== 'water';      cd.component :== 'water';
235  METHODS  METHODS
236  METHOD on_load;  METHOD on_load;
237        RUN default_self;
238      FIX inlet.p;      FIX inlet.p;
239      FIX inlet.h;      FIX inlet.h;
240      FIX outlet.p;      FIX outlet.p;
# Line 267  MODEL boiler_simple REFINES stream_equip Line 273  MODEL boiler_simple REFINES stream_equip
273    
274      eta IS_A fraction;      eta IS_A fraction;
275      Qdot = eta * Qdot_fuel;      Qdot = eta * Qdot_fuel;
276    METHODS
277    METHOD default_self;
278        RUN inlet.default_self;
279        RUN outlet.default_self;
280    END default_self;
281  END boiler_simple;  END boiler_simple;
282    
283  MODEL boiler_simple_test REFINES boiler_simple;  MODEL boiler_simple_test REFINES boiler_simple;
284      cd.component :== 'water';      cd.component :== 'water';
285  METHODS  METHODS
286  METHOD on_load;  METHOD on_load;
287        RUN default_self;
288      FIX inlet.p;      FIX inlet.p;
289      FIX inlet.h;      FIX inlet.h;
290      FIX eta;      FIX eta;
     FIX outlet.h;  
291      FIX mdot;      FIX mdot;
292    
293      inlet.p := 100 {bar};      inlet.p := 100 {bar};
# Line 581  METHOD values; Line 592  METHOD values;
592      BO.eta := 1.0;      BO.eta := 1.0;
593      mdot := 900 {t/d};      mdot := 900 {t/d};
594  END values;  END values;
595    METHOD default;
596        (* nothing *)
597    END default;
598  METHOD on_load;  METHOD on_load;
599        RUN default_self;
600      RUN specify;      RUN specify;
601      RUN values;      RUN values;
602    

Legend:
Removed from v.2274  
changed lines
  Added in v.2275

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