source: branches/newlanguage/sample/heat_exchangers/sample_ShellandTubes.mso @ 231

Last change on this file since 231 was 231, checked in by gerson bicca, 15 years ago

updated simplified heat exchangers models to incorporate phase change

File size: 3.6 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 simplified Shell and Tubes Heat Exchanger
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm (www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Gerson B. Bicca
23* $Id: sample_ShellandTubes.mso 100 2007-01-09 14:15:56Z bicca $
24*--------------------------------------------------------------------*#
25using "heat_exchangers/HeatExchangerSimplified";
26
27FlowSheet ShellandTubes_NTU
28
29PARAMETERS
30
31        PP              as Plugin (Brief="Physical Properties",Type="PP",LiquidModel = "PR",VapourModel = "PR",
32                                                                Components      = ["water","n-butane", "benzene" ]);
33        NComp   as Integer;
34       
35DEVICES
36
37        exchanger        as Shell_and_Tubes_NTU;
38        streamhot        as source;
39        streamcold  as source;
40        OutCold      as sink;
41        OutHot       as sink;
42
43SET
44
45        NComp                           = PP.NumberOfComponents;
46
47        exchanger.ShellType             = "Fshell";
48
49CONNECTIONS
50
51        streamhot.Outlet        to exchanger.InletHot;
52        streamcold.Outlet       to exchanger.InletCold;
53
54        exchanger.OutletHot  to OutHot.Inlet;
55        exchanger.OutletCold to OutCold.Inlet;
56
57SPECIFY
58
59exchanger.Details.Ud                                            = 210*'W/(m^2*K)';
60exchanger.Details.Uc                                            = 210*'W/(m^2*K)';
61
62exchanger.HotSide.PressureDrop.Pdrop    = 0.1*'kPa';
63exchanger.ColdSide.PressureDrop.Pdrop           = 0.1*'kPa';
64
65streamhot.Outlet.F              = 36    * 'kmol/h';
66streamhot.Outlet.T              = 363.15   * 'K';
67streamhot.Outlet.P              = 120   * 'kPa';
68streamhot.Outlet.z              = [1,0,0];
69
70streamcold.Outlet.F             = 10 * 'kmol/h';
71streamcold.Outlet.P             = 120 * 'kPa';
72streamcold.Outlet.T             = 303.15 * 'K';
73streamcold.Outlet.z             = [0.1,0.7, 0.2];
74
75exchanger.Details.A     = 15*'m^2';
76       
77OPTIONS
78
79 Dynamic        = false;
80
81end
82
83FlowSheet ShellandTubes_LMTD
84
85PARAMETERS
86
87                PP              as Plugin (Brief="Physical Properties",Type="PP",LiquidModel = "PR",VapourModel = "PR",
88                                                                Components      = ["water","n-butane", "benzene" ]);
89        NComp   as Integer;
90       
91DEVICES
92
93        exchanger        as Shell_and_Tubes_LMTD;
94        streamhot        as source;
95        streamcold  as source;
96        OutCold      as sink;
97        OutHot       as sink;
98
99SET
100
101        NComp                           = PP.NumberOfComponents;
102
103        exchanger.LMTDcorrection = "Bowmann";
104        exchanger.ShellType             = "Fshell";
105       
106
107CONNECTIONS
108
109        streamhot.Outlet        to exchanger.InletHot;
110        streamcold.Outlet       to exchanger.InletCold;
111
112        exchanger.OutletHot  to OutHot.Inlet;
113        exchanger.OutletCold to OutCold.Inlet;
114
115SPECIFY
116
117exchanger.Details.Ud                                            = 210*'W/(m^2*K)';
118exchanger.Details.Uc                                            = 210*'W/(m^2*K)';
119
120exchanger.HotSide.PressureDrop.Pdrop    = 0.1*'kPa';
121exchanger.ColdSide.PressureDrop.Pdrop           = 0.1*'kPa';
122
123streamhot.Outlet.F              = 36    * 'kmol/h';
124streamhot.Outlet.T              = 363.15   * 'K';
125streamhot.Outlet.P              = 120   * 'kPa';
126streamhot.Outlet.z              = [1,0,0];
127
128streamcold.Outlet.F             = 10 * 'kmol/h';
129streamcold.Outlet.P             = 120 * 'kPa';
130streamcold.Outlet.T             = 303.15 * 'K';
131streamcold.Outlet.z             = [0.1,0.7, 0.2];
132
133exchanger.Details.A     = 15*'m^2';
134       
135OPTIONS
136
137 Dynamic        = false;
138 #GuessFile   = "GuessShellandTubes";
139
140end
Note: See TracBrowser for help on using the repository browser.