[GRASS-SVN] r42936 - grass/branches/develbranch_6/raster/r.sun2
svn_grass at osgeo.org
svn_grass at osgeo.org
Thu Jul 29 06:33:33 EDT 2010
Author: hamish
Date: 2010-07-29 10:33:33 +0000 (Thu, 29 Jul 2010)
New Revision: 42936
Modified:
grass/branches/develbranch_6/raster/r.sun2/rsunlib.c
Log:
whitespace in comments
Modified: grass/branches/develbranch_6/raster/r.sun2/rsunlib.c
===================================================================
--- grass/branches/develbranch_6/raster/r.sun2/rsunlib.c 2010-07-29 08:06:04 UTC (rev 42935)
+++ grass/branches/develbranch_6/raster/r.sun2/rsunlib.c 2010-07-29 10:33:33 UTC (rev 42936)
@@ -6,7 +6,7 @@
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 at geomodel.sk,marcel.suri at jrc.it,suri at geomodel.sk
+email: hofierka at geomodel.sk, marcel.suri at jrc.it, suri at geomodel.sk
*******************************************************************************/
/*
* This program is free software; you can redistribute it and/or
@@ -102,7 +102,7 @@
}
-/* com_sol_const(): compute the solar constant corrected for the day of the
+/* com_sol_const(): compute the Solar Constant corrected for the day of the
year. The Earth is closest to the Sun (Perigee) on about January 3rd,
it is furthest from the sun (Apogee) about July 6th. The 1367 W/m^2 solar
constant is at the average 1AU distance, but on Jan 3 it gets up to
@@ -161,12 +161,12 @@
}
else {
if (pom < 0) {
- /* G_debug(3,"\n Sun is ABOVE the surface during the whole day"); */
+ /* G_debug(3,"\n Sun is ABOVE the surface during the whole day"); */
sungeom->sunrise_time = 0;
sungeom->sunset_time = 24;
}
else {
- /* G_debug(3,"\n The sun is BELOW the surface during the whole day"); */
+ /* G_debug(3,"\n The sun is BELOW the surface during the whole day"); */
if (fabs(pom) - 1 <= EPS) {
sungeom->sunrise_time = 12;
sungeom->sunset_time = 12;
@@ -208,7 +208,7 @@
if (fabs(sungeom->lum_C31) < EPS) {
if (fabs(sunVarGeom->sinSolarAltitude) >= EPS) {
if (sunVarGeom->sinSolarAltitude > 0) {
- /* G_debug(3,"\tSun is ABOVE area during the whole day"); */
+ /* G_debug(3,"\tSun is ABOVE area during the whole day"); */
sungeom->sunrise_time = 0;
sungeom->sunset_time = 24;
}
@@ -236,7 +236,7 @@
if (fabs(pom) > EPS) {
sunVarGeom->solarAzimuth = lum_Ly / pom;
sunVarGeom->solarAzimuth = acos(sunVarGeom->solarAzimuth); /* horiz. angle of the Sun */
- /* solarAzimuth *= RAD; */
+ /* solarAzimuth *= RAD; */
if (lum_Lx < 0)
sunVarGeom->solarAzimuth = pi2 - sunVarGeom->solarAzimuth;
}
@@ -680,7 +680,7 @@
/* refl. rad */
*rr = sunRadVar->alb * gh * (1 - cosslope) / 2.;
}
- else { /* plane */
+ else { /* plane */
dr = dh;
*rr = 0.;
}
More information about the grass-commit
mailing list