Changeset 646

Show
Ignore:
Timestamp:
09/25/07 10:23:22 (15 months ago)
Author:
hubertus
Message:

Fixed a (formal) error with units in base props

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • Modelica/branches/maintenance/2.2.2/Modelica/Media/Water/IF97_Utilities.mo

    r637 r646  
    64176417        vap := Common.helmholtzToBoundaryProps(fv); 
    64186418      end if; 
    6419       aux.dpT := (vap.s - liq.s)*(if (liq.d <> vap.d) then liq.d*vap.d/(liq.d - vap.d) else  
     6419      aux.dpT := (vap.s - liq.s)*(if (liq.d <> vap.d) then (vap.s - liq.s)*liq.d*vap.d/(liq.d - vap.d) else  
    64206420           BaseIF97.Basic.dptofT(aux.T)); 
    64216421      aux.h := liq.h + aux.x*(vap.h - liq.h); 
    … …  
    73747374        vap := Common.helmholtzToBoundaryProps(fv); 
    73757375      end if; 
    7376       aux.dpT := (vap.s - liq.s)*(if (liq.d <> vap.d) then liq.d*vap.d/(liq.d - vap.d) else BaseIF97.Basic.dptofT(aux.T)); 
     7376      aux.dpT := (vap.s - liq.s)*(if (liq.d <> vap.d) then (vap.s - liq.s)*liq.d*vap.d/(liq.d - vap.d) else BaseIF97.Basic.dptofT(aux.T)); 
    73777377      aux.s := liq.s + aux.x*(vap.s - liq.s); 
    73787378      aux.cv := Common.cv2Phase(liq, vap, aux.x, aux.T, aux.p);