reversed dimension order

R/WFRTools.R

@@ -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