Как уменьшить размер файла netCDF и изменить данные?

dimensions:
    i1 = 3 ;
    x = 11 ;
    s1 = 1 ;
    mid1 = 8 ;
    mid2 = 8 ;
variables:
    double Height(i1,x) ;
    double Temp(s1, x) ;
    short Soil(s1, x) ;
    double Liq(mid1, x) ;

У меня есть файл netCDF, в котором я хочу уменьшить размер одного из измерений mid1 и заменить значения:

icond <- ncdf4::nc_open('dat.nc)

#New dimensions for new file
idim <- icond$dim[['i1']]
xdim <- icond$dim[['x']]
s1dim <- icond$dim[['s1']]
mid1dim <- ncdim_def("mid1", "", 1:3) #3 layers
mid2dim <- icond$dim[['mid2']]

mv <- -9999

#Get variable data
Liqxdat <- ncvar_get(icond, 'Liq')[,1:3] #3 Layers 

#Define new variable
Liqx = ncvar_def( "Liq", "units", list(mid1dim, i1), mv, prec="double")

#Create netCDF file
nc =  nc_create("test.nc", list(Height, Temp, Soil, Liqx)

#Write data to the NetCDF file
ncvar_put(nc, Liqx, Liqxdat)

Но это не дает мне никаких данных в выходном файле.


r netcdf netcdf4
person maximusdooku    schedule 25.09.2017    source источник

Ответы (1)


arrow_upward
1
arrow_downward

К сожалению, я не могу запустить ваш код. Так что я могу только догадываться, почему это не работает.

  1. В строке nc = nc_create(..) отсутствует закрывающая скобка.
  2. Высота, температура и почва не определены.
  3. С помощью nc_create вы создаете новый файл, но не добавляете данные в существующий файл, вы этого хотите? Если вы хотите добавить новую переменную, вы должны использовать ncvar_add()
person RFelber    schedule 07.11.2017