source: trunk/sample/heat_exchangers/Sample_HairpinInc.mso @ 492

#*-------------------------------------------------------------------
* EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC.
*
* This LIBRARY is free software; you can distribute it and/or modify
* it under the therms of the ALSOC FREE LICENSE as available at
* http://www.enq.ufrgs.br/alsoc.
*
* EMSO Copyright (C) 2004 - 2007 ALSOC, original code
* from http://www.rps.eng.br Copyright (C) 2002-2004.
* All rights reserved.
*
* EMSO is distributed under the therms of the ALSOC LICENSE as
* available at http://www.enq.ufrgs.br/alsoc.
*
*--------------------------------------------------------------------
* Sample file for Hairpin Heat Exchanger - Incremental approach
*--------------------------------------------------------------------
* 
* This sample file needs VRTherm (www.vrtech.com.br) to run.
*
*----------------------------------------------------------------------
* Author: Gerson B. Bicca
* $Id: Sample_HairpinIncr.mso                   $
*--------------------------------------------------------------------*#

using "heat_exchangers/HairpinIncr";

FlowSheet Hairpin_Incremental

PARAMETERS
        PP                      as Plugin (Type ="PP", LiquidModel = "PR", VapourModel = "PR",Components = ["aniline","benzene"]);
        NComp   as Integer;
        
DEVICES

        Pipe    as HairpinIncr;
        InletHot        as simple_source; 
        InletCold       as simple_source; 
        OutletHot       as simple_sink;
        OutletCold      as simple_sink;
        
        
CONNECTIONS

        InletCold.Outlet                                        to Pipe.LowerPipe.InletInner;
        InletHot.Outlet                                 to Pipe.UpperPipe.InletOuter;
        
        Pipe.LowerPipe.OutletOuter      to OutletHot.Inlet;
        Pipe.UpperPipe.OutletInner              to OutletCold.Inlet;
        
SET

NComp                   = PP.NumberOfComponents;

# Number of incremental points
        Pipe.N  =       8;

#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#   Options
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Pipe.UpperPipe.InnerTurbulentCorrelation        = "SiederTate";
Pipe.UpperPipe.InnerLaminarCorrelation     = "Schlunder";
Pipe.UpperPipe.OuterTurbulentCorrelation        = "SiederTate";
Pipe.UpperPipe.OuterLaminarCorrelation     = "Schlunder";

Pipe.LowerPipe.InnerTurbulentCorrelation        = "SiederTate";
Pipe.LowerPipe.InnerLaminarCorrelation     = "Schlunder";
Pipe.LowerPipe.OuterTurbulentCorrelation  = "SiederTate";
Pipe.LowerPipe.OuterLaminarCorrelation    = "Schlunder";
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# Double Pipe Geometrical Parameters and Alocation
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Pipe.DoInner                    =       42.16*'mm';
Pipe.DiInner                            =       35.05*'mm';
Pipe.DiOuter                            =       52.50*'mm';
Pipe.Kwall                              = 0.057 *'kW/m/K';
Pipe.Lpipe                                      =       9*'m';
Pipe.Donozzle_Inner  =  36.63*'mm';
Pipe.Dinozzle_Inner     =       36.63*'mm';
Pipe.Donozzle_Outer  =  42.72*'mm';
Pipe.Dinozzle_Outer     =       42.72*'mm';
Pipe.Rfi                                        = 0.00022*'m^2*K/W';
Pipe.Rfo                                        = 0.00018*'m^2*K/W';

SPECIFY
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#               Hot Stream
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        InletHot.Outlet.F       = 47.2038        * 'kmol/h';
        InletHot.Outlet.T       = 338.71   * 'K';
        InletHot.Outlet.P       = 413.685 * 'kPa';
        InletHot.Outlet.z       = [1,0];
        
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#       Cold Stream
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        InletCold.Outlet.F      = 58.0694       * 'kmol/h';
        InletCold.Outlet.T      = 288.71        * 'K';
        InletCold.Outlet.P      = 413.685 * 'kPa';
        InletCold.Outlet.z      = [0,1];
        
OPTIONS

Dynamic  = false;
GuessFile = "GuessHairpin_Incremental";

end