#

#AUTHORS: Benoit Parmentier    

#         based on modified earlier python scripts from J. Regetz

#PROJECT: NCEAS INPLANT: Environment and Organisms --TASK#???--   

  ###Function to download and calculate LST climatology from MODIS tiles

  #AUTHOR: Benoit Parmentier                                                                       

  #PROJECT: NCEAS INPLANT: Environment and Organisms --TASK#363--   

  #1) var 

  list_param_python_script <- list(list_tiles_modis,start_year,end_year,start_month,end_month,hdfdir,

                                   night,download,out_suffix_modis)

                                     "night","download","out_suffix_modis")

  list_param_python_script_str <- paste(unlist(list_param_python_script), collapse=" ")

## Run function:

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

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

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

#list_tiles_modis <-c("h30v10,h31v10,h32v10,h30v11,h31v11") #list("Queensland")

var="TMAX"

start_year = "2001"

end_year = "2010"

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

download=1

clim_calc=0

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

                                 var,grass_setting_script,modis_download_script, clim_script,