[GRASS-SVN] r31223 - grass-addons/gipe/i.evapo.SENAY

[svn_grass at osgeo.org]

Author: ychemin
Date: 2008-05-03 05:41:29 -0400 (Sat, 03 May 2008)
New Revision: 31223

Added:
   grass-addons/gipe/i.evapo.SENAY/r_net_day.c
   grass-addons/gipe/i.evapo.SENAY/r_net_day_bandara98.c
Log:
Updated algorithm files

Added: grass-addons/gipe/i.evapo.SENAY/r_net_day.c
===================================================================
--- grass-addons/gipe/i.evapo.SENAY/r_net_day.c	                        (rev 0)
+++ grass-addons/gipe/i.evapo.SENAY/r_net_day.c	2008-05-03 09:41:29 UTC (rev 31223)
@@ -0,0 +1,15 @@
+#include<stdio.h>
+#include<math.h>
+#include<stdlib.h>
+
+// Average Diurnal Net Radiation after Bastiaanssen (1995)
+
+double r_net_day( double bbalb, double solar, double tsw )
+{
+	double result;
+
+	result = ((1.0 - bbalb)*solar)-(110.0*tsw);
+
+	return result;
+}
+

Added: grass-addons/gipe/i.evapo.SENAY/r_net_day_bandara98.c
===================================================================
--- grass-addons/gipe/i.evapo.SENAY/r_net_day_bandara98.c	                        (rev 0)
+++ grass-addons/gipe/i.evapo.SENAY/r_net_day_bandara98.c	2008-05-03 09:41:29 UTC (rev 31223)
@@ -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;
+}
+