search for: unlim

...length(mrunoff_data) [1] 8 [1] 8 [1] 9 [1] 8 > str(dimx); str(dimy) List of 8 $ name : chr "Lon" $ units : chr "deg E" $ vals : num [1:720] 0.25 0.75 1.25 1.75 2.25 2.75 3.25 3.75 4.25 4.75 ... $ len : int 720 $ id : num -1 $ unlim : logi FALSE $ dimvarid : num -1 $ create_dimvar: logi TRUE - attr(*, "class")= chr "dim.ncdf" List of 8 $ name : chr "Lat" $ units : chr "deg N" $ vals : num [1:360] -89.8 -89.2 -88.8 -88.2 -87.8 ... $ len :...

...ength(mrunoff_data) [1] 8 [1] 8 [1] 9 [1] 8 > str(dimx); str(dimy) List of 8 $ name : chr "Lon" $ units : chr "deg E" $ vals : num [1:720] 0.25 0.75 1.25 1.75 2.25 2.75 3.25 3.75 4.25 4.75 ... $ len : int 720 $ id : num -1 $ unlim : logi FALSE $ dimvarid : num -1 $ create_dimvar: logi TRUE - attr(*, "class")= chr "dim.ncdf" List of 8 $ name : chr "Lat" $ units : chr "deg N" $ vals : num [1:360] -89.8 -89.2 -88.8 -88.2 -87.8 ... $ len...

...me <- function(filename='outputfile.nc',data,lons,lats,nt){ lon <- dim.def.ncdf('lon','degrees_east',lons) lat <- dim.def.ncdf('lat','degrees_north',lats) times <- 1:nt tdim <- dim.def.ncdf('time','days since 1980-01-01', times, unlim=TRUE) # levs <- dim.def.ncdf('lev','pressure',levs) var <- var.def.ncdf('data','unitless',list(lon,lat,tdim),-999.9) ncid <- create.ncdf(filename,list(var)) put.var.ncdf(ncid, var, data) close.ncdf(ncid) } ##########################end of function##########...

...me <- function(filename='outputfile.nc',data,lons,lats,nt){ lon <- dim.def.ncdf('lon','degrees_east',lons) lat <- dim.def.ncdf('lat','degrees_north',lats) times <- 1:nt tdim <- dim.def.ncdf('time','days since 1980-01-01', times, unlim=TRUE) # levs <- dim.def.ncdf('lev','pressure',levs) var <- var.def.ncdf('data','unitless',list(lon,lat,tdim),-999.9) ncid <- create.ncdf(filename,list(var)) put.var.ncdf(ncid, var, data) close.ncdf(ncid) } ##########################end of function##########...

I would like to open an existing netCDF file and add a variable to it. I am using the ncdf package. This test code gives the idea of what I am trying to do: library(ncdf) print('here we go') print('first, construct netCDF file') t<-dim.def.ncdf('t','',1:1,unlim=T,create_dimvar=F) print('defining first vars') a<-var.def.ncdf('a','km',t,missval=-999) b<-var.def.ncdf('b','km',t,missval=-999) print('creating ncobj') ncobj<-create.ncdf('testfile.nc',list(a,b)) print('adding data') put....

...And then this is the script I wrote: setwd("E:/grid") #defining dimension x=dim.def.ncdf("Lon","degreesE",140.0251:146.6751) y=dim.def.ncdf("Lat","degreesN",(-31.025):(-38.975)) t=dim.def.ncdf("Time","1968-01",1:12,unlim=TRUE) #setup variable varmr=var.def.ncdf("mr","mm",list(x,y,t),-99.00, longname="monthly rainfall") #create ncdf file ncnew=create.ncdf("rainfall.nc", varmr) #read input files=list.files(pattern=".asc") mrain=matrix(0:0,0,3) for(i...

How to programmatically (i.e., without no or minimal handcoding) copy a netCDF file? (Without calling > system("cp whatever wherever") :-) Why I ask: I need to "do surgery" on a large netCDF file (technically an I/O API file which uses netCDF). My group believes a data-assimilation error caused a data variable to be corrupted in a certain way, so I'm going to

...using the package ncdf to create netCDF files and I want to mimic the the header of an exiting netCDF file created outside of R. Below is what the existing header looks like (part of it that is different): netcdf ccd1984_05_08 { dimensions: lat = 1974 ; lon = 1894 ; time = UNLIMITED ; // (1 currently) variables: int time(time) ; time:long_name = "time" ; time:units = "days since 1984-05-01 0:0:0" ; time:day_begins = "06:15" ; double lat(lat) ; lat:long_name = &quot...

...#---------------- xvals <- 1:360 yvals <- -90:90 nx <- length(xvals) ny <- length(yvals) xdim <- ncdim_def('Lon','degreesE', xvals ) ydim <- ncdim_def('Lat','degreesE', yvals ) tdim <- ncdim_def('Time','days since 1900-01-01', 0, unlim=TRUE ) #--------- # Make var #--------- mv <- 1.e30 # missing value var_temp <- ncvar_def('Temperature','K', list(xdim,ydim,tdim), mv ) #--------------------- # Make new output file #--------------------- output_fname <-'test_real3d.nc' ncid_new <- nc_create(...

...es (lon, lat, time). The files contain data of one month and I need a year file containing all the data. Because the attributes of all files are the same, I copied the first file and appended the data of the other months. This went well until the provider of the data changed the time-dimension from UNLIMITED to LIMITED. Is there a way to change the time dimension to UNLIMITED? I tried ncnew$dim[[3]]$unlim <- TRUE but this has no effect. Thanks for any help. Kind regards Raphi ------------------------------------------------------------------------------------ Raphael Felber, Dr. sc. Wisse...

...1:360 > yvals <- -90:90 > nx <- length(xvals) > ny <- length(yvals) > xdim <- ncdim_def('Lon','degreesE', xvals ) > ydim <- ncdim_def('Lat','degreesE', yvals ) > tdim <- ncdim_def('Time','days since 1900-01-01', 0, unlim=TRUE ) > #--------- > # Make var > #--------- > mv <- 1.e30 # missing value > var_temp <- ncvar_def('Temperature','K', list(xdim,ydim,tdim), mv ) > #--------------------- > # Make new output file > #--------------------- > output_fname <-'...

...tempdir(), 'combined_d6fg4s64s6g4l.nc') lat.dim <- dim.def.ncdf('lat', 'degrees', 1:nLat) lon.dim <- dim.def.ncdf('lon', 'degrees', 1:nLon) time.dim <- dim.def.ncdf("time", "days since 1970-01-01", as.integer(1:nTime), unlim=T) var.def <- var.def.ncdf('Data', 'mm', list(lon.dim, lat.dim, time.dim), missing.val, prec='single') nc <- create.ncdf(filename, var.def) for(i in 1:nLon) for(j in 1:nLat) for(k in 1:nTime) put.var.ncdf(nc, var.def, i +...

please, help, i have build vpn server (suse 9 + poptop), i have managed to implement tc htb in ip-up script, but every client has own ppp interface (ppp0, ppp1, ppp2...), and my idea is to share available bandwidth, not to limit connection, how to build root tc rule, when I have more then one interface?... please any one width experiance regards _______________________________________________