Changeset 105


Ignore:
Timestamp:
Jan 10, 2007, 3:54:15 PM (16 years ago)
Author:
gerson bicca
Message:

fixed DoublePipe? model

File:
1 edited

Legend:

Unmodified
Added
Removed
  • mso/eml/heat_exchangers/DoublePipe.mso

    r104 r105  
    636636        then
    637637       
     638"Pressure Drop Hot Stream"
     639        Unity(i).Outlet.Hot.P  = Unity(i).Inlet.Hot.P - Unity(i).Outer.PressureDrop.Pdrop;
     640
     641"Pressure Drop Cold Stream"
     642        Unity(i).Outlet.Cold.P  = Unity(i).Inlet.Cold.P - Unity(i).Inner.PressureDrop.Pdrop;
     643       
    638644"Outer Pipe Film Coefficient"
    639645        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;
     
    679685
    680686        else
     687       
     688"Pressure Drop Hot Stream"
     689        Unity(i).Outlet.Hot.P  = Unity(i).Inlet.Hot.P - Unity(i).Inner.PressureDrop.Pdrop;
     690
     691"Pressure Drop Cold Stream"
     692        Unity(i).Outlet.Cold.P  = Unity(i).Inlet.Cold.P - Unity(i).Outer.PressureDrop.Pdrop;
    681693       
    682694"Inner Pipe Film Coefficient"
Note: See TracChangeset for help on using the changeset viewer.