# Diff of /trunk/models/johnpye/loop.a4c

revision 120 by johnpye, Wed Dec 14 06:25:28 2005 UTC revision 121 by johnpye, Mon Dec 19 06:11:50 2005 UTC
# Line 11  MODEL water_and_ideal_steam REFINES ther Line 11  MODEL water_and_ideal_steam REFINES ther
11      T, S.T, W.T ARE_THE_SAME;      T, S.T, W.T ARE_THE_SAME;
12      z01: W.u = (T - 273.15 {K}) * 4.2 {kJ/kg/K};      z01: W.u = (T - 273.15 {K}) * 4.2 {kJ/kg/K};
13      z02:W.h = W.u + p / 1000 {kg/m^3};      z02:W.h = W.u + p / 1000 {kg/m^3};
14      (* Gibb's free energy needed to create an exprssion for entropy *)      (* Gibb's free energy needed to create an expression for entropy *)
15      z03:W.s = 0 {kJ/kg/K};      z03:W.s = 0 {kJ/kg/K};
16      z04:W.cp = 4.2 {kJ/kg/K};      z04:W.cp = 4.2 {kJ/kg/K};
17      z05:W.cv = 4.2 {kJ/kg/K}; (* correction? *)      z05:W.cv = 4.2 {kJ/kg/K}; (* correction? *)
# Line 188  END specify; Line 188  END specify;
188  METHOD values;  METHOD values;
189      V_total := 300{m} * 16 * 1{PI}*( 40{mm} )^2;      V_total := 300{m} * 16 * 1{PI}*( 40{mm} )^2;
190      mdot_water_in := 1 {kg/s};      mdot_water_in := 1 {kg/s};
191      Q := 400 {W/m^2} * 20 * 40{mm} * 300{m};      Q := 800 {W/m^2} * 20 * 40{mm} * 300{m};
192      p := 5 {bar};      p := 5 {bar};
193  END values;  END values;
194
195    METHOD self_test;
196        RUN reset;
197        RUN values;
198    END self_test;
199  END absorber;  END absorber;
200
201  MODEL condenser;  MODEL condenser;

Legend:
 Removed from v.120 changed lines Added in v.121