johnpye/datareader/testtmy.a4c

REQUIRE "ivpsystem.a4l";
REQUIRE "atoms.a4l";

IMPORT "johnpye/datareader/datareader";

MODEL drconf;
	filename IS_A symbol_constant;
	format IS_A symbol_constant;
	format :== 'TMY2';
END drconf;

MODEL testtmy;
	t IS_A time;
	G IS_A solver_var;
	Gbn IS_A solver_var;
	G2 IS_A solver_var;
	E IS_A solver_var; (* total radiation *)
	tmydata IS_A drconf;
	tmydata.filename :== '/home/john/src/ascend/models/johnpye/datareader/23161.tm2';

	filereader:datareader(
		t : INPUT;
		G, Gbn : OUTPUT;
		tmydata : DATA
	);

	G2 = G + Gbn;

METHODS

METHOD default_self;
END default_self;

METHOD on_load;
	RUN default_self; RUN specify; RUN values; 
END on_load;

METHOD specify;
	E.ode_id := 1; E.ode_type := 1;
	G.ode_id := 1; G.ode_type := 2;

	t.ode_type :=-1;	
	FIX t;
END specify;

METHOD values;
	t := 0 {s};
END values;

END testtmy;
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;