startR Decadal 6hourly data

repos <- "/esarchive/exp/CMIP6/dcppA-hindcast/EC-Earth3/DCPP/EC-Earth-Consortium/EC-Earth3/dcppA-hindcast/member/6hrPlevPt/var/gr/v20210910/var_6hrPlevPt_EC-Earth3_dcppA-hindcast_ssdate-membergraux.nc"

sdate <- 2020

ini <- as.POSIXct(as.Date(paste0(sdate, '11010000'), format = '%Y%m%d%H')) end <- as.POSIXct(as.Date(paste0(sdate+10, '11010000'), format = '%Y%m%d%H')) initial <- seq(ini, end, 'year') ini <- as.POSIXct(as.Date(paste0(sdate+1, '10311800'), format = '%Y%m%d%H')) end <- as.POas.Date(paste0(sdate+10, '10311800'), format = '%Y%m%d%H')) final <- seq(ini, end, 'year')

members <- c('r1i4p1f1', 'r2i4p1f1') data <- Start(dat = repos, var = 'uas', sdate = as.character(sdate), member = members, time = 'all', latitude = indices(1:40), longitude = indices(1:40), synonims = list(latitude = c('lat', 'latitude'), longitude = c('lon', 'longitude')), return_vars = list(time = 'dat'), retrieve = TRUE)