source: branches/newlanguage/sample/heat_exchangers/Eshell_Detailed_LMTD.mso @ 135

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

updated models and samples for the new language

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