}

## Run function:

#list_tiles_modis <- c("h10v04,h11v04,h12v04,h13v04,h14v04,h07v06") #tiles for Northenr America, Northern US...

#list_tiles_modis <- c("h12v04,h13v04,h14v04,h07v06") #tiles for Northenr America, Northern US...

#list_tiles_modis <- c("h11v08,h11v07,h12v07,h12v08,h10v07,h10v08") #tile for Venezuela and surrounding area

#list_tiles_modis <- c("h09v04,h09v04") #tiles for Oregon #defined above...

#list_tiles_modis <- c("h09v08,h09v07,h08v07,h0706,h08v06,h09v06,h10v06,h08v05,h09v05,h10v05,h11v05,h12v05") #tiles for Central America and Mexico Southern US...

#list_tiles_modis <- c("h09v09,h10v09,h11v09,h12v09,h13v09,h14v09")

script_path<-"/home/parmentier/Data/IPLANT_project/env_layers_scripts/"

modis_download_script <- file.path(script_path,"modis_download_05142013.py") # LST modis download python script

grass_setting_script <- file.path(script_path,"grass-setup.R")

var="TMAX"

start_year = "2001"

hdfdir =  '/data/project/layers/commons/modis/MOD11A1_tiles' #destination file where hdf files are stored locally after download.

#hdfdir =  '/home/parmentier/Data/IPLANT_project/MOD11A1_tiles'

list_param_download_clim_LST_script <- list(list_tiles_modis,start_year,end_year,hdfdir,

                                var,grass_setting_script,modis_download_script, clim_script,