source: branches/newlanguage/sample/heat_exchangers/sample_cooler.mso @ 137

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

Updated heat_exchangers sample file headers

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.8 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 model cooler
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm DEMO (www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Gerson B. Bicca
23* $Id: sample_cooler.mso 89 2006-12-11 15:26:11Z paula $
24*--------------------------------------------------------------------*#
25
26using "heat_exchangers/heater";
27
28FlowSheet Cooler_Project
29       
30DEVICES
31
32
33        cooler                  as Cooler;
34        streamcold1     as stream_therm;
35        streamcold2     as stream_therm;
36       
37CONNECTIONS
38
39        streamcold1     to cooler.Inlet(1);
40        streamcold2     to cooler.Inlet(2);
41       
42PARAMETERS
43
44        PP                      as CalcObject (File="vrpp");
45        NComp           as Integer;
46       
47SET
48
49        PP.LiquidModel  = "RK";
50        PP.VapourModel  = "RK";
51       
52        PP.Components   = ["water","ethanol"];
53        NComp                   = PP.NumberOfComponents;
54        cooler.Ninlet   = 2;
55
56SPECIFY
57
58        streamcold1.F           = 100   * "kmol/h";
59        streamcold1.P           = 1     * "atm";
60        streamcold1.T           = 100   * "K";
61        streamcold1.v           = 0;
62    streamcold1.z               = [1,0];
63
64        streamcold2.F           = 20* "kmol/h";
65        streamcold2.P           = 1     * "atm";
66        streamcold2.T           = 100   * "K";
67        streamcold2.v           = 0;
68    streamcold2.z               = [0,1];
69       
70        cooler.Outlet.T         = 70*"K";
71        cooler.Outlet.P         = 1 * "atm";
72
73OPTIONS
74        mode                    = "steady";
75        relativeAccuracy        = 1e-8;
76       
77end
78
Note: See TracBrowser for help on using the repository browser.