johnpye/grena/sunpos_test.a4c

IMPORT "johnpye/grena/sunpos";

REQUIRE "atoms.a4l";

MODEL location;
	latitude IS_A angle_constant;
	longitude IS_A angle_constant;
END location;

MODEL sunpos_test;
	loc IS_A location;
	loc.latitude :== -35 {deg};
	loc.longitude :== 135 {deg};

	p IS_A pressure;
	T IS_A temperature;
	zenith, azimuth IS_A angle;
	t IS_A time;

	solar: sunpos(
		t, p, T : INPUT;
		zenith, azimuth : OUTPUT;
		loc : DATA
	);		

METHODS
METHOD on_load;
	FIX p, T, t;
	p := 1 {atm};
	T := 20 {K} + 273.15 {K};
	t := 5 {d};
END on_load;
END sunpos_test;
1	IMPORT "johnpye/grena/sunpos";
2
3	REQUIRE "atoms.a4l";
4
5	MODEL location;
6	latitude IS_A angle_constant;
7	longitude IS_A angle_constant;
8	END location;
9
10	MODEL sunpos_test;
11	loc IS_A location;
12	loc.latitude :== -35 {deg};
13	loc.longitude :== 135 {deg};
14
15	p IS_A pressure;
16	T IS_A temperature;
17	zenith, azimuth IS_A angle;
18	t IS_A time;
19
20	solar: sunpos(
21	t, p, T : INPUT;
22	zenith, azimuth : OUTPUT;
23	loc : DATA
24	);
25
26	METHODS
27	METHOD on_load;
28	FIX p, T, t;
29	p := 1 {atm};
30	T := 20 {K} + 273.15 {K};
31	t := 5 {d};
32	END on_load;
33	END sunpos_test;