#Different options to explore mosaicing are tested. This script only contains functions.

#AUTHOR: Benoit Parmentier 

#CREATED ON: 04/14/2015  

#Version: 1

#PROJECT: Environmental Layers project     

#COMMENTS: first commit of function script to test mosaicing using 1500x4500km and other tiles

#### end of function

  #out_mosaic_name <- r_weights_sum_raster_name <- file.path(out_dir,paste("r_weights_sum_m_",method_str,"_weighted_mean_",out_suffix,".tif",sep=""))

  cmd_str <- paste("python", file.path(module_path,module_name),

                   "--config GDAL_CACHEMAX=1500",

                   "--overwrite=TRUE",

                   paste("-o",out_mosaic_name,sep=" "),

  system(cmd_str)

  #list(out_mosaic_name,cmd_str)

  mosaic_python_merge_obj <- list(out_mosaic_name,cmd_str)

      #                                                 module_name="gdal_merge_sum.py",

      #                                                 input_file=filename_list_mosaics_weights_m,

      #                                                 out_mosaic_name=out_mosaic_name_weights_m)

      r_weights_sum_raster_name <- mosaic_weights_obj$out_mosaic_name

      cmd_str1 <- mosaic_weights_obj$cmd_str

      #r_prod_sum_raster_name <- mosaic_python_merge(module_path=mosaic_python,

      #                                              input_file=filename_list_mosaics_prod_weights_m,

      #                                              out_mosaic_name=out_mosaic_name_prod_weights_m)

      r_prod_sum_raster_name <- mosaic_prod_weights_obj$out_mosaic_name

      cmd_str2 <- mosaic_prod_weights_obj$cmd_str

      #write out python command used for mosaicing

  col_mfrow <- 1

  row_mfrow <- 1

  png_filename <- paste(prefix_str,"_",date_proc,"_","_",out_suffix_str,".png",sep="")

  png(filename=png_filename ,

    width=col_mfrow*res_pix,height=row_mfrow*res_pix)

  return(png_filename)

}

##################### END OF SCRIPT ######################