Ignore:
Timestamp:
Jan 25, 2007, 6:00:26 PM (16 years ago)
Author:
gerson bicca
Message:

updated models and samples for the new language

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/newlanguage/eml/heat_exchangers/HeatExchangerDetailed.mso

    r132 r135  
    2525
    2626Model HeatExchangerDetailed_Basic
    27        
     27
     28ATTRIBUTES
     29        Pallete = false;
     30        Brief = "write some information";
     31        Info =
     32        "write some information";
     33
    2834PARAMETERS
    2935
    30 outer PP                as Plugin       (Brief="External Physical Properties");
     36outer PP                as Plugin               (Brief="External Physical Properties");
    3137outer NComp     as Integer      (Brief="Number of Components");
    32         HE              as Plugin       (Brief="STHE Calculations",File="heatex");
    33         M(NComp)        as molweight    (Brief="Component Mol Weight");
     38                HE              as Plugin               (Brief="STHE Calculations",File="heatex");
     39                M(NComp)  as molweight  (Brief="Component Mol Weight");
    3440       
    3541VARIABLES
    3642
    37 in  Inlet               as Inlet_Main_Stream;   
    38 out Outlet              as Outlet_Main_Stream; 
    39         Properties      as Main_Properties;             
    40         Details                 as Details_Main;
    41         Tubes                   as Tube_Side_Main;     
    42         Shell                   as Shell_Side_Main;
    43         Resistances     as Main_Resistances;
    44         Baffles         as Baffles_Main;
     43in      Inlet                   as Inlet_Main_Stream;   
     44out     Outlet                  as Outlet_Main_Stream; 
     45                Properties              as Main_Properties;             
     46                Details                 as Details_Main;
     47                Tubes                           as Tube_Side_Main;     
     48                Shell                           as Shell_Side_Main;
     49                Resistances     as Main_Resistances;
     50                Baffles                 as Baffles_Main;
    4551
    4652SET
     53
    4754        M   = PP.MolecularWeight();
    4855
     
    5057
    5158#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    52 #                                               Properties                                                                      #
     59#                                               Properties                                                                                                                                                                     
    5360#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    5461
     
    341348end
    342349
    343 
    344 Model Heatex_Detailed           as HeatExchangerDetailed_Basic
    345 
     350Model Heatex_Detailed          as HeatExchangerDetailed_Basic
     351
     352ATTRIBUTES
     353        Pallete = false;
     354        Brief = "write some information";
     355        Info =
     356        "write some information";
     357       
    346358PARAMETERS
    347359
    348 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    349 #                               Basic  Parameters                                                                       #
    350 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    351 outer PP                as Plugin       (Brief="External Physical Properties");
    352 side        as Integer          (Brief="Fluid Alocation Flag",Lower=0,Upper=1);
    353 Pi                      as constant     (Brief="Pi Number",Default=3.14159265);
    354 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    355 #                               Shell Geometrical Parameters                                            #
    356 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    357 Tpass                   as Integer              (Brief="Number of Tube Passes",Lower=1);
    358 Nss                             as Integer              (Brief="Number of Sealing Strips pairs",Lower=1);
    359 Dishell                 as length               (Brief="Inside Shell Diameter",Lower=10e-6);
    360 Donozzle_Shell  as length               (Brief="Shell Outlet Nozzle Diameter",Lower=10e-6);
    361 Dinozzle_Shell  as length               (Brief="Shell Inlet Nozzle Diameter",Lower=10e-6);
    362 Aonozzle_Shell  as area                 (Brief="Shell Outlet Nozzle Area",Lower=10e-6);
    363 Ainozzle_Shell  as area                 (Brief="Shell Inlet Nozzle Area",Lower=10e-6);
    364 Aeonozzle_Shell as area                 (Brief="Shell Outlet Escape Area Under Nozzle",Lower=10e-6);
    365 Aeinozzle_Shell as area                 (Brief="Shell Inlet Escape Area Under Nozzle",Lower=10e-6);
    366 Hinozzle_Shell  as length               (Brief="Height Under Shell Inlet Nozzle",Lower=10e-6);
    367 Honozzle_Shell  as length               (Brief="Height Under Shell Outlet Nozzle",Lower=10e-6);
    368 Lcf                     as length               (Brief="Bundle-to-Shell Clearance",Lower=10e-8);
    369 
    370 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    371 #                               Tubes Geometrical Parameters                                            #
    372 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    373 Ntt                       as Integer            (Brief="Total Number of Tubes in Shell",Default=100,Lower=1);
    374 Pattern       as Integer                (Brief="Tube Layout Characteristic Angle",Lower=30);
    375 Ltube             as length                     (Brief="Effective Tube Length",Lower=0.1);
    376 pitch             as length                     (Brief="Tube Pitch",Lower=1e-8);
    377 Kwall             as conductivity       (Brief="Tube Wall Material Thermal Conductivity");
    378 Dotube            as length                     (Brief="Tube Outside Diameter",Lower=10e-6);
    379 Ditube            as length                     (Brief="Tube Inside Diameter",Lower=10e-6);
    380 Donozzle_Tube as length                 (Brief="Tube Outlet Nozzle Diameter",Lower=10e-6);
    381 Dinozzle_Tube as length                 (Brief="Tube Inlet Nozzle Diameter",Lower=10e-6);
    382 Aonozzle_Tube as area                   (Brief="Tube Outlet Nozzle Area",Lower=10e-6);
    383 Ainozzle_Tube as area                   (Brief="Tube Inlet Nozzle Area",Lower=10e-6);
    384 Kinlet_Tube   as positive               (Brief="Tube Inlet Nozzle Pressure Loss Coeff",Default=1.1);
    385 Koutlet_Tube  as positive               (Brief="Tube Outlet Nozzle Pressure Loss Coeff",Default=0.7);
    386 
    387 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    388 #                               Baffles Geometrical Parameters                                          #
    389 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    390 Bc     as Integer (Brief="Baffle Cut",Default=25,Lower=25);
    391 Nb     as Real    (Brief="Number of Baffles",Lower=1);
    392 Lcd    as length  (Brief="Baffle-to-Shell Clearance",Lower=10e-8);
    393 Ltd        as length  (Brief="Tube-to-Bafflehole Clearance",Lower=10e-8);
     360outer PP                as Plugin                (Brief="External Physical Properties");
     361                side        as Integer           (Brief="Fluid Alocation Flag",Lower=0,Upper=1);
     362                Pi                      as constant     (Brief="Pi Number",Default=3.14159265);
     363#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     364#                               Shell Geometrical Parameters                                           
     365#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     366Tpass                                   as Integer              (Brief="Number of Tube Passes",Lower=1);
     367Nss                                     as Integer              (Brief="Number of Sealing Strips pairs",Lower=1);
     368Dishell                                 as length               (Brief="Inside Shell Diameter",Lower=10e-6);
     369Donozzle_Shell          as length               (Brief="Shell Outlet Nozzle Diameter",Lower=10e-6);
     370Dinozzle_Shell          as length               (Brief="Shell Inlet Nozzle Diameter",Lower=10e-6);
     371Aonozzle_Shell          as area                 (Brief="Shell Outlet Nozzle Area",Lower=10e-6);
     372Ainozzle_Shell          as area                 (Brief="Shell Inlet Nozzle Area",Lower=10e-6);
     373Aeonozzle_Shell         as area                 (Brief="Shell Outlet Escape Area Under Nozzle",Lower=10e-6);
     374Aeinozzle_Shell         as area                 (Brief="Shell Inlet Escape Area Under Nozzle",Lower=10e-6);
     375Hinozzle_Shell          as length               (Brief="Height Under Shell Inlet Nozzle",Lower=10e-6);
     376Honozzle_Shell          as length               (Brief="Height Under Shell Outlet Nozzle",Lower=10e-6);
     377Lcf                                     as length               (Brief="Bundle-to-Shell Clearance",Lower=10e-8);
     378
     379#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     380#                               Tubes Geometrical Parameters                                           
     381#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     382Ntt                                     as Integer                      (Brief="Total Number of Tubes in Shell",Default=100,Lower=1);
     383Pattern                 as Integer                      (Brief="Tube Layout Characteristic Angle",Lower=30);
     384Ltube                                   as length                       (Brief="Effective Tube Length",Lower=0.1);
     385pitch                           as length                       (Brief="Tube Pitch",Lower=1e-8);
     386Kwall                                   as conductivity         (Brief="Tube Wall Material Thermal Conductivity");
     387Dotube                                  as length                       (Brief="Tube Outside Diameter",Lower=10e-6);
     388Ditube                          as length                       (Brief="Tube Inside Diameter",Lower=10e-6);
     389Donozzle_Tube   as length                       (Brief="Tube Outlet Nozzle Diameter",Lower=10e-6);
     390Dinozzle_Tube   as length                       (Brief="Tube Inlet Nozzle Diameter",Lower=10e-6);
     391Aonozzle_Tube   as area                         (Brief="Tube Outlet Nozzle Area",Lower=10e-6);
     392Ainozzle_Tube   as area                         (Brief="Tube Inlet Nozzle Area",Lower=10e-6);
     393Kinlet_Tube             as positive                     (Brief="Tube Inlet Nozzle Pressure Loss Coeff",Default=1.1);
     394Koutlet_Tube    as positive                     (Brief="Tube Outlet Nozzle Pressure Loss Coeff",Default=0.7);
     395
     396#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     397#                               Baffles Geometrical Parameters                                         
     398#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     399Bc      as Integer      (Brief="Baffle Cut",Default=25,Lower=25);
     400Nb      as Real         (Brief="Number of Baffles",Lower=1);
     401Lcd     as length       (Brief="Baffle-to-Shell Clearance",Lower=10e-8);
     402Ltd             as length       (Brief="Tube-to-Bafflehole Clearance",Lower=10e-8);
    394403
    395404SET
    396405
    397406#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    398 #             Set Parameters for heatex Calculation                                     #
    399 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    400         Pi                              = 3.14159265;
    401         HE.Tpass                        = Tpass;
    402         HE.Nss                          = Nss;
    403         HE.Ntt                          = Ntt;
    404         HE.Pattern                      = Pattern;
    405         HE.Bc                           = Bc;
     407#             Set Parameters for heatex Calculation                                     
     408#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     409        Pi                                              = 3.14159265;
     410        HE.Tpass                                = Tpass;
     411        HE.Nss                                  = Nss;
     412        HE.Ntt                                  = Ntt;
     413        HE.Pattern                              = Pattern;
     414        HE.Bc                                   = Bc;
    406415        HE.Donozzle_Shell       = Donozzle_Shell;
    407416        HE.Dinozzle_Shell       = Dinozzle_Shell;
     
    410419        HE.Donozzle_Tube        = Donozzle_Tube;
    411420        HE.Dinozzle_Tube        = Dinozzle_Tube;
    412         HE.Nb                       = Nb;
    413         HE.Dishell                      = Dishell;             
    414         HE.Lcf                          = Lcf; 
    415         HE.Ltube                        = Ltube;       
    416         HE.pitch                        = pitch;               
     421        HE.Nb                           = Nb;
     422        HE.Dishell                              = Dishell;             
     423        HE.Lcf                                  = Lcf; 
     424        HE.Ltube                                = Ltube;       
     425        HE.pitch                                = pitch;               
    417426        HE.Dotube                       = Dotube;       
    418         HE.Ditube                       = Ditube;       
    419         HE.Lcd                          = Lcd;
    420         HE.Ltd                          = Ltd;
    421         side                            = HE.FluidAlocation();
     427        HE.Ditube                               = Ditube;       
     428        HE.Lcd                                  = Lcd;
     429        HE.Ltd                                  = Ltd;
     430        side                                            = HE.FluidAlocation();
    422431       
    423432#"Tube Side Inlet Nozzle Area"
     
    440449       
    441450#"Shell Outlet Escape Area Under Nozzle"
    442         Aeonozzle_Shell = Pi*Donozzle_Shell*Honozzle_Shell + 0.6*Aonozzle_Shell*(1-Dotube/pitch);
     451        Aeonozzle_Shell = Pi*Donozzle_Shell*Honozzle_Shell + 0.6*Aonozzle_Shell*(1-(Dotube/pitch));
    443452       
    444453#"Shell Inlet Escape Area Under Nozzle"
    445         Aeinozzle_Shell = Pi*Dinozzle_Shell*Hinozzle_Shell + 0.6*Ainozzle_Shell*(1-Dotube/pitch);
     454        Aeinozzle_Shell = Pi*Dinozzle_Shell*Hinozzle_Shell + 0.6*Ainozzle_Shell*(1-(Dotube/pitch));
    446455       
    447456       
     
    449458
    450459#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    451 #                               Heat Transfer Correction Factors                                        #
     460#                               Heat Transfer Correction Factors                                       
    452461#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    453462"Ji Factor"
     
    470479
    471480#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    472 #                               Pressure Drop and Velocities                                    #
     481#                               Pressure Drop and Velocities                                   
    473482#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    474483
     
    549558
    550559#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    551 #                               Nozzles rho-V^2                                                                 #
     560#                               Nozzles rho-V^2                                                                 
    552561#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    553562
     
    573582
    574583#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    575 #                               Phi correction                                                                  #
     584#                               Phi correction                                                                 
    576585#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    577586
     
    597606
    598607#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#                                                                                                                                   #
    599 #                               Heat Transfer                                                                           #                                                                                                                                       #
     608#                               Heat Transfer                                                                           
    600609#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    601610
     
    690699end
    691700
    692 Model Heatex_Detailed_NTU               as Heatex_Detailed
     701Model Heatex_Detailed_NTU       as Heatex_Detailed
     702
     703ATTRIBUTES
     704        Pallete = false;
     705        Brief = "write some information";
     706        Info =
     707        "write some information";
    693708       
    694709VARIABLES
     
    702717end
    703718
    704 Model Heatex_Detailed_LMTD              as Heatex_Detailed
     719Model Heatex_Detailed_LMTD as Heatex_Detailed
     720
     721ATTRIBUTES
     722        Pallete = false;
     723        Brief = "write some information";
     724        Info =
     725        "write some information";
    705726       
    706727VARIABLES
    707728
    708 DT0     as temp_delta   (Brief="Temperature Difference at Inlet",Lower=1);
     729DT0             as temp_delta   (Brief="Temperature Difference at Inlet",Lower=1);
    709730DTL             as temp_delta   (Brief="Temperature Difference at Outlet",Lower=1);
    710 LMTD    as temp_delta   (Brief="Logarithmic Mean Temperature Difference",Lower=1);
    711 Fc              as positive             (Brief="LMTD Correction Factor",Lower=0.4);
     731LMTD            as temp_delta   (Brief="Logarithmic Mean Temperature Difference",Lower=1);
     732Fc                      as positive             (Brief="LMTD Correction Factor",Lower=0.4);
    712733MTD             as temp_delta   (Brief="Mean Temperature Difference",Lower=1);
    713734
     
    747768
    748769Model E_Shell_NTU_Det                   as Heatex_Detailed_NTU
     770
     771ATTRIBUTES
     772        Pallete = true;
     773        Brief = "Shell and Tubes Heat Exchanger with 1 shell pass - NTU Method";
     774        Info =
     775        "write some information";
     776       
    749777#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    750778#       Shell and Tubes Heat Exchanger with 1 shell pass - LMTD Method
     
    802830
    803831Model F_Shell_NTU_Det                   as Heatex_Detailed_NTU
    804 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    805 #       Shell and Tubes Heat Exchanger with 1 shell pass - LMTD Method
    806 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     832
     833ATTRIBUTES
     834        Pallete = true;
     835        Brief = "Shell and Tubes Heat Exchanger with 2 shell pass - NTU Method";
     836        Info =
     837        "write some information";
     838
    807839VARIABLES
    808840
     
    863895end
    864896
    865 Model Multipass_NTU_Det         
    866 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    867 #       Shell and Tubes Heat Exchanger In Series with 1 shell pass - LMTD Method
    868 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     897Model Multipass_NTU_Det
     898       
     899ATTRIBUTES
     900        Pallete = true;
     901        Brief = "Shell and Tubes Heat Exchanger In Series with 1 shell pass - NTU Method";
     902        Info =
     903        "write some information";
     904
    869905PARAMETERS
    870906
    871         Nshell          as Integer              (Brief="N Shell in Series",Default=2);
    872 outer PP                        as Plugin       (Brief="External Physical Properties");
    873         HE                      as Plugin       (Brief="heatex Calculations", File="heatex");
    874         side        as Integer          (Brief="Fluid Alocation",Lower=0,Upper=1);
    875         Pi                      as constant     (Brief="Pi Number",Default=3.14159265);
     907                Nshell          as Integer              (Brief="N Shell in Series",Default=2);
     908outer PP                        as Plugin               (Brief="External Physical Properties");
     909                HE                      as Plugin               (Brief="heatex Calculations", File="heatex");
     910                side            as Integer              (Brief="Fluid Alocation",Lower=0,Upper=1);
     911                Pi                              as constant    (Brief="Pi Number",Default=3.14159265);
    876912
    877913#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    878914#       Shell Geometrical Parameters
    879915#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    880 Tpass                   as Integer              (Brief="Number of Tube Passes",Lower=1);
    881 Nss                             as Integer              (Brief="Number of Sealing Strips pairs",Lower=1);
    882 Dishell                 as length               (Brief="Inside Shell Diameter",Lower=10e-6);
    883 Donozzle_Shell  as length               (Brief="Shell Outlet Nozzle Diameter",Lower=10e-6);
    884 Dinozzle_Shell  as length               (Brief="Shell Inlet Nozzle Diameter",Lower=10e-6);
    885 Hinozzle_Shell  as length               (Brief="Height Under Shell Inlet Nozzle",Lower=10e-6);
    886 Honozzle_Shell  as length               (Brief="Height Under Shell Outlet Nozzle",Lower=10e-6);
    887 Aonozzle_Shell  as area                 (Brief="Shell Outlet Nozzle Area",Lower=10e-6);
    888 Ainozzle_Shell  as area                 (Brief="Shell Inlet Nozzle Area",Lower=10e-6);
    889 Aeonozzle_Shell as area                 (Brief="Shell Outlet Escape Area Under Nozzle",Lower=10e-6);
    890 Aeinozzle_Shell as area                 (Brief="Shell Inlet Escape Area Under Nozzle",Lower=10e-6);
    891 Lcf                     as length               (Brief="Bundle-to-Shell Clearance",Lower=10e-8);
     916Tpass                                   as Integer              (Brief="Number of Tube Passes",Lower=1);
     917Nss                                     as Integer              (Brief="Number of Sealing Strips pairs",Lower=1);
     918Dishell                                 as length               (Brief="Inside Shell Diameter",Lower=10e-6);
     919Donozzle_Shell          as length               (Brief="Shell Outlet Nozzle Diameter",Lower=10e-6);
     920Dinozzle_Shell          as length               (Brief="Shell Inlet Nozzle Diameter",Lower=10e-6);
     921Hinozzle_Shell          as length               (Brief="Height Under Shell Inlet Nozzle",Lower=10e-6);
     922Honozzle_Shell          as length               (Brief="Height Under Shell Outlet Nozzle",Lower=10e-6);
     923Aonozzle_Shell          as area                 (Brief="Shell Outlet Nozzle Area",Lower=10e-6);
     924Ainozzle_Shell          as area                 (Brief="Shell Inlet Nozzle Area",Lower=10e-6);
     925Aeonozzle_Shell         as area                 (Brief="Shell Outlet Escape Area Under Nozzle",Lower=10e-6);
     926Aeinozzle_Shell         as area                 (Brief="Shell Inlet Escape Area Under Nozzle",Lower=10e-6);
     927Lcf                                     as length               (Brief="Bundle-to-Shell Clearance",Lower=10e-8);
    892928#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    893929#       Tubes Geometrical Parameters
    894930#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    895 Ntt                             as Integer              (Brief="Total Number of Tubes in Shell",Default=100,Lower=1);
    896 Pattern         as Integer              (Brief="Tube Layout Characteristic Angle",Lower=30);
    897 Ltube                   as length               (Brief="Effective Tube Length",Lower=0.1);
    898 pitch                   as length               (Brief="Tube Pitch",Lower=1e-8);
    899 Kwall                   as conductivity (Brief="Tube Wall Material Thermal Conductivity");
    900 Dotube                  as length               (Brief="Tube Outside Diameter",Lower=10e-6);
    901 Ditube                  as length               (Brief="Tube Inside Diameter",Lower=10e-6);
    902 Donozzle_Tube   as length               (Brief="Tube Outlet Nozzle Diameter",Lower=10e-6);
    903 Dinozzle_Tube   as length               (Brief="Tube Inlett Nozzle Diameter",Lower=10e-6);
    904 Aonozzle_Tube   as area                 (Brief="Tube Outlet Nozzle Area",Lower=10e-6);
    905 Ainozzle_Tube   as area                 (Brief="Tube Inlet Nozzle Area",Lower=10e-6);
    906 Kinlet_Tube     as positive             (Brief="Tube Inlet Nozzle Pressure Loss Coeff",Default=1.1);
    907 Koutlet_Tube    as positive             (Brief="Tube Outlet Nozzle Pressure Loss Coeff",Default=0.7);
     931Ntt                                     as Integer                      (Brief="Total Number of Tubes in Shell",Default=100,Lower=1);
     932Pattern                         as Integer                      (Brief="Tube Layout Characteristic Angle",Lower=30);
     933Ltube                                   as length                       (Brief="Effective Tube Length",Lower=0.1);
     934pitch                           as length                       (Brief="Tube Pitch",Lower=1e-8);
     935Kwall                                   as conductivity         (Brief="Tube Wall Material Thermal Conductivity");
     936Dotube                                  as length                       (Brief="Tube Outside Diameter",Lower=10e-6);
     937Ditube                                  as length                       (Brief="Tube Inside Diameter",Lower=10e-6);
     938Donozzle_Tube   as length                       (Brief="Tube Outlet Nozzle Diameter",Lower=10e-6);
     939Dinozzle_Tube   as length                       (Brief="Tube Inlett Nozzle Diameter",Lower=10e-6);
     940Aonozzle_Tube   as area                         (Brief="Tube Outlet Nozzle Area",Lower=10e-6);
     941Ainozzle_Tube   as area                         (Brief="Tube Inlet Nozzle Area",Lower=10e-6);
     942Kinlet_Tube             as positive                     (Brief="Tube Inlet Nozzle Pressure Loss Coeff",Default=1.1);
     943Koutlet_Tube    as positive                     (Brief="Tube Outlet Nozzle Pressure Loss Coeff",Default=0.7);
    908944
    909945#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     
    913949Nb              as Real                 (Brief="Number of Baffles",Lower=1);
    914950Lcd                     as length               (Brief="Baffle-to-Shell Clearance",Lower=10e-8);
    915 Ltd                             as length               (Brief="Tube-to-Bafflehole Clearance",Lower=10e-8);
     951Ltd                     as length               (Brief="Tube-to-Bafflehole Clearance",Lower=10e-8);
    916952#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    917953VARIABLES
    918954
    919 Eft(Nshell)       as positive (Brief="Effectiveness",Default=0.05,Lower=1e-8);
    920 Unity(Nshell) as HeatExchangerDetailed_Basic;# "Shell in Series"
     955Eft(Nshell)       as positive                                                           (Brief="Effectiveness",Default=0.05,Lower=1e-8);
     956Unity(Nshell) as HeatExchangerDetailed_Basic    (Brief="Shell in Series");
    921957
    922958SET
     
    924960#  Set Parameters for heatex Calculation
    925961#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    926         Pi                              = 3.14159265;
    927         HE.Tpass                        = Tpass;
    928         HE.Nss                          = Nss;
    929         HE.Ntt                          = Ntt;
    930         HE.Pattern                      = Pattern;
    931         HE.Bc                           = Bc;
     962        Pi                                              = 3.14159265;
     963        HE.Tpass                                = Tpass;
     964        HE.Nss                                  = Nss;
     965        HE.Ntt                                  = Ntt;
     966        HE.Pattern                              = Pattern;
     967        HE.Bc                                   = Bc;
    932968        HE.Donozzle_Shell       = Donozzle_Shell;
    933969        HE.Dinozzle_Shell       = Dinozzle_Shell;
     
    936972        HE.Donozzle_Tube        = Donozzle_Tube;
    937973        HE.Dinozzle_Tube        = Dinozzle_Tube;
    938         HE.Nb                       = Nb;
    939         HE.Dishell                      = Dishell;             
    940         HE.Lcf                          = Lcf; 
    941         HE.Ltube                        = Ltube;       
    942         HE.pitch                        = pitch;               
     974        HE.Nb                           = Nb;
     975        HE.Dishell                              = Dishell;             
     976        HE.Lcf                                  = Lcf; 
     977        HE.Ltube                                = Ltube;       
     978        HE.pitch                                = pitch;               
    943979        HE.Dotube                       = Dotube;       
    944         HE.Ditube                       = Ditube;       
    945         HE.Lcd                          = Lcd;
    946         HE.Ltd                          = Ltd; 
    947         side                            = HE.FluidAlocation();
     980        HE.Ditube                               = Ditube;       
     981        HE.Lcd                                  = Lcd;
     982        HE.Ltd                                  = Ltd; 
     983        side                                            = HE.FluidAlocation();
    948984       
    949985#"Tube Side Inlet Nozzle Area"
     
    9741010
    9751011Unity([1:Nshell-1]).Outlet.Hot  to Unity([2:Nshell]).Inlet.Hot;
    976 Unity([2:Nshell]).Outlet.Cold   to Unity([1:Nshell-1]).Inlet.Cold;
     1012Unity([2:Nshell]).Outlet.Cold     to Unity([1:Nshell-1]).Inlet.Cold;
    9771013
    9781014EQUATIONS
     
    12631299end
    12641300
    1265 Model E_Shell_LMTD_Det                  as Heatex_Detailed_LMTD
    1266 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    1267 #       Shell and Tubes Heat Exchanger with 1 shell pass - LMTD Method
    1268 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     1301Model E_Shell_LMTD_Det          as Heatex_Detailed_LMTD
     1302
     1303ATTRIBUTES
     1304        Pallete = true;
     1305        Brief = "Shell and Tubes Heat Exchanger with 1 shell pass - LMTD Method";
     1306        Info =
     1307        "write some information";
     1308
    12691309EQUATIONS
    12701310
     
    13211361end
    13221362
    1323 
    1324 
    1325 end
    1326 
    1327 Model F_Shell_LMTD_Det                  as Heatex_Detailed_LMTD
    1328 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    1329 #       Shell and Tubes Heat Exchanger with 2 shell pass - LMTD Method
    1330 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     1363end
     1364
     1365Model F_Shell_LMTD_Det          as Heatex_Detailed_LMTD
     1366
     1367ATTRIBUTES
     1368        Pallete = true;
     1369        Brief = "Shell and Tubes Heat Exchanger with 2 shell pass - LMTD Method";
     1370        Info =
     1371        "write some information";
    13311372
    13321373EQUATIONS
     
    13861427end
    13871428
    1388 Model Multipass_LMTD_Det         
    1389 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    1390 #       Shell and Tubes Heat Exchanger In Series with 1 shell pass - LMTD Method
    1391 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     1429Model Multipass_LMTD_Det
     1430       
     1431ATTRIBUTES
     1432        Pallete = true;
     1433        Brief = "Shell and Tubes Heat Exchanger In Series with 1 shell pass - LMTD Method";
     1434        Info =
     1435        "write some information";
     1436
    13921437PARAMETERS
    13931438
    1394 Nshell          as Integer              (Brief="N Shell in Series",Default=2);
    1395         HE              as Plugin       (Brief="STHE Calculations",File="heatex");
    1396 outer PP                as Plugin       (Brief="External Physical Properties");
    1397 side        as Integer          (Brief="Fluid Alocation",Lower=0,Upper=1);
    1398 Pi                      as constant    (Brief="Pi Number",Default=3.14159265);
     1439                Nshell  as Integer       (Brief="N Shell in Series",Default=2);
     1440                HE              as Plugin        (Brief="STHE Calculations",File="heatex");
     1441outer PP                as Plugin        (Brief="External Physical Properties");
     1442                side        as Integer   (Brief="Fluid Alocation",Lower=0,Upper=1);
     1443                Pi                      as constant (Brief="Pi Number",Default=3.14159265);
    13991444
    14001445#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    14011446#       Shell Geometrical Parameters
    14021447#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    1403 Tpass                   as Integer              (Brief="Number of Tube Passes",Lower=1);
    1404 Nss                             as Integer              (Brief="Number of Sealing Strips pairs",Lower=1);
    1405 Dishell                 as length               (Brief="Inside Shell Diameter",Lower=10e-6);
    1406 Donozzle_Shell  as length               (Brief="Shell Outlet Nozzle Diameter",Lower=10e-6);
    1407 Dinozzle_Shell  as length               (Brief="Shell Inlet Nozzle Diameter",Lower=10e-6);
    1408 Hinozzle_Shell  as length               (Brief="Height Under Shell Inlet Nozzle",Lower=10e-6);
    1409 Honozzle_Shell  as length               (Brief="Height Under Shell Outlet Nozzle",Lower=10e-6);
    1410 Aonozzle_Shell  as area                 (Brief="Shell Outlet Nozzle Area",Lower=10e-6);
    1411 Ainozzle_Shell  as area                 (Brief="Shell Inlet Nozzle Area",Lower=10e-6);
    1412 Aeonozzle_Shell as area                 (Brief="Shell Outlet Escape Area Under Nozzle",Lower=10e-6);
    1413 Aeinozzle_Shell as area                 (Brief="Shell Inlet Escape Area Under Nozzle",Lower=10e-6);
    1414 Lcf                     as length               (Brief="Bundle-to-Shell Clearance",Lower=10e-8);
     1448Tpass                                   as Integer              (Brief="Number of Tube Passes",Lower=1);
     1449Nss                                     as Integer              (Brief="Number of Sealing Strips pairs",Lower=1);
     1450Dishell                                 as length               (Brief="Inside Shell Diameter",Lower=10e-6);
     1451Donozzle_Shell          as length               (Brief="Shell Outlet Nozzle Diameter",Lower=10e-6);
     1452Dinozzle_Shell          as length               (Brief="Shell Inlet Nozzle Diameter",Lower=10e-6);
     1453Hinozzle_Shell          as length               (Brief="Height Under Shell Inlet Nozzle",Lower=10e-6);
     1454Honozzle_Shell          as length               (Brief="Height Under Shell Outlet Nozzle",Lower=10e-6);
     1455Aonozzle_Shell          as area                 (Brief="Shell Outlet Nozzle Area",Lower=10e-6);
     1456Ainozzle_Shell          as area                 (Brief="Shell Inlet Nozzle Area",Lower=10e-6);
     1457Aeonozzle_Shell         as area                 (Brief="Shell Outlet Escape Area Under Nozzle",Lower=10e-6);
     1458Aeinozzle_Shell         as area                 (Brief="Shell Inlet Escape Area Under Nozzle",Lower=10e-6);
     1459Lcf                                     as length               (Brief="Bundle-to-Shell Clearance",Lower=10e-8);
    14151460#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    14161461#       Tubes Geometrical Parameters
    14171462#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    1418 Ntt                             as Integer              (Brief="Total Number of Tubes in Shell",Default=100,Lower=1);
    1419 Pattern         as Integer              (Brief="Tube Layout Characteristic Angle",Lower=30);
    1420 Ltube                   as length               (Brief="Effective Tube Length",Lower=0.1);
    1421 pitch                   as length               (Brief="Tube Pitch",Lower=1e-8);
    1422 Kwall                   as conductivity (Brief="Tube Wall Material Thermal Conductivity");
    1423 Dotube                  as length               (Brief="Tube Outside Diameter",Lower=10e-6);
    1424 Ditube                  as length               (Brief="Tube Inside Diameter",Lower=10e-6);
    1425 Donozzle_Tube   as length               (Brief="Tube Outlet Nozzle Diameter",Lower=10e-6);
    1426 Dinozzle_Tube   as length               (Brief="Tube Inlett Nozzle Diameter",Lower=10e-6);
    1427 Aonozzle_Tube   as area                 (Brief="Tube Outlet Nozzle Area",Lower=10e-6);
    1428 Ainozzle_Tube   as area                 (Brief="Tube Inlet Nozzle Area",Lower=10e-6);
    1429 Kinlet_Tube     as positive             (Brief="Tube Inlet Nozzle Pressure Loss Coeff",Default=1.1);
    1430 Koutlet_Tube    as positive             (Brief="Tube Outlet Nozzle Pressure Loss Coeff",Default=0.7);
     1463Ntt                                     as Integer                      (Brief="Total Number of Tubes in Shell",Default=100,Lower=1);
     1464Pattern                         as Integer                      (Brief="Tube Layout Characteristic Angle",Lower=30);
     1465Ltube                                   as length                       (Brief="Effective Tube Length",Lower=0.1);
     1466pitch                           as length                       (Brief="Tube Pitch",Lower=1e-8);
     1467Kwall                                   as conductivity         (Brief="Tube Wall Material Thermal Conductivity");
     1468Dotube                                  as length                       (Brief="Tube Outside Diameter",Lower=10e-6);
     1469Ditube                                  as length                       (Brief="Tube Inside Diameter",Lower=10e-6);
     1470Donozzle_Tube   as length                       (Brief="Tube Outlet Nozzle Diameter",Lower=10e-6);
     1471Dinozzle_Tube   as length                       (Brief="Tube Inlett Nozzle Diameter",Lower=10e-6);
     1472Aonozzle_Tube   as area                         (Brief="Tube Outlet Nozzle Area",Lower=10e-6);
     1473Ainozzle_Tube   as area                         (Brief="Tube Inlet Nozzle Area",Lower=10e-6);
     1474Kinlet_Tube             as positive                     (Brief="Tube Inlet Nozzle Pressure Loss Coeff",Default=1.1);
     1475Koutlet_Tube    as positive                     (Brief="Tube Outlet Nozzle Pressure Loss Coeff",Default=0.7);
    14311476
    14321477#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     
    14361481Nb              as Real                 (Brief="Number of Baffles",Lower=1);
    14371482Lcd                     as length               (Brief="Baffle-to-Shell Clearance",Lower=10e-8);
    1438 Ltd                             as length               (Brief="Tube-to-Bafflehole Clearance",Lower=10e-8);
     1483Ltd                     as length               (Brief="Tube-to-Bafflehole Clearance",Lower=10e-8);
    14391484#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    14401485VARIABLES
    14411486
    1442 LMTD(Nshell)            as temp_delta   (Brief="Logarithmic Mean Temperature Difference",Lower=5);
    1443 Fc(Nshell)                      as positive             (Brief="LMTD Correction Factor",Lower=0.5);
    1444 MTD(Nshell)                     as temp_delta   (Brief="Mean Temperature Difference",Lower=5);
    1445 Unity(Nshell)           as HeatExchangerDetailed_Basic;
     1487LMTD(Nshell)    as temp_delta                                                    (Brief="Logarithmic Mean Temperature Difference",Lower=5);
     1488Fc(Nshell)              as positive                                                              (Brief="LMTD Correction Factor",Lower=0.5);
     1489MTD(Nshell)     as temp_delta                                                    (Brief="Mean Temperature Difference",Lower=5);
     1490Unity(Nshell)   as HeatExchangerDetailed_Basic  (Brief="Shell in Series");
    14461491
    14471492SET
     
    14491494#  Set Parameters for heatex Calculation
    14501495#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    1451         Pi                              = 3.14159265;
    1452         HE.Tpass                        = Tpass;
    1453         HE.Nss                          = Nss;
    1454         HE.Ntt                          = Ntt;
    1455         HE.Pattern                      = Pattern;
    1456         HE.Bc                           = Bc;
     1496        Pi                                              = 3.14159265;
     1497        HE.Tpass                                = Tpass;
     1498        HE.Nss                                  = Nss;
     1499        HE.Ntt                                  = Ntt;
     1500        HE.Pattern                              = Pattern;
     1501        HE.Bc                                   = Bc;
    14571502        HE.Donozzle_Shell       = Donozzle_Shell;
    14581503        HE.Dinozzle_Shell       = Dinozzle_Shell;
     
    14611506        HE.Donozzle_Tube        = Donozzle_Tube;
    14621507        HE.Dinozzle_Tube        = Dinozzle_Tube;
    1463         HE.Nb                       = Nb;
    1464         HE.Dishell                      = Dishell;             
    1465         HE.Lcf                          = Lcf; 
    1466         HE.Ltube                        = Ltube;       
    1467         HE.pitch                        = pitch;               
     1508        HE.Nb                           = Nb;
     1509        HE.Dishell                              = Dishell;             
     1510        HE.Lcf                                  = Lcf; 
     1511        HE.Ltube                                = Ltube;       
     1512        HE.pitch                                = pitch;               
    14681513        HE.Dotube                       = Dotube;       
    1469         HE.Ditube                       = Ditube;       
    1470         HE.Lcd                          = Lcd;
    1471         HE.Ltd                          = Ltd; 
    1472         side                            = HE.FluidAlocation();
     1514        HE.Ditube                               = Ditube;       
     1515        HE.Lcd                                  = Lcd;
     1516        HE.Ltd                                  = Ltd; 
     1517        side                                            = HE.FluidAlocation();
    14731518       
    14741519#"Tube Side Inlet Nozzle Area"
     
    17741819        Unity(i).Shell.PressureDrop.PdEndZones  = HE.DeltaPendZones(Unity(i).Shell.HeatTransfer.Re,Unity(i).Baffles.Ls,Unity(i).Baffles.Lso,Unity(i).Baffles.Lsi,Unity(i).Properties.Cold.Inlet.Fw,Unity(i).Shell.HeatTransfer.Phi,Unity(i).Properties.Cold.Average.rho);
    17751820
    1776 
    1777 end
    1778 
     1821end
    17791822
    17801823"Exchange Surface Area"
Note: See TracChangeset for help on using the changeset viewer.