[GRASS-SVN] r31189 - grass-addons/gipe/i.evapo.potrad

[svn_grass at osgeo.org]

Author: ychemin
Date: 2008-05-01 04:16:43 -0400 (Thu, 01 May 2008)
New Revision: 31189

Added:
   grass-addons/gipe/i.evapo.potrad/r_net_day_bandara98.c
Log:
Included new algorithm file

Added: grass-addons/gipe/i.evapo.potrad/r_net_day_bandara98.c
===================================================================
--- grass-addons/gipe/i.evapo.potrad/r_net_day_bandara98.c	                        (rev 0)
+++ grass-addons/gipe/i.evapo.potrad/r_net_day_bandara98.c	2008-05-01 08:16:43 UTC (rev 31189)
@@ -0,0 +1,18 @@
+#include<stdio.h>
+#include<math.h>
+#include<stdlib.h>
+
+// Average Diurnal Net Radiation after Bandara (1998)
+
+double r_net_day_bandara98( double surface_albedo, double solar_day, double apparent_atm_emissivity, double surface_emissivity, double air_temperature )
+{
+	double longwave_balance, result;
+	double sigma=5.67*pow(10,-8);//Stefann-Boltzmann Constant
+	
+	longwave_balance = (apparent_atm_emissivity-surface_emissivity) * sigma * pow(air_temperature,4) ;
+
+	result = ((1.0 - surface_albedo)*solar_day) - longwave_balance ;
+
+	return result;
+}
+