/[ascend]/trunk/models/johnpye/nrel/jd_test.a4c
ViewVC logotype

Contents of /trunk/models/johnpye/nrel/jd_test.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2591 - (show annotations) (download) (as text)
Wed Apr 11 21:23:18 2012 UTC (10 years, 2 months ago) by jpye
File MIME type: text/x-ascend
File size: 360 byte(s)
Add calculation of Julian Day within ASCEND model.
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;

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