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

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

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

revision 1106 by johnpye, Wed Jan 10 13:07:45 2007 UTC revision 1107 by johnpye, Wed Jan 10 13:21:45 2007 UTC
# Line 16  REQUIRE "steam/satsteamstream.a4c"; Line 16  REQUIRE "steam/satsteamstream.a4c";
16    
17  MODEL dsgsat2;  MODEL dsgsat2;
18      n IS_A integer_constant;      n IS_A integer_constant;
19      n :== 5;      n :== 70;
20    
21      (* temporal derivatives *)      (* temporal derivatives *)
22      drho_dt[2..n] IS_A density_rate;      drho_dt[2..n] IS_A density_rate;
# Line 93  METHOD specify_easy; Line 93  METHOD specify_easy;
93      FOR i IN [1..n] DO      FOR i IN [1..n] DO
94          RUN node[i].specify;          RUN node[i].specify;
95          FIX dTw_dt[i];   FREE T_w[i];          FIX dTw_dt[i];   FREE T_w[i];
96            FREE rhou[i];
97      END FOR;      END FOR;
98      FIX qdot_s;      FIX qdot_s;
99      FIX D, D_2, L;      FIX D, D_2, L;
# Line 144  METHOD on_load; Line 145  METHOD on_load;
145      RUN default_self;      RUN default_self;
146      RUN ClearAll;      RUN ClearAll;
147      RUN specify_easy;      RUN specify_easy;
148      EXTERNAL solvernotes(SELF);      (* EXTERNAL solvernotes(SELF); *)
149      EXTERNAL solve(SELF);      (* EXTERNAL solve(SELF); *)
150      RUN bound_self;      RUN bound_self;
151      RUN values;      RUN values;
152      RUN ode_init;      (* RUN ode_init;
153      EXTERNAL solvernotes(SELF);      EXTERNAL solvernotes(SELF);
154      EXTERNAL solve(SELF);      EXTERNAL solve(SELF);
155      RUN fixed_states;      RUN fixed_states; *)
156  END on_load;  END on_load;
157  METHOD fixed_states;  METHOD fixed_states;
158      qdot_s := 10 {W/m};      qdot_s := 10 {W/m};

Legend:
Removed from v.1106  
changed lines
  Added in v.1107

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