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

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

updated

  • Property svn:keywords set to Id
File size: 4.8 KB
RevLine 
[100]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 model E_Shell_NTU_Disc
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm (www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Gerson B. Bicca
23* $Id: Eshell_Discretized_NTU.mso 100 2007-01-09 14:15:56Z bicca $
24*--------------------------------------------------------------------*#
25using "heat_exchangers/HeatExchangerDiscretized.mso";
26
27       
28FlowSheet E_Shell_Discretized_NTU
29       
30DEVICES
31#===============================================================
32#    Definições do equipamento e das correntes
33#===============================================================
34        exchanger               as E_Shell_NTU_Disc;
35        streamhot_in    as stream_therm;
36        streamcold_in   as stream_therm;
37       
38CONNECTIONS
39#===============================================================
40#    Conexões do equipamento e das correntes
41#===============================================================
42        streamhot_in    to exchanger.Unity(1).Inlet.Hot;
43        streamcold_in   to exchanger.Unity(7).Inlet.Cold;
44       
45PARAMETERS
46#===============================================================
47#    Parâmetros
48#===============================================================
49        PP                      as CalcObject   (File="vrpp");
50        NComp           as Integer;
51       
52SET
53#===============================================================
54#    Fluidos e Alocação
55#===============================================================
56        PP.Components           = ["benzene","toluene"];
57        exchanger.HE.HotSide            = "Shell";
58        exchanger.HE.TurbulentFlow      = "SiederTate";
59        PP.LiquidModel          = "RK";
60        PP.VapourModel          = "RK";
61        NComp                           = PP.NumberOfComponents;
62#=====================================================================
63#       Parâmetros geométricos do casco
64#=====================================================================   
65exchanger.Tpass                         = 4;
66exchanger.Dishell               = 0.75                  *"m";
67exchanger.Lcf                   = 0.043  *"m";
68exchanger.Nss                   = 1;
69exchanger.Donozzle_Shell    = 0.1937    *"m";
70exchanger.Dinozzle_Shell    = 0.1937    *"m";
71exchanger.Honozzle_Shell    = 0.0225    *"m";
72exchanger.Hinozzle_Shell    = 0.02155   *"m";
73
74#=====================================================================
75#       Parâmetros geométricos dos tubos
76#=====================================================================
77exchanger.Ntt                   = 500;
78exchanger.Pattern               = 30;
79exchanger.pitch                 = 0.0254        *"m";
80exchanger.Ltube                 = 5.5   *"m";
81exchanger.Ditube                = 0.013395  *"m";
82exchanger.Dotube                = 0.015875      *"m";
83exchanger.Kwall                         = 0.57          *"kW/m/K";
84exchanger.Donozzle_Tube     = 0.203     *"m";
85exchanger.Dinozzle_Tube         = 0.203         *"m";
86#=====================================================================
87#       Parâmetros geométricos dos defletores
88#=====================================================================
89exchanger.Lcd           = 0.0047        *"m";
90exchanger.Bc            = 25;
91exchanger.Ltd           = 0.00039  *"m";
92exchanger.Nb                    = 6;
93
94SPECIFY
95#============================================
96#   Corrente Quente
97#============================================
98        streamhot_in.F  = 40    * "mol/s";
99        streamhot_in.T  = 393.15* "K";
100        streamhot_in.v  = 0    ;
101        streamhot_in.z  = [1,0]     ;
102        streamhot_in.P  = 740     * "kPa";
103#============================================
104#   Corrente Fria
105#============================================   
106        streamcold_in.F  = 122                  * "mol/s";
107        streamcold_in.T  = 333.15   * "K";
108        streamcold_in.v  = 0;
109        streamcold_in.z  = [0,1];
110        streamcold_in.P  = 2210*"kPa";
111#=====================================================================
112#       Espaçamento dos Defletores
113#=====================================================================
114        exchanger.Unity.Baffles.Ls      = 0.622         *"m";
115        exchanger.Unity.Baffles.Lsi     = 0.807  *"m";
116#=====================================================================
117#       Fouling
118#=====================================================================
119exchanger.Unity.Resistances.Rfi = 0*"m^2*K/kW";
120exchanger.Unity.Resistances.Rfo = 0*"m^2*K/kW";
121
122OPTIONS
123#============================================
124#   Simulation Options
125#============================================
126 mode = "steady";
127guessFile = "E_Shell_Discretized_NTU";
128end
Note: See TracBrowser for help on using the repository browser.