/[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 2471 - (show annotations) (download) (as text)
Sat May 28 10:24:10 2011 UTC (11 years, 1 month ago) by jpye
File MIME type: text/x-ascend
File size: 537 byte(s)
Adding initial bindings to sun position calculation, some debugging completed. Testing is next.
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;

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