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

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

Parent Directory Parent Directory | Revision Log Revision Log


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

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