/[ascend]/trunk/models/johnpye/datareader/testtmy.a4c
ViewVC logotype

Contents of /trunk/models/johnpye/datareader/testtmy.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 813 - (show annotations) (download) (as text)
Fri Aug 11 04:35:15 2006 UTC (14 years, 1 month ago) by johnpye
File MIME type: text/x-ascend
File size: 833 byte(s)
Modified model to permit integration.
1 REQUIRE "ivpsystem.a4l";
2 REQUIRE "atoms.a4l";
3
4 IMPORT "johnpye/datareader/datareader";
5
6 MODEL drconf;
7 filename IS_A symbol_constant;
8 format IS_A symbol_constant;
9 format :== 'TMY2';
10 END drconf;
11
12 MODEL testtmy;
13 t IS_A time;
14 G IS_A solver_var;
15 Gbn IS_A solver_var;
16 G2 IS_A solver_var;
17 E IS_A solver_var; (* total radiation *)
18 tmydata IS_A drconf;
19 tmydata.filename :== '/home/john/src/ascend/models/johnpye/datareader/23161.tm2';
20
21 filereader:datareader(
22 t : INPUT;
23 G, Gbn : OUTPUT;
24 tmydata : DATA
25 );
26
27 G2 = G + Gbn;
28
29 METHODS
30
31 METHOD default_self;
32 END default_self;
33
34 METHOD on_load;
35 RUN default_self; RUN specify; RUN values;
36 END on_load;
37
38 METHOD specify;
39 E.ode_id := 1; E.ode_type := 1;
40 G.ode_id := 1; G.ode_type := 2;
41
42 t.ode_type :=-1;
43 FIX t;
44 END specify;
45
46 METHOD values;
47 t := 0 {s};
48 END values;
49
50 END testtmy;

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