models/solar/test_sunpos.a4c

REQUIRE "atoms.a4l";

REQUIRE "johnpye/sunpos.a4c";


MODEL example REFINES sunpos;
	
	beta = 1.0* theta_z;
	
	METHODS

		METHOD specify;		
			FIX L_st, L_loc, phi; (* time and location *)
			FIX gamma; (* surface orientation *)
			FIX t_solar;
		END specify;
		
		METHOD values;
			(*RUN sunpos::values;*)

			t_solar := 43{d} + 15{h} + 30{min};

			gamma := 90 {deg};


			L_st := -90{deg}; (* USA Central time*)
			L_loc := -89.4{deg};
			phi := +43{deg};
		END values;
		
		METHOD self_test;
			ASSERT abs(theta-35.0{deg}) < 0.15{deg};
			ASSERT abs(delta-(-13.80{deg})) < 0.02{deg};
		END self_test;

		METHOD onload;
			RUN specify;
			RUN values;
		END onload;
		
END example;
1	REQUIRE "atoms.a4l";
2
3	REQUIRE "johnpye/sunpos.a4c";
4
5
6	MODEL example REFINES sunpos;
7
8	beta = 1.0* theta_z;
9
10	METHODS
11
12	METHOD specify;
13	FIX L_st, L_loc, phi; (* time and location *)
14	FIX gamma; (* surface orientation *)
15	FIX t_solar;
16	END specify;
17
18	METHOD values;
19	(RUN sunpos::values;)
20
21	t_solar := 43{d} + 15{h} + 30{min};
22
23	gamma := 90 {deg};
24
25
26	L_st := -90{deg}; (* USA Central time*)
27	L_loc := -89.4{deg};
28	phi := +43{deg};
29	END values;
30
31	METHOD self_test;
32	ASSERT abs(theta-35.0{deg}) < 0.15{deg};
33	ASSERT abs(delta-(-13.80{deg})) < 0.02{deg};
34	END self_test;
35
36	METHOD onload;
37	RUN specify;
38	RUN values;
39	END onload;
40
41	END example;