#For multiple time scale methods, the interpolation is done first at the monthly time scale then delta surfaces are added.

#AUTHOR: Benoit Parmentier                                                                        

#CREATED ON: 04/01/2013  

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

#

# TO DO:

  if (interpolation_method %in% c("gam_fusion","kriging_fusion","gwr_fusion")){

    clim_method_mod_obj_file <- file.path(out_path_clim,paste(interpolation_method,"_mod_",y_var_name,out_prefix,".RData",sep=""))

    if(!file.exists(clim_method_mod_obj_file)){

      names(list_param_runClim_KGFusion)<-c("list_index","covar_rast","covar_names","lst_avg","list_models","dst","sampling_month_obj","var","y_var_name","out_prefix","out_path")

      #debug(runClim_KGFusion)

      #test<-runClim_KGFusion(1,list_param=list_param_runClim_KGFusion)

      clim_method_mod_obj<-mclapply(1:length(sampling_month_obj$ghcn_data), list_param=list_param_runClim_KGFusion, runClim_KGFusion,mc.preschedule=FALSE,mc.cores = num_cores) #This is the end bracket from mclapply(...) statement

      #Use function to extract list

    }else{

      clim_method_mod_obj <- load_obj(clim_method_mod_obj_file) #load the existing file

    clim_method_mod_obj_file <- file.path(out_path_clim,paste(interpolation_method,"_mod_",y_var_name,out_prefix,".RData",sep=""))

    if(!file.exists(clim_method_mod_obj_file)){

      num_cores2 = as.integer(num_cores) + 2

      names(list_param_runClim_KGCAI)<-c("list_index","covar_rast","covar_names","lst_avg","list_models","dst","sampling_month_obj","var","y_var_name","out_prefix","out_path")

      clim_method_mod_obj<-mclapply(1:length(sampling_month_obj$ghcn_data), list_param=list_param_runClim_KGCAI, runClim_KGCAI,mc.preschedule=FALSE,mc.cores = num_cores2) #This is the end bracket from mclapply(...) statement

      #test<-runClim_KGCAI(1,list_param=list_param_runClim_KGCAI)

    }else{

      clim_method_mod_obj <- load_obj(clim_method_mod_obj_file) #load the existing file

    }