source: trunk/sample/heat_exchangers/Sample_PHE.mso @ 524

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

improved the plate heat exchanger model
File size: 2.9 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 Plate Heat Exchanger
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm Demo (www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Gerson B. Bicca
23* $Id: Sample_PHE.mso 157 2007-02-07 13:44:17Z rafael $
24*--------------------------------------------------------------------*#
25
26using "heat_exchangers/PHE";
27
28FlowSheet Plate_and_Frame
29
30PARAMETERS
31        PP                      as Plugin (Type ="PP", LiquidModel = "PR", VapourModel = "PR",
32                                                                        Components = ["water"]);
33        NComp           as Integer;
34       
35DEVICES
36
37        exchanger as PHE;
38        InletHot        as source;
39        InletCold   as source;
40
41CONNECTIONS
42
43        InletHot.Outlet                 to exchanger.InletHot;
44        InletCold.Outlet                        to exchanger.InletCold;
45
46SET
47
48NComp   = PP.NumberOfComponents;
49
50exchanger.SideOne = "cold";
51
52#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
53# PHE Geometrical Parameters and Alocation
54#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
55        exchanger.ChevronAngle  =       "A60_Deg";
56        exchanger.Geometry.Nplates                              = 129;
57        exchanger.Geometry.NpassHot                     = 4;
58        exchanger.Geometry.NpassCold                    = 2;
59        exchanger.Geometry.Dports                               = 15*'cm';
60        exchanger.Geometry.PhiFactor                    = 1.17;
61        exchanger.Geometry.Lv                                                   = 155*'cm';
62        exchanger.Geometry.Lw                                           = 70*'cm';
63        exchanger.Geometry.pitch                                        = 3.7*'mm';
64        exchanger.Geometry.pt                                                   = 0.70*'mm';
65        exchanger.Geometry.Kwall                                = 17 *'W/m/K';
66#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
67#       Fouling
68#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
69exchanger.Geometry.Rfc= 3.4e-5*'m^2*K/W';
70exchanger.Geometry.Rfh = 9e-6*'m^2*K/W';
71
72SPECIFY
73#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
74#               Hot Stream
75#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
76        InletHot.Fw                     = 21                    * 'kg/s';
77        InletHot.Outlet.T       = (87+273.15)   * 'K';
78        InletHot.Outlet.P       = 2                     * 'atm';
79        InletHot.Outlet.z       = [1];
80       
81#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
82#       Cold Stream
83#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
84        InletCold.Fw                            = 62.5                          * 'kg/s';
85        InletCold.Outlet.P              = 2                     * 'atm';
86        InletCold.Outlet.T              = (20+273.15)   * 'K';
87    InletCold.Outlet.z          = [1];
88
89OPTIONS
90
91Dynamic  = false;
92GuessFile = "GuessPHE";
93
94end
95
Note: See TracBrowser for help on using the repository browser.