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

Last change on this file since 841 was 650, checked in by Argimiro Resende Secchi, 15 years ago

Fixing convergence problems!
File size: 8.0 KB
RevLine 
[650]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.Tubes.Tubepasses                      = 2;
65exchanger.Shell.ShellID                 = 0.75  *'m';
66exchanger.Clearances.BundleToShell                      = 0.043  *'m';
67exchanger.Clearances.SealStrip                  = 2;
68exchanger.Shell.InletNozzleID    = 0.1937       *'m';
69exchanger.Shell.OutletNozzleID    = 0.1937      *'m';
70exchanger.Clearances.Honozzle_Shell    = 0.0225         *'m';
71exchanger.Clearances.Hinozzle_Shell    = 0.02155        *'m';
72#=====================================================================
73#       Tubes Geometrical Parameters
74#=====================================================================
75exchanger.Tubes.NumberOfTubes                   = 500;
76exchanger.Pattern                       = "Triangle";
77exchanger.Tubes.TubePitch                       = 0.0254        *'m';
78exchanger.Tubes.TubeLength                      = 5.5           *'m';
79exchanger.Tubes.TubeID                  = 0.013395  *'m';
80exchanger.Tubes.TubeOD                  = 0.015875  *'m';
81exchanger.Tubes.Kwall                           = 0.057         *'kW/m/K';
82exchanger.Tubes.InletNozzleID    = 0.203        *'m';
83exchanger.Tubes.OutletNozzleID          = 0.203         *'m';
84#=====================================================================
85#       Baffles Geometrical Parameters
86#=====================================================================
87exchanger.Clearances.BaffleToShell              = 0.0047        *'m';
88exchanger.Baffles.BaffleCut             = 30;
89exchanger.Clearances.TubeToBaffle       = 0.00039  *'m';
90exchanger.Baffles.NumberOfBaffles               = 6;
91
92#=====================================================================
93#       Fouling
94#=====================================================================
95exchanger.Tubes.Fouling = 0.001*'m^2*K/kW';
96exchanger.Shell.Fouling = 0.001*'m^2*K/kW';
97
98SPECIFY
99#============================================
100#   Hot Stream
101#============================================
102        streamhot_in.F  = 40    * 'mol/s';
103        streamhot_in.T  = 373* 'K';
104        streamhot_in.Composition        = [1]     ;
105        streamhot_in.P  = 740     * 'kPa';
106#============================================
107#   Cold Stream
108#============================================   
109        streamcold_in.F  = 75   * 'mol/s';
110        streamcold_in.T  = 333  * 'K';
111        streamcold_in.Composition   = [1];
112        streamcold_in.P  = 2210*'kPa';
113#=====================================================================
114#       Baffle Spacing
115#=====================================================================
116        exchanger.Baffles.Central_Spacing        = 0.622  *'m';
117        exchanger.Baffles.Inlet_Spacing= 0.807  *'m';
118
119OPTIONS
120
121Dynamic = false;
122NLASolver(RelativeAccuracy = 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  = "Bowmann";
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.Tubes.Tubepasses                      = 2;
166exchanger.Shell.ShellID                 = 0.75  *'m';
167exchanger.Clearances.BundleToShell                      = 0.043  *'m';
168exchanger.Clearances.SealStrip                  = 2;
169exchanger.Shell.InletNozzleID    = 0.1937       *'m';
170exchanger.Shell.OutletNozzleID    = 0.1937      *'m';
171exchanger.Clearances.Honozzle_Shell    = 0.0225         *'m';
172exchanger.Clearances.Hinozzle_Shell    = 0.02155        *'m';
173#=====================================================================
174#       Tubes Geometrical Parameters
175#=====================================================================
176exchanger.Tubes.NumberOfTubes                   = 500;
177exchanger.Pattern                       = "Triangle";
178exchanger.Tubes.TubePitch                       = 0.0254        *'m';
179exchanger.Tubes.TubeLength                      = 5.5           *'m';
180exchanger.Tubes.TubeID                  = 0.013395  *'m';
181exchanger.Tubes.TubeOD                  = 0.015875  *'m';
182exchanger.Tubes.Kwall                           = 0.057         *'kW/m/K';
183exchanger.Tubes.InletNozzleID    = 0.203        *'m';
184exchanger.Tubes.OutletNozzleID          = 0.203         *'m';
185#=====================================================================
186#       Baffles Geometrical Parameters
187#=====================================================================
188exchanger.Clearances.BaffleToShell              = 0.0047        *'m';
189exchanger.Baffles.BaffleCut             = 30;
190exchanger.Clearances.TubeToBaffle       = 0.00039  *'m';
191exchanger.Baffles.NumberOfBaffles               = 6;
192
193#=====================================================================
194#       Fouling
195#=====================================================================
196exchanger.Tubes.Fouling = 0.001*'m^2*K/kW';
197exchanger.Shell.Fouling = 0.001*'m^2*K/kW';
198
199SPECIFY
200#============================================
201#   Hot Stream
202#============================================
203        streamhot_in.F  = 40    * 'mol/s';
204        streamhot_in.T  = 373* 'K';
205        streamhot_in.Composition        = [1]     ;
206        streamhot_in.P  = 740     * 'kPa';
207#============================================
208#   Cold Stream
209#============================================   
210        streamcold_in.F  = 75   * 'mol/s';
211        streamcold_in.T  = 333  * 'K';
212        streamcold_in.Composition   = [1];
213        streamcold_in.P  = 2210*'kPa';
214#=====================================================================
215#       Baffle Spacing
216#=====================================================================
217        exchanger.Baffles.Central_Spacing        = 0.622  *'m';
218        exchanger.Baffles.Inlet_Spacing= 0.807  *'m';
219
220OPTIONS
221
222Dynamic = false;
223NLASolver(RelativeAccuracy = 1e-6);
224GuessFile = "GuessDetailed";
225end
226
Note: See TracBrowser for help on using the repository browser.