/[ascend]/trunk/models/johnpye/dsgsat2.a4c
ViewVC logotype

Diff of /trunk/models/johnpye/dsgsat2.a4c

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

revision 929 by johnpye, Thu Nov 9 10:54:14 2006 UTC revision 930 by johnpye, Wed Nov 22 13:09:09 2006 UTC
# Line 123  METHOD on_load; Line 123  METHOD on_load;
123      END FOR;      END FOR;
124      RUN values;      RUN values;
125      RUN solvernotes;      RUN solvernotes;
126      RUN solve; (* wish I knew why it needs three goes *)      RUN solve;
127      RUN ode_init;      RUN ode_init;
128      qdot_s := 10 {W/m};      qdot_s := 10 {W/m};
129      RUN solve; (* after fixing the states and freeing the derivatives *)      RUN solve; (* after fixing the states and freeing the derivatives *)
# Line 134  METHOD ode_init; Line 134  METHOD ode_init;
134      t.ode_type := -1;      t.ode_type := -1;
135      t := 0 {s};      t := 0 {s};
136      FOR i IN [2..n] DO      FOR i IN [2..n] DO
137          FREE drho_dt[i];  FIX node[i].rho;          FREE drho_dt[i];  FREE node[i].rho;
138          FREE dmdot_dt[i]; FIX node[i].mdot;          FREE dmdot_dt[i]; FREE node[i].mdot;
139          FREE drhou_dt[i]; FIX rhou[i];          FREE drhou_dt[i]; FREE rhou[i];
140          FREE dTw_dt[i];   FIX T_w[i];          FREE dTw_dt[i];   FREE T_w[i];
141      END FOR;      END FOR;
142    
143      FOR i IN [2..n] DO      FOR i IN [2..n] DO
# Line 178  END fix_outlet_quality; Line 178  END fix_outlet_quality;
178    
179  METHOD solvernotes;  METHOD solvernotes;
180      EXTERNAL solvernotes(SELF);      EXTERNAL solvernotes(SELF);
181  END setup_solver;  END solvernotes;
182    
183  METHOD solve;  METHOD solve;
184      EXTERNAL solve(SELF);      EXTERNAL solve(SELF);
Legend:
Removed from v.929  
changed lines
  Added in v.930
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22