source: trunk/sample/heat_exchangers/sample_Detailed.mso @ 236

Last change on this file since 236 was 236, checked in by gerson bicca, 16 years ago

updated heat exchangers samples and models
File size: 7.3 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 Detailed 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_Detailed.mso 100 2007-01-09 14:15:56Z bicca $
24*--------------------------------------------------------------------*#
25using "heat_exchangers/HeatExchangerDetailed";
26
27FlowSheet sample_NTU
28       
29DEVICES
30
31        exchanger               as ShellandTubes_NTU;
32       
33        streamhot_in    as source;
34        streamcold_in   as source;
35       
36CONNECTIONS
37
38        streamhot_in.Outlet             to exchanger.InletShell;
39        streamcold_in.Outlet    to exchanger.InletTube;
40       
41PARAMETERS
42
43        PP      as Plugin       (Type ="PP" ,Components         = ["water"],LiquidModel = "PR", VapourModel     = "PR");
44       
45        NComp           as Integer;
46
47SET
48#===============================================================
49#   Heat Exchanger Options
50#===============================================================       
51       
52        NComp                           = PP.NumberOfComponents;
53       
54        exchanger.ShellType  = "Eshell";
55       
56#   Heat Transfer Correlation
57        exchanger.LaminarCorrelation            = "Schlunder";
58        exchanger.TurbulentCorrelation  = "SiederTate";
59        exchanger.TransitionCorrelation         = "Gnielinski";
60
61#=====================================================================
62#       Shell Geometrical Parameters
63#=====================================================================       
64exchanger.Tpass                 = 2;
65exchanger.Dishell               = 0.75  *'m';
66exchanger.Lcf                   = 0.043  *'m';
67exchanger.Nss                   = 2;
68exchanger.Donozzle_Shell    = 0.1937    *'m';
69exchanger.Dinozzle_Shell    = 0.1937    *'m';
70exchanger.Honozzle_Shell    = 0.0225    *'m';
71exchanger.Hinozzle_Shell    = 0.02155   *'m';
72#=====================================================================
73#       Tubes Geometrical Parameters
74#=====================================================================
75exchanger.Ntt                   = 500;
76exchanger.Pattern                       = "30";
77exchanger.pitch                         = 0.0254        *'m';
78exchanger.Ltube                 = 5.5           *'m';
79exchanger.Ditube                = 0.013395  *'m';
80exchanger.Dotube                = 0.015875  *'m';
81exchanger.Kwall                         = 0.057         *'kW/m/K';
82exchanger.Donozzle_Tube     = 0.203     *'m';
83exchanger.Dinozzle_Tube         = 0.203         *'m';
84#=====================================================================
85#       Baffles Geometrical Parameters
86#=====================================================================
87exchanger.Lcd           = 0.0047        *'m';
88exchanger.Bc            = 30;
89exchanger.Ltd           = 0.00039  *'m';
90exchanger.Nb            = 6;
91
92#=====================================================================
93#       Fouling
94#=====================================================================
95exchanger.Rfi = 0.001*'m^2*K/kW';
96exchanger.Rfo = 0.001*'m^2*K/kW';
97
98SPECIFY
99#============================================
100#   Hot Stream
101#============================================
102        streamhot_in.Outlet.F   = 40    * 'mol/s';
103        streamhot_in.Outlet.T   = 373* 'K';
104        streamhot_in.Outlet.z   = [1]     ;
105        streamhot_in.Outlet.P   = 740     * 'kPa';
106#============================================
107#   Cold Stream
108#============================================   
109        streamcold_in.Outlet.F  = 75   * 'mol/s';
110        streamcold_in.Outlet.T  = 333  * 'K';
111        streamcold_in.Outlet.z  = [1];
112        streamcold_in.Outlet.P  = 2210*'kPa';
113#=====================================================================
114#       Baffle Spacing
115#=====================================================================
116        exchanger.Baffles.Ls     = 0.622  *'m';
117        exchanger.Baffles.Lsi = 0.807  *'m';
118
119OPTIONS
120
121Dynamic = false;
122RelativeAccuracy = 1e-6;
123GuessFile = "GuessDetailed";
124end
125
126FlowSheet sample_LMTD
127       
128DEVICES
129
130        exchanger               as ShellandTubes_LMTD;
131       
132        streamhot_in    as source;
133        streamcold_in   as source;
134       
135CONNECTIONS
136
137        streamhot_in.Outlet             to exchanger.InletShell;
138        streamcold_in.Outlet    to exchanger.InletTube;
139       
140PARAMETERS
141
142        PP      as Plugin       (Type ="PP" ,Components         = ["water"],LiquidModel = "PR", VapourModel     = "PR");
143       
144        NComp           as Integer;
145
146SET
147#===============================================================
148#   Heat Exchanger Options
149#===============================================================       
150       
151        NComp                           = PP.NumberOfComponents;
152       
153        exchanger.ShellType  = "Eshell";
154       
155exchanger.LMTDcorrection  = "Fakeri";
156
157#   Heat Transfer Correlation
158        exchanger.LaminarCorrelation            = "Schlunder";
159        exchanger.TurbulentCorrelation  = "SiederTate";
160        exchanger.TransitionCorrelation         = "Gnielinski";
161
162#=====================================================================
163#       Shell Geometrical Parameters
164#=====================================================================       
165exchanger.Tpass                 = 2;
166exchanger.Dishell               = 0.75  *'m';
167exchanger.Lcf                   = 0.043  *'m';
168exchanger.Nss                   = 2;
169exchanger.Donozzle_Shell    = 0.1937    *'m';
170exchanger.Dinozzle_Shell    = 0.1937    *'m';
171exchanger.Honozzle_Shell    = 0.0225    *'m';
172exchanger.Hinozzle_Shell    = 0.02155   *'m';
173#=====================================================================
174#       Tubes Geometrical Parameters
175#=====================================================================
176exchanger.Ntt                   = 500;
177exchanger.Pattern                       = "30";
178exchanger.pitch                         = 0.0254        *'m';
179exchanger.Ltube                 = 5.5           *'m';
180exchanger.Ditube                = 0.013395  *'m';
181exchanger.Dotube                = 0.015875  *'m';
182exchanger.Kwall                         = 0.057         *'kW/m/K';
183exchanger.Donozzle_Tube     = 0.203     *'m';
184exchanger.Dinozzle_Tube         = 0.203         *'m';
185#=====================================================================
186#       Baffles Geometrical Parameters
187#=====================================================================
188exchanger.Lcd           = 0.0047        *'m';
189exchanger.Bc            = 30;
190exchanger.Ltd           = 0.00039  *'m';
191exchanger.Nb            = 6;
192
193#=====================================================================
194#       Fouling
195#=====================================================================
196exchanger.Rfi = 0.001*'m^2*K/kW';
197exchanger.Rfo = 0.001*'m^2*K/kW';
198
199SPECIFY
200#============================================
201#   Hot Stream
202#============================================
203        streamhot_in.Outlet.F   = 40    * 'mol/s';
204        streamhot_in.Outlet.T   = 373* 'K';
205        streamhot_in.Outlet.z   = [1]     ;
206        streamhot_in.Outlet.P   = 740     * 'kPa';
207#============================================
208#   Cold Stream
209#============================================   
210        streamcold_in.Outlet.F  = 75   * 'mol/s';
211        streamcold_in.Outlet.T  = 333  * 'K';
212        streamcold_in.Outlet.z  = [1];
213        streamcold_in.Outlet.P  = 2210*'kPa';
214#=====================================================================
215#       Baffle Spacing
216#=====================================================================
217        exchanger.Baffles.Ls     = 0.622  *'m';
218        exchanger.Baffles.Lsi = 0.807  *'m';
219
220OPTIONS
221
222Dynamic = false;
223RelativeAccuracy = 1e-6;
224GuessFile = "GuessDetailed";
225end
226
Note: See TracBrowser for help on using the repository browser.