johnpye/nrel/jd_test.a4c

IMPORT "johnpye/nrel/sunpos_nrel";

REQUIRE "atoms.a4l";

MODEL jd_test;
	y,mon,d,h,min,s IS_A factor;
	tz IS_A time;
	t_JD IS_A time;

	JD: julian_day_nrel(
		y,mon,d,h,min,s,tz : INPUT;
		t_JD : OUTPUT
	);
METHODS
METHOD on_load;
	FIX y,mon,d,h,min,s,tz;
	y := 2000;
	mon := 1;
	d := 1;
	h := 12;
	min := 0;
	s := 0;
	tz := 0 {h};
END on_load;
END jd_test;
1	IMPORT "johnpye/nrel/sunpos_nrel";
2
3	REQUIRE "atoms.a4l";
4
5	MODEL jd_test;
6	y,mon,d,h,min,s IS_A factor;
7	tz IS_A time;
8	t_JD IS_A time;
9
10	JD: julian_day_nrel(
11	y,mon,d,h,min,s,tz : INPUT;
12	t_JD : OUTPUT
13	);
14	METHODS
15	METHOD on_load;
16	FIX y,mon,d,h,min,s,tz;
17	y := 2000;
18	mon := 1;
19	d := 1;
20	h := 12;
21	min := 0;
22	s := 0;
23	tz := 0 {h};
24	END on_load;
25	END jd_test;