This vignette presents the procedure to estimate the Land Surface Energy Balance (LSEB) using lansat imagery and The **water** package. There are two version of this vignette: simple and advanced version. In the first one the procedure is simpler but most of the parameters are selected automatically by the package. In the second aproach, the procedure is longer because the user has more control on all input parameters and coefficent. Both vignettes follow the METRIC model methodology (Allen et la., 2007) in order to estimate the LSEB using landasat 7 and 8 satellite images.

Also, on the simple procedure we are going to assume flat terrain, but in the advanced procedure we are going to use a digital elevation model (DEM). However, is possible to use a digital elevation model in the simple procedure, changing the parameter `flat`

to `FALSE`

and providing a DEM.

where \(LE\) is latent energy consumed by ET (\(W \cdot m^{-2}\)); \(Rn\) is net radiation (\(W \cdot m^{-2}\)); \(G\) is sensible heat flux conducted into the ground (\(W \cdot m^{-2}\)); and \(H\) = sensible heat flux convected to the air (\(W \cdot m^{-2}\)).

We estimate \(Rn\), \(G\) and \(H\) for each pixel into a *Landsat satellite scene*, supported by one weather station. Then we estimate \(LE\) fluxes using previous equation, and after that, the instantaneous evapotranspiration values as:

where \(ET_{inst}\) is the instantaneous ET at the satellite flyby (\(mm \cdot h^{-1}\)); 3600 is the convert factor from seconds to hours; \(\rho_w\) is density of water = 1000 \(kg\cdot m^{-3}\); and \(\lambda\) is the water latent heat of vaporization (\(J\cdot kg^{-1}\)).

Finally the daily ET is computed pixel by pixel (30 x 30 m) as: \[\begin{equation} ET_{24} = \frac{ET_{inst}}{ET_r} ET_{r\_24} \label{eq:et24} \end{equation}\]To begin this procedure, first we have to load **water** package:

`library(water)`

To calculate METRIC crops Evapotranspiration using **water** package and the simple procedure, we’re going to use three sources:

- A raw Landsat 7/8 satellite image (original .TIF data from glovis USGS).
- A Weather Station data (.CSV file).
- A polygon with our Area-of-interest (AOI) Spatial-Polygon object (if we won`t estimate corp ET for the entire landsat scene).

First, we create the AOI as a polygon using bottomright and topleft points:

```
aoi <- createAoi(topleft = c(272955, 6085705),
bottomright = c( 288195, 6073195), EPSG = 32719)
```

Then, we load the weather station data. For that we are going to use the function called `read.WSdata`

. This function converts our .csv file into a `waterWeatherStation`

object. Then, if we provide a Landsat metadata file (.MTL file) we will be able to calculate the time-specific weather conditions at the time of satellite overpass

```
csvfile <- system.file("extdata", "apples.csv", package="water")
MTLfile <- system.file("extdata", "L7.MTL.txt", package="water")
WeatherStation <- read.WSdata(WSdata = csvfile, date.format = "%d/%m/%Y",
lat=-35.42222, long= -71.38639, elev=201, height= 2.2,
MTL = MTLfile)
```

We can visualize our weather station data as:

`print(WeatherStation, hourly=FALSE)`

```
## Weather Station at lat: -35.42 long: -71.39 elev: 201
## Summary:
## radiation wind RH ea
## Min. : 0.00 Min. : 0.000 Min. :17.39 Min. :0.7455
## 1st Qu.: 0.00 1st Qu.: 0.205 1st Qu.:40.65 1st Qu.:1.2288
## Median : 49.82 Median : 1.585 Median :64.83 Median :1.6472
## Mean :310.13 Mean : 3.071 Mean :60.78 Mean :1.5156
## 3rd Qu.:719.29 3rd Qu.: 3.655 3rd Qu.:82.34 3rd Qu.:1.7741
## Max. :998.29 Max. :14.460 Max. :94.04 Max. :1.9672
## temp
## Min. :14.65
## 1st Qu.:17.74
## Median :21.15
## Mean :22.46
## 3rd Qu.:27.36
## Max. :32.53
##
## Conditions at satellite flyby:
## datetime radiation wind RH ea temp
## 63 2013-02-15 15:30:40 947.57 4.08 38.59 1.74 31.1
```

`plot(WeatherStation, hourly=TRUE)`

After that, we load the Landast satellite image. Usually, using `water`

we can use the function called `loadImage`

to load a Landsat image from `.TIF files`

were downloaded directly from Earth Explorer. In this vignette we are going to use some Landsat 7 as example data which, by the way comes with **water** package as a demo.

`image.DN <- L7_Talca`

Finally we are going to create The Digital Elevation Model (DEM) for the specific satellite image that we are processing. Thus, we needed a image-specifc grid files downloadable from Earth Explorer. Therefore, is needed to check wich grid files we are going to use considering the satellite scene location and the AOI polygon, using:

`checkSRTMgrids(image.DN)`

```
## [1] "You need 1 1deg x 1deg SRTM grids"
## [1] "You can get them here:"
```

`## [1] "http://earthexplorer.usgs.gov/download/options/8360/SRTM1S36W072V3/"`

You should download all needed grid files, and then you can use the function `prepareSRTMdata(extent = image.DN)`

to create our DEM. In this vignette we are going to load the example data provided with **water** package.

`DEM <- DEM_Talca`

In order to calculate the Net Radiation from loaded *landsat satellite* data, first we calculate a surface model (*slope + aspect*) from the DEM, then we calulate the solar angles (*latitude, declination, hour angle and solar incidence angle*), and finally we plot the last one. Then we use this function to calculate *incoming solar radiation*.

```
surface.model <-METRICtopo(DEM)
solar.angles.r <- solarAngles(surface.model = surface.model,
WeatherStation = WeatherStation, MTL = MTLfile)
plot(solar.angles.r)
```

```
Rs.inc <- incSWradiation(surface.model = surface.model,
solar.angles = solar.angles.r,
WeatherStation = WeatherStation)
```

```
## Warning in x@data@values[i] <- value: number of items to replace is not a
## multiple of replacement length
```

Then we calculate reflectances at the top-of-atmosphere (TOA), and surface reflectance derived from *Landsat image*, and use the last one to calculate the *broadband albedo* as:

```
image.TOAr <- calcTOAr(image.DN = image.DN, sat="L7", MTL = MTLfile,
incidence.rel = solar.angles.r$incidence.rel)
image.SR <- calcSR(image.TOAr=image.TOAr, sat = "L7",
surface.model=surface.model,
incidence.hor = solar.angles.r$incidence.hor,
WeatherStation=WeatherStation, ESPA = F)
albedo <- albedo(image.SR = image.SR, coeff="Tasumi")
```

Later on, we calculate the *Leaf Area Index* (LAI) using the satellite data, and we plot it. In this step, we can choose diferents methods able in literature to estimate LAI from Landsat data (see package Help for more info.). In this vignette we are going to use the *METRIC 2010* method:

```
LAI <- LAI(method = "metric2010", image = image.TOAr, L=0.1)
plot(LAI)
```

Then we estimate land surface temperature (Ts), using computed LAI in order to estimate consequently the *surface emissivity*, and *brightness temperature* from landsat`s thermal band (TIR). Then we use this information to compute the *incoming and outgoing long-wave radiation* as:

```
Ts <- surfaceTemperature(LAI=LAI, sat = "L7", thermalband = image.DN$thermal.low,
WeatherStation = WeatherStation)
Rl.out <- outLWradiation(LAI = LAI, Ts=Ts)
Rl.inc <- incLWradiation(WeatherStation,DEM = surface.model$DEM,
solar.angles = solar.angles.r, Ts= Ts)
```

And finally, we can estimate Net Radiation (R_n) pixel by pixel as follows:

```
Rn <- netRadiation(LAI, albedo, Rs.inc, Rl.inc, Rl.out)
plot(Rn)
```

We estimate the soil heat flux using as an input data the *Net radiation*, *surface reflectance*, *surface temperature*, *leaf area index* and *albedo*. In this vignette we are going to use the original METRIC (2007) baded-method, which is:

```
G <- soilHeatFlux(image = image.SR, Ts=Ts,albedo=albedo,
Rn=Rn, LAI=LAI)
plot(G)
```

To estimate the sensible heat fluxes derived from the *landsat satellite* data, first we need to calculate the *Momentum roughness length* (Zom). In this step, we are able to choose diferents methods found in literature to estimate Zom from Landsat data (see package Help for more information). In this vignette we are going to use the *short.crops* method.

Then, we are going to use `calAnchors`

function for automatically search end members within the satellite scene (extreme wet and dry conditions). In this vignette we are going to use the *CITRA-MCB* method (see Help for mor information).

Finally we estimate the H values at pixel scales using `calcH`

function. This function aplies the *CIMEC* self-calibration method in order generete an iteration process for the “hot” and “cald” pixels and to abdorb all baises in the computation of H. This iteration procces it will be able to see as a dinamic-plot when the function `calcH`

is running. There is a parameter called `verbose`

to control how much information we want to see in the output about the “anchor pixels” and iteration process.

```
Z.om <- momentumRoughnessLength(LAI=LAI, mountainous = TRUE,
method = "short.crops",
surface.model = surface.model)
hot.and.cold <- calcAnchors(image = image.TOAr, Ts = Ts, LAI = LAI, plots = F,
albedo = albedo, Z.om = Z.om, n = 5,
anchors.method = "CITRA-MCB", deltaTemp = 5,
WeatherStation = WeatherStation, verbose = FALSE)
H <- calcH(anchors = hot.and.cold, Ts = Ts, Z.om = Z.om,
WeatherStation = WeatherStation, ETp.coef = 1.05,
Z.om.ws = 0.03, DEM = DEM, Rn = Rn, G = G, verbose = FALSE)
```

To estimate the daily crop evapotranspiration from the *Landsat scene* we need the daily reference ET (ETr) for our weather station, so we can calculate the daily ETr with:

`ET_WS <- dailyET(WeatherStation = WeatherStation, MTL = MTLfile)`

And finally, we can estimate daily crop ET pixel by pixel:

`ET.24 <- ET24h(Rn, G, H$H, Ts, WeatherStation = WeatherStation, ETr.daily=ET_WS)`

Allen, R. G., Tasumi, M., & Trezza, R. (2007). Satellite-based energy balance for mapping evapotranspiration with internalized calibration (METRIC)-Model. Journal of Irrigation and Drainage Engineering, 133, 380.

Bastiaanssen, W. G. M., Menenti, M., Feddes, R. a., & Holtslag, A. a. M. (1998). A remote sensing surface energy balance algorithm for land (SEBAL). 1. Formulation. Journal of Hydrology, 212-213, 198–212. http://doi.org/10.1016/S0022-1694(98)00253-4