Changeset 739

Show
Ignore:
Timestamp:
10/28/07 22:48:03 (13 months ago)
Author:
hubertus
Message:

updated inconsistency in reference temperatures for PartialSimpleIdealGAsMedium discovered by S. Wischhusen

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • Modelica/branches/maintenance/2.2.2/Modelica/Media/package.mo

    r650 r739  
    60836083    end density; 
    60846084     
    6085     redeclare function extends specificEnthalpy "Return specific enthalpy"  
    6086         extends Modelica.Icons.Function; 
    6087       annotation(Documentation(info="<html></html>")); 
    6088     algorithm  
    6089       h := cp_const*state.T; 
     6085    redeclare function extends specificEnthalpy  
     6086        "Return specific enthalpy"  
     6087        extends Modelica.Icons.Function; 
     6088      annotation(Documentation(info="<html></html>")); 
     6089    algorithm  
     6090      h := cp_const*(state.T-T0); 
    60906091    end specificEnthalpy; 
    60916092     
    60926093    redeclare function extends specificInternalEnergy  
    6093       "Return specific internal energy"  
    6094       extends Modelica.Icons.Function; 
    6095       annotation(Documentation(info="<html></html>")); 
    6096     algorithm  
    6097       u := cp_const*state.T - R_gas*state.T; 
     6094        "Return specific internal energy"  
     6095        extends Modelica.Icons.Function; 
     6096      annotation(Documentation(info="<html></html>")); 
     6097    algorithm  
     6098      u := (cp_const-R_gas)*(state.T-T0); 
    60986099    end specificInternalEnergy; 
    60996100     
    6100     redeclare function extends specificEntropy "Return specific entropy"  
    6101         extends Modelica.Icons.Function; 
     6101    redeclare function extends specificEntropy  
     6102        "Return specific entropy"  
     6103        extends Modelica.Icons.Function; 
    61026104      annotation(Documentation(info="<html></html>")); 
    61036105    algorithm  
    … …  
    61066108     
    61076109    redeclare function extends specificGibbsEnergy  
    6108       "Return specific Gibbs energy"  
    6109       extends Modelica.Icons.Function; 
    6110       annotation(Documentation(info="<html></html>")); 
    6111     algorithm  
    6112       g := cp_const*state.T - state.T*specificEntropy(state); 
     6110        "Return specific Gibbs energy"  
     6111        extends Modelica.Icons.Function; 
     6112      annotation(Documentation(info="<html></html>")); 
     6113    algorithm  
     6114      g := cp_const*(state.T-T0) - state.T*specificEntropy(state); 
    61136115    end specificGibbsEnergy; 
    61146116     
    61156117    redeclare function extends specificHelmholtzEnergy  
    6116       "Return specific Helmholtz energy"  
    6117       extends Modelica.Icons.Function; 
    6118       annotation(Documentation(info="<html></html>")); 
    6119     algorithm  
    6120       f := cp_const*state.T - R_gas*state.T - state.T*specificEntropy(state); 
     6118        "Return specific Helmholtz energy"  
     6119        extends Modelica.Icons.Function; 
     6120      annotation(Documentation(info="<html></html>")); 
     6121    algorithm  
     6122      f := (cp_const-R_gas)*(state.T-T0) - state.T*specificEntropy(state); 
    61216123    end specificHelmholtzEnergy; 
    61226124