source: mso/sample/heat_exchangers/Eshell_Detailed_LMTD.mso @ 69

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

added double pipe heat exchanger model and updated eml/heat_exchangers

File size: 3.2 KB
Line 
1
2#===============================================================
3#   Heat Exchanger TEMA E Shell - LMTD Method
4#===============================================================
5
6using "Heat_exchangers/HeatExchangerDetailed.mso";
7
8FlowSheet Exchanger_E_shell_Detailed_LMTD
9       
10DEVICES
11
12        exchanger               as E_Shell_LMTD_Det;
13        streamhot_in    as streamTP;
14        streamcold_in   as streamTP;
15       
16CONNECTIONS
17
18        streamhot_in    to exchanger.Inlet.Hot;
19        streamcold_in   to exchanger.Inlet.Cold;
20       
21PARAMETERS
22
23        PP                      as CalcObject   (File="vrpp");
24        NComp           as Integer;
25
26SET
27#===============================================================
28#   Heat Exchanger Options
29#===============================================================       
30        PP.Components           = ["water"];
31        PP.LiquidModel          = "RK";
32        PP.VapourModel          = "RK";
33        NComp                           = PP.NumberOfComponents;
34       
35        exchanger.HE.HotSide            = "Shell";
36
37#   LMTD Correction Factor
38        exchanger.HE.LMTDcorrection     = "Fakeri";
39#       exchanger.HE.LMTDcorrection     = "Bowmann";
40
41#   Heat Transfer Correlation
42#       exchanger.HE.LaminarFlow                = "Schlunder";
43#       exchanger.HE.TurbulentFlow              = "SiederTate";
44#       exchanger.HE.TransitionFlow     = "GnielinskiII";
45
46#=====================================================================
47#       Shell Geometrical Parameters
48#=====================================================================       
49exchanger.Tpass                         = 4;
50exchanger.Dishell               = 0.75  *"m";
51exchanger.Lcf                   = 0.043  *"m";
52exchanger.Nss                   = 1;
53exchanger.Donozzle_Shell    = 0.1937    *"m";
54exchanger.Dinozzle_Shell    = 0.1937    *"m";
55exchanger.Honozzle_Shell    = 0.0225    *"m";
56exchanger.Hinozzle_Shell    = 0.02155   *"m";
57
58#=====================================================================
59#       Tubes Geometrical Parameters
60#=====================================================================
61exchanger.Ntt                   = 500;
62exchanger.Pattern               = 30;
63exchanger.pitch                 = 0.0254        *"m";
64exchanger.Ltube                 = 5.5   *"m";
65exchanger.Ditube                = 0.013395  *"m";
66exchanger.Dotube                = 0.015875      *"m";
67exchanger.Kwall                         = 0.57          *"kW/m/K";
68exchanger.Donozzle_Tube     = 0.203     *"m";
69exchanger.Dinozzle_Tube         = 0.203         *"m";
70#=====================================================================
71#       Baffles Geometrical Parameters
72#=====================================================================
73exchanger.Lcd           = 0.0047        *"m";
74exchanger.Bc            = 25;
75exchanger.Ltd           = 0.00039  *"m";
76exchanger.Nb                    = 6;
77
78SPECIFY
79#============================================
80#   Hot Stream
81#============================================
82        streamhot_in.F  = 40    * "mol/s";
83        streamhot_in.T  = 400* "K";
84        streamhot_in.z  = [1]     ;
85        streamhot_in.P  = 740     * "kPa";
86#============================================
87#   Cold Stream
88#============================================   
89        streamcold_in.F  = 75                   * "mol/s";
90        streamcold_in.T  = 333   * "K";
91        streamcold_in.z  = [1];
92        streamcold_in.P  = 2210*"kPa";
93#=====================================================================
94#       Baffle Spacing
95#=====================================================================
96        exchanger.Baffles.Ls    = 0.622  *"m";
97        exchanger.Baffles.Lsi   = 0.807  *"m";
98
99OPTIONS
100
101 mode = "steady";
102
103end
Note: See TracBrowser for help on using the repository browser.