Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- [1] "file C:1.DBL.nc has 2 dimensions:"
- [1] "lat Size: 1"
- [1] "lon Size: 1"
- [1] "------------------------"
- [1] "file C:\Users\data.nc has 3 variables:"
- [1] "short So[lon,lat]
- [1] "short il[lon,lat]
- [1] short fg[lon,lat]
- a<-list.files("C:\Users\Data", "*.nc", full.names = TRUE)
- for(i in 1:length(a)){
- f <- open.ncdf(a[i])
- A = get.var.ncdf(nc=f,varid="So",verbose=TRUE)
- B <- get.var.ncdf(nc=f,varid="il")
- C <- get.var.ncdf(nc=f,varid="fg")
- write.table(t(rbind(A,B,C)),file="output-all.txt")}
- "A" "B" "C"
- "1" 500 200 300
- "A" "B" "C"
- "1" 500 200 300
- "2" 500 200 300
- "3" 500 200 300
- "4" 500 200 300
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement