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

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

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

revision 2663 by jpye, Wed Jan 16 02:04:07 2013 UTC revision 2664 by jpye, Fri Jan 18 06:02:15 2013 UTC
# Line 5  Line 5 
5    
6  #include <stdio.h>  #include <stdio.h>
7    
8  //#define REF_DEBUG  #define REF_DEBUG
9  #define REF_ERRORS  #define REF_ERRORS
10    
11  #ifdef REF_DEBUG  #ifdef REF_DEBUG
# Line 141  int fprops_set_reference_state(PureFluid Line 141  int fprops_set_reference_state(PureFluid
141    
142          P->data->cp0->c = -(s2 - s1)/P->data->R;          P->data->cp0->c = -(s2 - s1)/P->data->R;
143          P->data->cp0->m = (h2 - h1)/P->data->R/P->data->T_c;          P->data->cp0->m = (h2 - h1)/P->data->R/P->data->T_c;
144            MSG("Set TRHS reference state.");
145          return 0;          return 0;
146    
147      case FPROPS_REF_TPUS:      case FPROPS_REF_TPUS:
# Line 183  int fprops_set_reference_state(PureFluid Line 184  int fprops_set_reference_state(PureFluid
184          MSG("...at T = %f K , rho = %f kg/m3",T, rho);          MSG("...at T = %f K , rho = %f kg/m3",T, rho);
185  #endif  #endif
186    
187            MSG("Set TRUS reference state.");
188          return 0;          return 0;
189    
190    
# Line 224  int fprops_set_reference_state(PureFluid Line 226  int fprops_set_reference_state(PureFluid
226          MSG("Resulting reference values: h = %f, s = %f, p = %f kPa",h2,s2,p);          MSG("Resulting reference values: h = %f, s = %f, p = %f kPa",h2,s2,p);
227          MSG("...at T = %f K , rho = %f kg/m3",T, rho);          MSG("...at T = %f K , rho = %f kg/m3",T, rho);
228    
229            MSG("Set TPHS reference state.");
230          return 0;          return 0;
231    
232    
# Line 241  int fprops_set_reference_state(PureFluid Line 244  int fprops_set_reference_state(PureFluid
244          s2 = 0;          s2 = 0;
245          P->data->cp0->c = -(s2 - s1)/P->data->R;          P->data->cp0->c = -(s2 - s1)/P->data->R;
246          P->data->cp0->m = (h2 - h1)/P->data->R/P->data->T_c;          P->data->cp0->m = (h2 - h1)/P->data->R/P->data->T_c;
247            MSG("Set TPF reference state.");
248          return 0;          return 0;
249    
250      case FPROPS_REF_TPFU:      case FPROPS_REF_TPFU:
# Line 257  int fprops_set_reference_state(PureFluid Line 261  int fprops_set_reference_state(PureFluid
261          s2 = 0;          s2 = 0;
262          P->data->cp0->c = -(s2 - s1)/P->data->R;          P->data->cp0->c = -(s2 - s1)/P->data->R;
263          P->data->cp0->m = (h2 - h1)/P->data->R/P->data->T_c;          P->data->cp0->m = (h2 - h1)/P->data->R/P->data->T_c;
264            MSG("Set TPFU reference state.");
265          return 0;          return 0;
266    
267      default:      default:
Legend:
Removed from v.2663  
changed lines
  Added in v.2664
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22