Commit 58dd44dd authored by Franssen, Wietse's avatar Franssen, Wietse
Browse files

reversed dimension order

parent c91000fc
......@@ -401,16 +401,13 @@ ncLoad <-function(file, varName = NULL, lonlatbox = NULL, timesteps = NULL, z =
# attr(data$Data,"dimensions") <- rev(ncCheckResult$dims[1:2])
attr(data$Data,"dimensions") <- ncCheckResult$dims[1:2]
} else if (length(dim(data$Data))==3) {
# data$Data<-aperm(data$Data, c(3,2,1))
if(ncCheckResult$yFlip) {
for (iTime in 1:dim(data$Data)[1]) {
data$Data[iTime,,]<-apply(data$Data[iTime,,],2,rev)
for (iTime in 1:dim(data$Data)[3]) {
data$Data[,,iTime]<-data$Data[,length(data$Data[1,,1]):1,iTime]
}
}
# attr(data$Data,"dimensions") <- rev(ncCheckResult$dims)
attr(data$Data,"dimensions") <- ncCheckResult$dims
}
#attr(data$Data,"dimensions") <- rev(ncCheckResult$dims)
data$Variable$varName <- varName
## Fill attributes
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment