Changeset 105 for mso/eml

Timestamp:

Jan 10, 2007, 3:54:15 PM (17 years ago)

Author:

gerson bicca

Message:

fixed DoublePipe? model

File:

• mso/eml/heat_exchangers/DoublePipe.mso (modified) (2 diffs)

mso/eml/heat_exchangers/DoublePipe.mso

@@ -636 +636 @@
         then
         
+"Pressure Drop Hot Stream"
+        Unity(i).Outlet.Hot.P  = Unity(i).Inlet.Hot.P - Unity(i).Outer.PressureDrop.Pdrop;
+
+"Pressure Drop Cold Stream"
+        Unity(i).Outlet.Cold.P  = Unity(i).Inlet.Cold.P - Unity(i).Inner.PressureDrop.Pdrop;
+        
 "Outer Pipe Film Coefficient"
         Unity(i).Outer.HeatTransfer.hcoeff= HE.PipeFilmCoeff(Unity(i).Outer.HeatTransfer.Re,Unity(i).Outer.HeatTransfer.PR,Unity(i).Properties.Hot.Average.K,Unity(i).Outer.HeatTransfer.Dh,Lpipe)*Unity(i).Outer.HeatTransfer.Phi;
@@ -679 +685 @@
 
         else
+        
+"Pressure Drop Hot Stream"
+        Unity(i).Outlet.Hot.P  = Unity(i).Inlet.Hot.P - Unity(i).Inner.PressureDrop.Pdrop;
+
+"Pressure Drop Cold Stream"
+        Unity(i).Outlet.Cold.P  = Unity(i).Inlet.Cold.P - Unity(i).Outer.PressureDrop.Pdrop;
         
 "Inner Pipe Film Coefficient"