Changeset 100 for mso/eml/heat_exchangers/HeatExchangerDiscretized.mso

Timestamp:

Jan 9, 2007, 12:15:56 PM (15 years ago)

Author:

gerson bicca

Message:

updated

File:

• mso/eml/heat_exchangers/HeatExchangerDiscretized.mso (modified) (9 diffs)

mso/eml/heat_exchangers/HeatExchangerDiscretized.mso

@@ -365 +365 @@
 EQUATIONS
 "Exchange Surface Area"
-        Details.Q   = Details.U*Details.A*MTD;
+        Details.Q   = Details.Ud*Details.A*MTD;
         
 "Mean Temperature Difference"   
@@ -424 +424 @@
 PdropShellNozzle        as pressure                     (Brief="Total Shell Side Nozzles Pressure Drop");
 PdropShell                      as pressure                     (Brief="Total Shell Side Pressure Drop");
-Uaverage                        as heat_trans_coeff (Brief="Average Overall Heat Transfer Coefficient",Default=1,Lower=1e-6,Upper=1e10);
+Udaverage                       as heat_trans_coeff (Brief="Average Overall Heat Transfer Coefficient Dirty",Default=1,Lower=1e-6,Upper=1e10);
+Ucaverage                       as heat_trans_coeff (Brief="Average Overall Heat Transfer Coefficient Clean",Default=1,Lower=1e-6,Upper=1e10);
 hshellaverage           as heat_trans_coeff     (Brief="Average Shell Side Film Coefficient",Default=1,Lower=1e-12, Upper=1e6);
 htubeaverage            as heat_trans_coeff     (Brief="Average Tube Side Film Coefficient",Default=1,Lower=1e-12, Upper=1e6);
@@ -506 +507 @@
         Sumary.htubeaverage             = sum(Unity.Tubes.HeatTransfer.htube)/Sumary.Zones;
 
-"Average Overall Heat Transfer Coefficient"
-        Sumary.Uaverage                 = sum(Unity.Details.U)/Sumary.Zones;
+"Average Overall Heat Transfer Coefficient Dirty"
+        Sumary.Udaverage                = sum(Unity.Details.Ud)/Sumary.Zones;
+        
+"Average Overall Heat Transfer Coefficient Clean"
+        Sumary.Ucaverage                = sum(Unity.Details.Uc)/Sumary.Zones;
 
 "Area Total"
@@ -822 +826 @@
         Unity(i).Resistances.Rshell*(Unity(i).Shell.HeatTransfer.hshell)        =       1;
         
-"Overall Heat Transfer Coefficient"
-        Unity(i).Details.U*(Dotube/(Unity(i).Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Unity(i).Shell.HeatTransfer.hshell)))=1;
+"Overall Heat Transfer Coefficient Dirty"
+        Unity(i).Details.Ud*(Dotube/(Unity(i).Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Unity(i).Shell.HeatTransfer.hshell)))=1;
+
+"Overall Heat Transfer Coefficient Clean"
+        (1/Unity(i).Details.Ud)=(1/Unity(i).Details.Uc)+Unity(i).Resistances.Rfo+Unity(i).Resistances.Rfi*(Dotube/Ditube);
 
 "Exchange Surface Area"
@@ -831 +838 @@
         Ltube = Unity(i).Baffles.Lsi+Unity(i).Baffles.Lso+Unity(i).Baffles.Ls*(Nb-1);
         
-
 "Js Factor"     
         Unity(i).Shell.HeatTransfer.Js                  =       1;
@@ -853 +859 @@
         Unity(i).Shell.HeatTransfer.Jtotal              =       Unity(i).Shell.HeatTransfer.Jc*Unity(i).Shell.HeatTransfer.Jl*Unity(i).Shell.HeatTransfer.Jb*Unity(i).Shell.HeatTransfer.Jr*Unity(i).Shell.HeatTransfer.Js;
 end
-
 
 "Velocity Tube Side Inlet Nozzle"
@@ -991 +996 @@
         Sumary.htubeaverage             = sum(Unity.Tubes.HeatTransfer.htube)/Sumary.Zones;
 
-"Average Overall Heat Transfer Coefficient"
-        Sumary.Uaverage                 = sum(Unity.Details.U)/Sumary.Zones;
+"Average Overall Heat Transfer Coefficient Dirty"
+        Sumary.Udaverage                = sum(Unity.Details.Ud)/Sumary.Zones;
+        
+"Average Overall Heat Transfer Coefficient Clean"
+        Sumary.Ucaverage                = sum(Unity.Details.Uc)/Sumary.Zones;   
 
 "Area Total"
@@ -1032 +1040 @@
 "Shell Side Cross Flow Area" 
         Unity(Nb+1).Shell.HeatTransfer.Sm = HE.CrossFlowArea(Unity(Nb+1).Baffles.Lso);
-
-#"LMTD Correction Factor"
-#       Unity.Fc = HE.EshellCorrectionFactor(Unity(1).Inlet.Hot.T,Unity(Nb+1).Outlet.Hot.T,Unity(Nb+1).Inlet.Cold.T,Unity(1).Outlet.Cold.T);
 
 if side equal 1
@@ -1311 +1316 @@
         Unity(i).Resistances.Rshell*(Unity(i).Shell.HeatTransfer.hshell)        =       1;
         
-"Overall Heat Transfer Coefficient"
-        Unity(i).Details.U*(Dotube/(Unity(i).Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Unity(i).Shell.HeatTransfer.hshell)))=1;
+"Overall Heat Transfer Coefficient Dirty"
+        Unity(i).Details.Ud*(Dotube/(Unity(i).Tubes.HeatTransfer.htube*Ditube)+(Dotube*ln(Dotube/Ditube)/(2*Kwall))+(1/(Unity(i).Shell.HeatTransfer.hshell)))=1;
+
+"Overall Heat Transfer Coefficient Clean"
+        (1/Unity(i).Details.Ud)=(1/Unity(i).Details.Uc)+Unity(i).Resistances.Rfo+Unity(i).Resistances.Rfi*(Dotube/Ditube);
 
 "Exchange Surface Area"