Aligning by soil moisture

Drought events are alternatively defined not by an fLUE threshold but by a soil moisture threshold. Thereby, more sites’ data, including those without fLUE droughts, can be used. This is done to check whether EVI changes (strongly) during (soil moisture-) droughts and whether this is the reason that fLUE is not responsive to soil moisture, i.e. whether the EVI response fully captures GPP response to drought and thus implies an insensitivity of fLUE to soil moisture.

workingdir <- getwd()
print( paste("working directory directory:", workingdir ) )
## [1] "working directory directory: /Users/benjaminstocker/alphadata01/bstocker/nn_fluxnet2015"
myhome <- "/alphadata01/bstocker/"

source("reshape_align_nn_fluxnet2015.R")
source("plot_aligned_nn_fluxnet2015.R")

load("data/overview_data_fluxnet2015_L6.Rdata")
do.sites <- dplyr::filter(overview, finalcluster==3)$mysitename

for (sitename in do.sites){
  out <- reshape_align_nn_fluxnet2015( sitename, testprofile=FALSE, bysm = TRUE )
  plot_aligned_nn_fluxnet2015( sitename, nam_target="lue_obs_evi", use_fapar=FALSE, use_weights=FALSE, makepdf=FALSE, testprofile=FALSE, bysm=TRUE )
}
## Loading required package: dplyr
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
## Loading required package: cgwtools
## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_AT-Neu_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_AU-Wom_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_CH-Oe1_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_CN-Cng_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_CZ-wet_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_DE-Akm_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_DE-Hai_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_DK-Sor_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_FR-Fon_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_IT-Col_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_IT-PT1_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_IT-SR2_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_IT-Tor_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_NL-Loo_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_RU-Fyo_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_US-GLE_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_US-Me2_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_US-MMS_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_US-PFa_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_US-Tw3_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_US-UMB_lue_obs_evi.Rdata"
## [1] "get drought events ..."

## [1] "get drought events ..."
## [1] "/alphadata01/bstocker/data/nn_fluxnet/fvar/nn_fluxnet2015_US-UMd_lue_obs_evi.Rdata"
## [1] "get drought events ..."