| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110 |
- /*******************************************************************************
- r.sun: sunradstruct.h. This program was writen by Jaro Hofierka in Summer 1993 and re-engineered
- in 1996-1999. In cooperation with Marcel Suri and Thomas Huld from JRC in Ispra
- a new version of r.sun was prepared using ESRA solar radiation formulas.
- See manual pages for details.
- (C) 2002 Copyright Jaro Hofierka, Gresaka 22, 085 01 Bardejov, Slovakia,
- and GeoModel, s.r.o., Bratislava, Slovakia
- email: hofierka@geomodel.sk,marcel.suri@jrc.it,suri@geomodel.sk
- *******************************************************************************/
- /*
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the
- * Free Software Foundation, Inc.,
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
- */
- /*v. 2.0 July 2002, NULL data handling, JH */
- /*v. 2.1 January 2003, code optimization by Thomas Huld, JH */
- #define EPS 1.e-4
- #define HOURANGLE M_PI/12.
- struct SunGeometryConstDay
- {
- double lum_C11;
- double lum_C13;
- double lum_C22;
- double lum_C31;
- double lum_C33;
- double sunrise_time;
- double sunset_time;
- double timeAngle;
- double sindecl;
- double cosdecl;
- };
- struct SunGeometryVarDay
- {
- int isShadow;
- double z_orig;
- double zmax;
- double zp;
- double solarAltitude;
- double sinSolarAltitude;
- double tanSolarAltitude;
- double solarAzimuth;
- double sunAzimuthAngle;
- double stepsinangle;
- double stepcosangle;
- };
- struct SunGeometryVarSlope
- {
- double longit_l; /* The "longitude" difference between the inclined */
- /* and orientated plane and the instantaneous solar position */
- double lum_C31_l;
- double lum_C33_l;
- double slope;
- double aspect;
- };
- struct SolarRadVar
- {
- double cbh;
- double cdh;
- double linke;
- double G_norm_extra;
- double alb;
- };
- struct GridGeometry
- {
- double xp;
- double yp;
- double xx0;
- double yy0;
- double xg0;
- double yg0;
- double stepx;
- double stepy;
- double deltx;
- double delty;
- double stepxy;
- double sinlat;
- double coslat;
- };
|
