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

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

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

revision 811 by johnpye, Thu Aug 10 17:08:16 2006 UTC revision 812 by johnpye, Fri Aug 11 04:22:18 2006 UTC
# Line 1  Line 1 
1  IMPORT "johnpye/datareader/datareader";  IMPORT "johnpye/datareader/datareader";
2  REQUIRE "atoms.a4l";  REQUIRE "atoms.a4l";
3    
4    MODEL drconf;
5        filename IS_A symbol_constant;
6        format IS_A symbol_constant;
7        format :== 'TMY2';
8    END drconf;
9    
10  MODEL testtmy;  MODEL testtmy;
11      t IS_A time;      t IS_A time;
12      G IS_A real;      G IS_A solver_var;
13      Gbn IS_A real;      Gbn IS_A solver_var;
14        G2 IS_A solver_var;
15    
16      filename IS_A symbol_constant;      tmydata IS_A drconf;
17      filename :== '23161.tm2';      tmydata.filename :== '/home/john/src/ascend/models/johnpye/datareader/23161.tm2';
18    
19      filereader:datareader(      filereader:datareader(
20          t : INPUT;          t : INPUT;
21          G, Gbn : OUTPUT;          G, Gbn : OUTPUT;
22          filename : DATA          tmydata : DATA
23      );      );
24    
25      t = 0;      G2 = G + Gbn;
26    
27    METHODS
28    
29    METHOD default_self;
30    END default_self;
31    
32    METHOD on_load;
33        RUN default_self; RUN specify; RUN values;
34    END on_load;
35    
36    METHOD specify;
37        FIX t;
38    END specify;
39    
40    METHOD values;
41        t := 0 {s};
42    END values;
43    
44  END testtmy;  END testtmy;

Legend:
Removed from v.811  
changed lines
  Added in v.812

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