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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2471 - (hide annotations) (download) (as text)
Sat May 28 10:24:10 2011 UTC (11 years, 2 months 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 jpye 2471 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;
34    

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