minor bugfix in write2ncdf4

metno · Nov 8, 2023 · 3ba1b97 · 3ba1b97
1 parent d4963e3
commit 3ba1b97
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/write2ncdf.R b/R/write2ncdf.R
@@ -659,6 +659,7 @@ generate.station.ncfile <- function(x,file,stats,missval,offset,scale,torg,prec=
   src <- paste(rownames(table(attr(x,"source"))),collapse="/")
   if (verbose) print(src)
   y <- coredata(x)
+  nt <- length(index(x))
   list2env(stats,envir=environment())
   verbose <- verbose[1]
   unitx <- attr(x,'unit')