/[ascend]/trunk/models/johnpye/grena/sunpos_test.a4c
ViewVC logotype

Contents of /trunk/models/johnpye/grena/sunpos_test.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2480 - (show annotations) (download) (as text)
Thu Jun 23 11:38:23 2011 UTC (11 years ago) by jpye
File MIME type: text/x-ascend
File size: 693 byte(s)
RPM added, and sunpos_test.a4c location change.
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 timezone IS_A time_constant;
9 END location;
10
11 MODEL sunpos_test;
12 loc IS_A location;
13 loc.latitude :== -35 {deg};
14 loc.longitude :== 149 {deg};
15 loc.timezone :== 10 {h};
16
17 p IS_A pressure;
18 T IS_A temperature;
19 zenith, azimuth IS_A angle;
20 t_UTC IS_A time;
21 t IS_A time;
22 t = t_UTC + loc.timezone;
23
24 solar: sunpos(
25 t_UTC, p, T : INPUT;
26 zenith, azimuth : OUTPUT;
27 loc : DATA
28 );
29
30 altitude IS_A angle;
31 altitude = 0.5{PI} - zenith;
32
33 METHODS
34 METHOD on_load;
35 FIX p, T, t;
36 p := 1 {atm};
37 T := 20 {K} + 273.15 {K};
38 t := 5 {d};
39 END on_load;
40 END sunpos_test;

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