## Copy attributes from one variable to another; but don't copy units or
## standard_name, and copy long_name as old_long_name.
if (FALSE) {
f1 <- nc_open("pr.nc")
f2 <- nc_open("pr2.nc")
nc.copy.atts(f1, "pr", f2, "pr", c("units", "standard_name"),
c(long_name="old_long_name"))
dim.axes <- nc.get.dim.axes.from.names(f, "pr")
nc_close(f1)
nc_close(f2)
}
Run the code above in your browser using DataLab