data_df <- list_param$data_df

    df_raster_pred_tiles <- list_param$df_raster_pred_tiles

    list_formulas <- list_param$list_formulas

    NA_flag_val <- list_param$NA_flag_val

    file_format <- list_param$file_format

    out_dir_str <- list_param$out_dir_str

    #create output name for predicted raster

    extension_str <- extension(inFilename)

    raster_name_tmp <- gsub(extension_str,"",basename(inFilename))

    #tile_selected <- as.character(df_raster_pred_tiles$tile_id[j])

    data_df$tile_id <- as.character(data_df$tile_id)

  NA_flag_val <- list_param$NA_flag_val

  #NAflag,file_format,out_suffix etc...

  file_format <- list_param$file_format

  ######## START SCRIPT ###############

  #Now match the correct tiles with data used in kriging...

  #match the correct tile!!! df_tile_processed

  #pattern_str <- as.character(unique(df_tile_processed$tile_coord))

  list_tile_coord <- as.character(df_tile_processed_reg$tile_coord)

  pattern_str <- glob2rx(paste("*",list_tile_coord,"*","*.tif",sep=""))

  keywords_str <- pattern_str

  tmp_str2 <-unlist(lapply(keywords_str,grep,lf_day_tiles,value=TRUE))

  df_raster_pred_tiles <- merge(df_raster_pred_tiles_tmp,df_tile_processed_reg,by="tile_coord")

  df_raster_pred_tiles$path_NEX <- as.character(df_raster_pred_tiles$path_NEX)

  df_raster_pred_tiles$reg <- basename(dirname(df_raster_pred_tiles$path_NEX))

  lf <- df_raster_pred_tiles$files

  ##Make this loop a function later on, testing right now

  #debug(generate_residuals_raster)

  list_pred_res_obj <- mclapply(1:length(lf),FUN=generate_residuals_raster,list_param=list_param_generate_residuals_raster,mc.preschedule=FALSE,mc.cores = num_cores)                           

  ## Add to df_raster_pred_tiles

  #write output

  accuracy_residuals_obj <-list(list_pred_res_obj,data_df,df_raster_pred_tiles)

  names(accuracy_residuals_obj)<-c("list_pred_res_obj","data_df","df_raster_pred_tiles")

                                                            out_suffix_str,".RData",sep="")))

  return(accuracy_residuals_obj)