source: mso/sample/heat_exchangers/Eshell_Detailed_NTU.mso @ 100

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

updated

  • Property svn:keywords set to Id
File size: 4.0 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 a Heat Exchanger TEMA E Shell - NTU Method
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm (www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Gerson B. Bicca
23* $Id: Eshell_Detailed_NTU.mso 100 2007-01-09 14:15:56Z bicca $
24*--------------------------------------------------------------------*#
25
26using "heat_exchangers/HeatExchangerDetailed.mso";
27
28FlowSheet Exchanger_E_shell_Detailed_NTU
29       
30DEVICES
31        exchanger               as E_Shell_NTU_Det;
32        streamhot_in    as streamTP;
33        streamcold_in   as streamTP;
34       
35CONNECTIONS
36        streamhot_in    to exchanger.Inlet.Hot;
37        streamcold_in   to exchanger.Inlet.Cold;
38       
39PARAMETERS
40        PP                      as CalcObject   (File="vrpp");
41        NComp           as Integer;
42
43SET
44        PP.Components                   = ["benzene","toluene"];
45        exchanger.HE.HotSide    = "Shell";
46        PP.LiquidModel                  = "PR";
47        PP.VapourModel                  = "PR";
48        NComp                                   = PP.NumberOfComponents;
49       
50#   Heat Transfer Correlation
51        exchanger.HE.LaminarFlow                = "Schlunder";
52        exchanger.HE.TurbulentFlow              = "SiederTate";
53        exchanger.HE.TransitionFlow     = "GnielinskiII";
54
55#=====================================================================
56#       Shell Geometrical Parameters
57#=====================================================================   
58exchanger.Tpass                         = 4;
59exchanger.Dishell               = 0.75  *"m";
60exchanger.Lcf                   = 0.043 *"m";
61exchanger.Nss                   = 1;
62exchanger.Donozzle_Shell    = 0.1937  *"m";
63exchanger.Dinozzle_Shell    = 0.1937  *"m";
64exchanger.Honozzle_Shell    = 0.0225  *"m";
65exchanger.Hinozzle_Shell    = 0.02155 *"m";
66
67#=====================================================================
68#       Tubes Geometrical Parameters
69#=====================================================================
70exchanger.Ntt                   = 500;
71exchanger.Pattern               = 30;
72exchanger.pitch                 = 0.0254        *"m";
73exchanger.Ltube                 = 5.5           *"m";
74exchanger.Ditube                = 0.013395  *"m";
75exchanger.Dotube                = 0.015875  *"m";
76exchanger.Kwall                         = 0.057         *"kW/m/K";
77exchanger.Donozzle_Tube     = 0.203     *"m";
78exchanger.Dinozzle_Tube         = 0.203         *"m";
79#=====================================================================
80#       Baffles Geometrical Parameters
81#=====================================================================
82exchanger.Lcd           = 0.0047        *"m";
83exchanger.Bc            = 25;
84exchanger.Ltd           = 0.00039  *"m";
85exchanger.Nb                    = 6;
86
87SPECIFY
88#============================================
89#   Hot Stream
90#============================================
91        streamhot_in.F  = 40            * "mol/s";
92        streamhot_in.T  = 393.15        * "K";
93        streamhot_in.z  = [1,0];
94        streamhot_in.P  = 740           * "kPa";
95#============================================
96#   Cold Stream
97#============================================   
98        streamcold_in.F  = 122          * "mol/s";
99        streamcold_in.T  = 333.15   * "K";
100        streamcold_in.z  = [0,1];
101        streamcold_in.P  = 2210         *"kPa";
102#=====================================================================
103#       Baffle Spacing
104#=====================================================================
105        exchanger.Baffles.Ls    = 0.622  *"m";
106        exchanger.Baffles.Lsi   = 0.807  *"m";
107#=====================================================================
108#       Fouling
109#=====================================================================
110exchanger.Resistances.Rfi = 0.0018*"m^2*K/kW";
111exchanger.Resistances.Rfo = 0.0021*"m^2*K/kW";
112
113OPTIONS
114
115 mode   = "steady";
116
117end
118
Note: See TracBrowser for help on using the repository browser.