source: branches/newlanguage/sample/stage_separators/sample_tank.mso @ 121

Last change on this file since 121 was 88, checked in by Paula Bettio Staudt, 16 years ago

Updated sample_column and sample_tank to run with VRTherm DEMO

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 2.5 KB
Line 
1#*-------------------------------------------------------------------
2* EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC.
3*
4* This LIBRARY is free software; you can distribute it and/or modify
5* it under the therms of the ALSOC FREE LICENSE as available at
6* http://www.enq.ufrgs.br/alsoc.
7*
8* EMSO Copyright (C) 2004 - 2007 ALSOC, original code
9* from http://www.rps.eng.br Copyright (C) 2002-2004.
10* All rights reserved.
11*
12* EMSO is distributed under the therms of the ALSOC LICENSE as
13* available at http://www.enq.ufrgs.br/alsoc.
14*
15*--------------------------------------------------------------------
16* Sample file for tanks model
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm DEMO(www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Paula B. Staudt
23* $Id: sample_tank.mso 88 2006-12-11 13:31:56Z paula $
24*--------------------------------------------------------------------*#
25using "stage_separators/tank";
26
27FlowSheet tank_Test
28        PARAMETERS
29        PP      as CalcObject(Brief="Physical Properties",File="vrpp");
30        NComp   as Integer;
31        SET
32        PP.Components = ["methane", "isobutane", "benzene"];
33        PP.LiquidModel = "PR";
34        PP.VapourModel = "PR";
35        NComp = PP.NumberOfComponents;
36       
37        VARIABLES
38        Qtank as heat_rate (Brief="Heat rate supplied to tank");
39       
40        DEVICES
41        t as tank;
42        s as stream_therm;
43       
44        CONNECTIONS
45        s to t.Inlet;
46        Qtank to t.Q;
47       
48        SPECIFY
49        s.P = 480 * "kPa";
50        s.T = 310 * "K";
51        s.F = 180 * "kmol/h";
52        s.z = 1.0/NComp;
53        s.v = 0.698;
54       
55        Qtank = 0 * "J/s";
56        t.Outlet.F = 179 * "kmol/h";
57       
58        SET
59        t.Across = 2.20 * "m^2";
60       
61        INITIAL
62        t.Outlet.T = 305 *"K";
63        t.Level = 0.5 * "m";
64        t.Outlet.z([1:2]) = 1.0/NComp;
65       
66        OPTIONS
67        relativeAccuracy = 1e-5;
68        time = [0:100:1000];
69end
70
71FlowSheet tank_cylindrical_Test
72        PARAMETERS
73        PP      as CalcObject(Brief="Physical Properties",File="vrpp");
74        NComp   as Integer;
75        SET
76        PP.Components = ["methane", "isobutane", "benzene"];
77        PP.LiquidModel = "PR";
78        PP.VapourModel = "PR";
79        NComp = PP.NumberOfComponents;
80
81        VARIABLES
82        Qtank as heat_rate (Brief="Heat rate supplied to tank");
83       
84        DEVICES
85        t as tank_cylindrical;
86        s as stream_therm;
87       
88        CONNECTIONS
89        s to t.Inlet;
90        Qtank to t.Q;
91       
92        SPECIFY
93        s.F = 500 * "kmol/h";
94        s.T = 300 * "K";
95        s.P = 400 * "kPa";
96        s.z = 1/NComp;
97        s.v = 0.368;
98
99        Qtank = 0 * "J/s";
100        t.Outlet.F = 490 * "kmol/h";
101       
102        SET
103        t.radius = 0.9 * "m";
104        t.L = 7.12 * "m";
105       
106        INITIAL
107        t.Outlet.T = 280*"K";
108        t.Level = 1 * "m";
109        t.Outlet.z([1:2]) = 1.0/NComp;
110       
111        OPTIONS
112        relativeAccuracy = 1e-5;
113        time = [0:100:1000];
114end
Note: See TracBrowser for help on using the repository browser.