Project

General

Profile

« Previous | Next » 

Revision 341c36db

Added by Benoit Parmentier almost 10 years ago

run 10 NEX assessment part 1 region 5 mosaics

View differences:

climate/research/oregon/interpolation/global_run_scalingup_assessment_part1.R
560 560 
df_tile_processed$path_NEX <- in_dir_list
561 561
562 562 
##Quick exploration of raster object
563 
robj1 <- load_obj(list_raster_obj_files[[1]]) #This is an example tile
563 
robj1 <- load_obj(list_raster_obj_files[[20]]) #This is an example tile
564 564 
#robj1 <- load_obj(lf_raster_obj[4]) #This is tile tile
565 565 

  		




  566
  566
  
    
names(robj1)


  		




  ......




  1050
  1050
  
    
cmd_str <- paste("scp -p",filenames_NEX,paste(Atlas_hostname,Atlas_dir,sep=":"), sep=" ")


  		




  1051
  1051
  
    
system(cmd_str)


  		




  1052
  1052
  
    

  		




  
  1053
  
    
###### COPY MOSAIC files


  		




  
  1054
  
    

  		




  
  1055
  
    
#> system("ls -ltr /nobackupp6/aguzman4/climateLayers/output1500x4500_km/reg5")


  		




  
  1056
  
    
#Copy all mosaics related files in one unique directory called mosaics on Atlas


  		




  
  1057
  
    

  		




  
  1058
  
    
Atlas_dir <- file.path("/data/project/layers/commons/NEX_data/",basename(out_dir),"mosaics")


  		




  
  1059
  
    
Atlas_hostname <- "parmentier@atlas.nceas.ucsb.edu"


  		




  
  1060
  
    
lf_reg4 <- list.files(path=file.path(dirname(in_dir_list[[2]]),"mosaics"),full.names=T)


  		




  
  1061
  
    
lf_reg5 <- list.files(path=file.path(dirname(in_dir_list[[20]]),"mosaics"),full.names=T)


  		




  
  1062
  
    

  		




  
  1063
  
    
#lf_cp_mosaics <- c(lf_reg4,lf_reg5)


  		




  
  1064
  
    
filenames_NEX <- paste(lf_cp_mosaics,collapse=" ")  #copy raster prediction object


  		




  
  1065
  
    
cmd_str <- paste("scp -p",filenames_NEX,paste(Atlas_hostname,Atlas_dir,sep=":"), sep=" ")


  		




  
  1066
  
    
system(cmd_str)


  		




  
  1067
  
    

  		




  
  1068
  
    
#since they have the same  name, must place them in separate dir...


  		




  
  1069
  
    
filenames_NEX <- paste(lf_reg4,collapse=" ")  #copy raster prediction object


  		




  
  1070
  
    
cmd_str <- paste("scp -p",filenames_NEX,paste(Atlas_hostname,file.path(Atlas_dir,"reg4"),sep=":"), sep=" ")


  		




  
  1071
  
    
system(cmd_str)


  		




  
  1072
  
    

  		




  
  1073
  
    
filenames_NEX <- paste(lf_reg5,collapse=" ")  #copy raster prediction object


  		




  
  1074
  
    
cmd_str <- paste("scp -p",filenames_NEX,paste(Atlas_hostname,file.path(Atlas_dir,"reg5"),sep=":"), sep=" ")


  		




  
  1075
  
    
system(cmd_str)


  		




  
  1076
  
    

  		




  1053
  1077
  
    
###Copy shapefiles in the separate directories?


  		




  1054
  1078
  
    
#lf_cp_shp <- list.files(in_dir_shp, ".shp",full.names=T)


  		




  1055
  1079
  
    
#list_tile_scp <- 1:6


  		












Also available in:  Unified diff