Commit 2d0b87c3 authored by nperez's avatar nperez
Browse files

replace local source of .saveExp by the function in CSTools_3.1.0

parent 80f738d4
......@@ -15,7 +15,6 @@ library(startR)
library(CSTools)
library(ncdf4)
library(s2dv) # could be removed when CST_SaveExp is merged in CSTools
source("/esarchive/scratch/nperez/git/cstools/R/CST_SaveExp.R") # branch develop-SaveExp
# Define the data:
sdates <- paste0(1993:1996, '1101') # starting dates
......@@ -55,7 +54,7 @@ Chunk_RF <- function(x, nf, destination, startdates, nchunks = chunk_indices) {
vals = 1 : dim(down_data$data)[which(dimname == 'member')],
longname = 'ensemble', create_dimvar = TRUE))
# startdates and dates depends on the chunk:
.saveExp(down_data$data, dims_var = var_dims,
CSTools:::.saveExp(down_data$data, dims_var = var_dims,
var_name = 'tas', units = 'K', sdate = startdates[nchunks['sdate']],
Dates = dates[[nchunks['sdate']]],
cdo_grid_name = paste0('r', length(lon), 'x', length(lat)),
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment