/[ascend]/trunk/models/johnpye/fprops/carbondioxide.c
ViewVC logotype

Diff of /trunk/models/johnpye/fprops/carbondioxide.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2289 by jpye, Sun Aug 15 06:16:13 2010 UTC revision 2290 by jpye, Sun Aug 15 10:11:54 2010 UTC
# Line 49  Line 49 
49  const IdealData ideal_data_carbondioxide = {  const IdealData ideal_data_carbondioxide = {
50      -1.1571354956e+003/CARBONDIOXIDE_R /* constant, adjust to solve s */      -1.1571354956e+003/CARBONDIOXIDE_R /* constant, adjust to solve s */
51      , 2.9392750129e+005/CARBONDIOXIDE_TC/CARBONDIOXIDE_R /* linear, adjust to solver h */      , 2.9392750129e+005/CARBONDIOXIDE_TC/CARBONDIOXIDE_R /* linear, adjust to solver h */
52    #if 0
53        /* The following values have been selected to give zero enthalpy and zero
54        entropy at the triple point for this fluid, see test.c 'helm_calc_offsets'.
55        However these changes are now disabled, because enthalpy never goes negative
56        for this species. */
57        -3.36545655935087095756
58        , 3.72263567031386832795
59    #endif
60      , CARBONDIOXIDE_TC /* Tstar / [K] */      , CARBONDIOXIDE_TC /* Tstar / [K] */
61      , CARBONDIOXIDE_R /* cpstar / [J/kgK] */      , CARBONDIOXIDE_R /* cpstar / [J/kgK] */
62      , 1 /* power terms */      , 1 /* power terms */
# Line 163  int main(void){ Line 171  int main(void){
171      d = &helmholtz_data_carbondioxide;      d = &helmholtz_data_carbondioxide;
172      double maxerr = 0;      double maxerr = 0;
173    
174        double rhof,rhog;
175        int res = fprops_triple_point(&p,&rhof,&rhog,d);
176        helm_calc_offsets(d->T_t, rhof, 0, 0, d);
177    
178      n = ntd;      n = ntd;
179    
180      /* couple of data from the publication itself */      /* couple of data from the publication itself */

Legend:
Removed from v.2289  
changed lines
  Added in v.2290

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22