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

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

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

revision 2758 by jpye, Thu Mar 20 06:36:28 2014 UTC revision 2759 by jpye, Fri Mar 21 11:25:55 2014 UTC
# Line 72  static const IdealData ideal_data_carbon Line 72  static const IdealData ideal_data_carbon
72  static HelmholtzData helmholtz_data_carbondioxide = {  static HelmholtzData helmholtz_data_carbondioxide = {
73      /* R */ CARBONDIOXIDE_R /* 1000 * kJ/kmolK / kg/kmol = J/kgK */      /* R */ CARBONDIOXIDE_R /* 1000 * kJ/kmolK / kg/kmol = J/kgK */
74      , /* M */ CARBONDIOXIDE_M /* kg/kmol */      , /* M */ CARBONDIOXIDE_M /* kg/kmol */
75      , /* rho_star */ CARBONDIOXIDE_RHOC /* kg/m³ (= rho_c for this model) */      , /* rho_star */ CARBONDIOXIDE_RHOC /* kg/m3 (= rho_c for this model) */
76      , /* T_star */ CARBONDIOXIDE_TC /* K (= T_c for this model) */      , /* T_star */ CARBONDIOXIDE_TC /* K (= T_c for this model) */
77    
78      , /* T_c */ CARBONDIOXIDE_TC      , /* T_c */ CARBONDIOXIDE_TC
# Line 216  EosData eos_carbondioxide = { Line 216  EosData eos_carbondioxide = {
216      ,FPROPS_HELMHOLTZ      ,FPROPS_HELMHOLTZ
217      ,.data = {.helm = &helmholtz_data_carbondioxide}      ,.data = {.helm = &helmholtz_data_carbondioxide}
218      ,.visc = &visc_carbondioxide      ,.visc = &visc_carbondioxide
219        ,.thcond = &visc_carbondioxide
220  };  };
221    
222  #ifdef TEST  #ifdef TEST
# Line 276  int main(void){ Line 277  int main(void){
277  #define VISC_TEST(T__1,RHO__1,MU__1,TOL__1) \  #define VISC_TEST(T__1,RHO__1,MU__1,TOL__1) \
278      S = fprops_set_Trho(T__1, RHO__1, d, &err); \      S = fprops_set_Trho(T__1, RHO__1, d, &err); \
279      mu = fprops_mu(S,&err); \      mu = fprops_mu(S,&err); \
280      fprintf(stderr,"mu(T=%f, rho=%f) = %e (target: %e)\n",S.T,S.rho,mu,MU__1); \      /*fprintf(stderr,"mu(T=%f, rho=%f) = %e (target: %e)\n",S.T,S.rho,mu,MU__1);*/ \
281      ASSERT(FPROPS_NO_ERROR==err); \      ASSERT(FPROPS_NO_ERROR==err); \
282      ASSERT(fabs(mu - MU__1)<TOL__1);      ASSERT(fabs(mu - MU__1)<TOL__1);
283    

Legend:
Removed from v.2758  
changed lines
  Added in v.2759

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