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

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

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

revision 2668 by jpye, Thu Jan 17 00:15:12 2013 UTC revision 2669 by jpye, Wed Jan 23 05:38:50 2013 UTC
# Line 107  Phi0RunData *cp0_prepare(const IdealData Line 107  Phi0RunData *cp0_prepare(const IdealData
107          }          }
108    
109          if(cp0red != R){          if(cp0red != R){
110              fprintf(stderr,"WARNING: adjusting for R (=%f) != cp0red (=%f)...\n",R,cp0red);              MSG("WARNING: adjusting for R (=%f) != cp0red (=%f)...\n",R,cp0red);
111              double X = cp0red / R;              double X = cp0red / R;
112              // scale for any differences in R and cpstar */              // scale for any differences in R and cpstar */
113              for(i=0; i < N->np; ++i)N->pt[i].a *= X;              for(i=0; i < N->np; ++i)N->pt[i].a *= X;
Legend:
Removed from v.2668  
changed lines
  Added in v.2669
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22