Changeset 64

Timestamp:

Nov 24, 2006, 12:48:08 AM (17 years ago)

Author:

Argimiro Resende Secchi

Message:

Tank_feed added by Paula.

File:

• mso/eml/stage_separators/tank.mso (modified) (1 diff)

mso/eml/stage_separators/tank.mso

@@ -131 +131 @@
         Fout = k*sqrt(h);               
 end
+
+Model tank_feed
+
+        PARAMETERS
+ext PP as CalcObject;
+ext NComp as Integer;
+        Across as area (Brief="Tank cross section area", Default=2);
+        
+        VARIABLES
+in      Feed as stream; 
+in      Inlet as stream;
+out     Outlet as stream_therm;
+
+in      Q as heat_rate (Brief="Rate of heat supply"); 
+        Level    as length(Brief="Tank level");
+        M(NComp) as mol (Brief="Molar Holdup in the tank");
+        E as energy (Brief="Total Energy Holdup on tank");
+        vL as volume_mol (Brief="Liquid Molar Volume");
+
+        EQUATIONS
+        "Mass balance"
+        diff(M) = Feed.F*Feed.z + Inlet.F*Inlet.z - Outlet.F*Outlet.z;
+        
+        "Energy balance"
+        diff(E) = Feed.F*Feed.h + Inlet.F*Inlet.h - Outlet.F*Outlet.h + Q;
+
+        "Energy Holdup"
+        E = sum(M)*Outlet.h;
+
+        "Mechanical Equilibrium"
+        Inlet.P = Outlet.P;
+        
+        "Liquid Volume"
+        vL = PP.LiquidVolume(Outlet.T, Outlet.P, Outlet.z);
+        
+        "Composition"
+        M = Outlet.z*sum(M);
+        
+        "Level of liquid phase"
+        Level = sum(M)*vL/Across;
+        
+        "Vapourisation Fraction"
+        Outlet.v = Inlet.v;
+        
+end