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

Diff of /trunk/models/johnpye/fprops/fluids/oxygen.c

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

revision 3407 by jpye, Mon Jan 15 12:09:00 2018 UTC revision 3408 by jpye, Thu Jun 28 08:02:12 2018 UTC
# Line 8  substances and its application to oxygen Line 8  substances and its application to oxygen
8  */  */
9    
10  #include "../helmholtz.h"  #include "../helmholtz.h"
 #ifndef CUNIT_TEST  
   
11  #define OXYGEN_M 31.9988  /* kg/kmol */  #define OXYGEN_M 31.9988  /* kg/kmol */
12  #define OXYGEN_R (8314.34/OXYGEN_M) /* J/kg/K */  #define OXYGEN_R (8314.34/OXYGEN_M) /* J/kg/K */
13  #define OXYGEN_TC 154.581 /* K */  #define OXYGEN_TC 154.581 /* K */
14  #define OXYGEN_RHOC (13.63*OXYGEN_M) /* kg/m3 */  #define OXYGEN_RHOC (13.63*OXYGEN_M) /* kg/m3 */
15    
16    #ifndef CUNIT_TEST
17    
18  /* we use Roland Span's re-fit cp0 curve as per REFPROP 8.0, no publication cited */  /* we use Roland Span's re-fit cp0 curve as per REFPROP 8.0, no publication cited */
19  static const IdealData ideal_data_oxygen = {  static const IdealData ideal_data_oxygen = {
20      IDEAL_CP0      IDEAL_CP0
# Line 153  void test_fluid_oxygen(void){ Line 153  void test_fluid_oxygen(void){
153      ASSERT_TOL_VAL(ideal_cp(120,6.43209699241E-1,P->data,&err),9.09800101279e2,1e-9);      ASSERT_TOL_VAL(ideal_cp(120,6.43209699241E-1,P->data,&err),9.09800101279e2,1e-9);
154      ASSERT_TOL_VAL(ideal_cp(270,2.85140864243e-1,P->data,&err),9.1439308538e2,1e-9);      ASSERT_TOL_VAL(ideal_cp(270,2.85140864243e-1,P->data,&err),9.1439308538e2,1e-9);
155    
156        double p0 = 1.01325e5;
157        double T0 = 298.15;
158        double rho0 = p0/(OXYGEN_R*T0);
159    
160        //ASSERT_TOL_VAL(ideal_h(T0,rho0,P->data,&err),0,1e-9);
161        //ASSERT_TOL_VAL(ideal_s(T0,rho0,P->data,&err),0,1e-9);
162    
163    //#define REALLY_TEST
164  #ifdef REALLY_TEST  #ifdef REALLY_TEST
165      helm_run_test_cases(P, ntd, td, 'C');      helm_run_test_cases(P, ntd, td, 'C');
166  #else  #else
167        fprintf(stderr,"NOTE: OXYGEN TESTS SKPPED\n");
168      (void)ntd; (void)td;      (void)ntd; (void)td;
169  #endif  #endif
170  }  }
Legend:
Removed from v.3407  
changed lines
  Added in v.3408
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22