source: trunk/sample/heat_exchangers/Sample_LNG.mso @ 1009

Last change on this file since 1009 was 985, checked in by Argimiro Resende Secchi, 7 years ago
File size: 6.3 KB
RevLine 
[985]1
2#*-------------------------------------------------------------------
3* EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC.
4*
5* This LIBRARY is free software; you can distribute it and/or modify
6* it under the therms of the ALSOC FREE LICENSE as available at
7* http://www.enq.ufrgs.br/alsoc.
8*
9* EMSO Copyright (C) 2004 - 2007 ALSOC, original code
10* from http://www.rps.eng.br Copyright (C) 2002-2004.
11* All rights reserved.
12*
13* EMSO is distributed under the therms of the ALSOC LICENSE as
14* available at http://www.enq.ufrgs.br/alsoc.
15*
16*--------------------------------------------------------------------
17* Sample file with Multistream Heat Exchanger
18*--------------------------------------------------------------------
19*
20* This sample file needs VRTherm (www.vrtech.com.br) to run.
21*
22*----------------------------------------------------------------------
23* Author: Gerson B. Bicca
24* $Id: Sample_LNG.mso 650 2008-10-01 01:00:48Z arge $
25*--------------------------------------------------------------------*#
26
27using "heat_exchangers/heater";
28using "heat_exchangers/Mheatex";
29
30FlowSheet LNG_Process_With_Mheatex
31
32        PARAMETERS
33        PP as Plugin (
34           Brief="Physical Properties",
35           Type="PP",
36           Components = ["methane", "ethane", "propane", "isobutane", "n-butane", "isopentane", "n-pentane"],
37       LiquidModel = "PR",
38       VapourModel = "PR"
39        );
40        NComp   as Integer;
41
42DEVICES
43
44        Feed                                    as simple_source                (Brief= "Feed Plant");
45        HotOne                  as simple_source                (Brief= "Hot Stream");
46        ColdOne                 as simple_source                (Brief= "Cold Stream 1");
47        ColdTwo                 as simple_source                (Brief= "Cold Stream 2");
48       
49        Feed_out                as simple_sink                  (Brief= "Feed Stream Out");
50        HotOne_out              as simple_sink                  (Brief= "Hot Stream Out");
51        ColdOne_out                     as simple_sink                  (Brief= "Cold Stream 1 Out");
52        ColdTwo_out                     as simple_sink                  (Brief= "Cold Stream 2 Out");
53       
54        LNG                     as Mheatex      (Brief= "LNG Heat Exchanger");
55
56SET
57
58        NComp = PP.NumberOfComponents;
59
60        LNG.Nhot     = 2;
61    LNG.Ncold   = 2;
62
63        LNG.FlowDirection  = "counter";
64
65CONNECTIONS
66
67        Feed.Outlet                                     to LNG.InletHot(1);
68        HotOne.Outlet                           to LNG.InletHot(2);
69       
70        ColdOne.Outlet                  to LNG.InletCold(1);
71        ColdTwo.Outlet                  to LNG.InletCold(2);
72
73        LNG.OutletHot(1)                        to Feed_out.Inlet;
74        LNG.OutletHot(2)                        to HotOne_out.Inlet;
75       
76        LNG.OutletCold(1)                       to ColdOne_out.Inlet;
77        LNG.OutletCold(2)                       to ColdTwo_out.Inlet;
78
79        SPECIFY
80
81#Streams Specification
82
83        Feed.F = 1000.00 * 'kmol/h';
84        Feed.T_Cdeg = 20 * 'K';
85        Feed.P = 500.00 * 'kPa';
86        Feed.MolarComposition = [0.5386,0.1538,0.0769,0.0692,0.0615,0.0538,0.0462];
87       
88        HotOne.F = 50.00 * 'kmol/h';
89        HotOne.T_Cdeg = 30 * 'K';
90        HotOne.P = 5000.00 * 'kPa';
91        HotOne.MolarComposition = [0.9500,0.0500,0.0,0.0,0.0,0.0,0.0];
92
93        ColdOne.F = 75.00 * 'kmol/h';
94        ColdOne.T_Cdeg = -87 * 'K';
95        ColdOne.P = 2000.00 * 'kPa';
96        ColdOne.MolarComposition = [0.9500,0.0500,0.0,0.0,0.0,0.0,0.0];
97
98        ColdTwo.F = 904.2282* 'kmol/h';
99        ColdTwo.T_Cdeg = -78 * 'K';
100        ColdTwo.P = 250.00 * 'kPa';
101        ColdTwo.MolarComposition = [0.020,0.98,0.0,0.0,0.0,0.0,0.0];
102
103#LNG Specification
104
105        LNG.OutletHot(2).T = (25.0+273.15) * 'K';
106        LNG.OutletHot(2).P = 4990.00 * 'kPa';
107       
108        LNG.OutletCold(1).T = (21.65+273.15) * 'K';
109        LNG.OutletCold(1).P = 1950.00 * 'kPa';
110       
111        LNG.OutletCold(2).T= (-70+273.15) * 'K';
112        LNG.OutletCold(2).P = 245.00 * 'kPa';
113       
114        LNG.OutletHot(1).P = 500.00 * 'kPa';
115       
116        LNG.Method.Fc = 1;
117
118OPTIONS
119        Dynamic         = false;
120
121end
122
123FlowSheet LNG_Process_With_Heater
124
125        PARAMETERS
126        PP as Plugin (
127           Brief="Physical Properties",
128           Type="PP",
129           Components = ["methane", "ethane", "propane", "isobutane", "n-butane", "isopentane", "n-pentane"],
130       LiquidModel = "PR",
131       VapourModel = "PR"
132        );
133        NComp   as Integer;
134
135DEVICES
136        Heat1                           as energy_source;
137        Heat2                           as energy_source;
138        Heat3                           as energy_source;
139        Heat4                           as energy_source;
140       
141        Feed                                    as simple_source                (Brief= "Feed Plant");
142        HotOne                  as simple_source                (Brief= "Hot Stream");
143        ColdOne                 as simple_source                (Brief= "Cold Stream 1");
144        ColdTwo                 as simple_source                (Brief= "Cold Stream 2");
145       
146        Feed_out                as simple_sink                  (Brief= "Feed Stream Out");
147        HotOne_out              as simple_sink                  (Brief= "Hot Stream Out");
148        ColdOne_out                     as simple_sink                  (Brief= "Cold Stream 1 Out");
149        ColdTwo_out                     as simple_sink                  (Brief= "Cold Stream 2 Out");
150       
151        LNG1                    as heater       (Brief= "Heater Heat Exchanger");
152        LNG2                    as heater       (Brief= "Heater Heat Exchanger");
153        LNG3                    as heater       (Brief= "Heater Heat Exchanger");
154        LNG4                    as heater       (Brief= "Heater Heat Exchanger");
155
156SET
157
158        NComp = PP.NumberOfComponents;
159
160        LNG1.Kvalues            = "no";
161        LNG2.Kvalues            = "no";
162        LNG3.Kvalues            = "no";
163        LNG4.Kvalues            = "no";
164
165CONNECTIONS
166
167        HotOne.Outlet                           to LNG1.Inlet;
168        ColdOne.Outlet                  to LNG2.Inlet;
169        ColdTwo.Outlet                  to LNG3.Inlet;
170        Feed.Outlet                                     to LNG4.Inlet;
171
172        LNG1.Outlet                                     to HotOne_out.Inlet;
173        LNG2.Outlet                                     to ColdOne_out.Inlet;
174        LNG3.Outlet                                     to ColdTwo_out.Inlet;
175        LNG4.Outlet                                     to Feed_out.Inlet;
176       
177        Heat1.OutletQ                           to LNG1.Heat;
178        Heat2.OutletQ                           to LNG2.Heat;
179        Heat3.OutletQ                           to LNG3.Heat;
180        Heat4.OutletQ                           to LNG4.Heat;
181
182        SPECIFY
183
184#Streams Specification
185
186        HotOne.F = 50.00 * 'kmol/h';
187        HotOne.T_Cdeg = 30.0 * 'K';
188        HotOne.P = 5000.00 * 'kPa';
189        HotOne.MolarComposition = [0.9500,0.0500,0.0,0.0,0.0,0.0,0.0];
190
191        ColdOne.F = 75.00 * 'kmol/h';
192        ColdOne.T_Cdeg = -87 * 'K';
193        ColdOne.P = 2000.00 * 'kPa';
194        ColdOne.MolarComposition = [0.9500,0.0500,0.0,0.0,0.0,0.0,0.0];
195
196        ColdTwo.F = 904.2282* 'kmol/h';
197        ColdTwo.T_Cdeg = -78 * 'K';
198        ColdTwo.P = 250.00 * 'kPa';
199        ColdTwo.MolarComposition = [0.020,0.98,0.0,0.0,0.0,0.0,0.0];
200       
201        Feed.F = 1000.00 * 'kmol/h';
202        Feed.T_Cdeg = 20.0 * 'K';
203        Feed.P = 500.00 * 'kPa';
204        Feed.MolarComposition = [0.5386,0.1538,0.0769,0.0692,0.0615,0.0538,0.0462];
205       
206#Heater Specification
207
208        LNG1.Outlet.T = (25.0+273.15) * 'K';
209        LNG1.Outlet.P = 4990.00 * 'kPa';
210       
211        LNG2.Outlet.T = (21.65+273.15) * 'K';
212        LNG2.Outlet.P = 1950.00 * 'kPa';
213       
214        LNG3.Outlet.T= (-70+273.15) * 'K';
215        LNG3.Outlet.P = 245.00 * 'kPa';
216       
217        LNG4.Outlet.P = 500.00 * 'kPa';
218
219EQUATIONS
220
221        Heat4.OutletQ = -sum(Heat2.OutletQ+Heat3.OutletQ)+Heat1.OutletQ;
222
223OPTIONS
224        Dynamic         = false;
225
226end
227
Note: See TracBrowser for help on using the repository browser.