Changeset 438 for trunk/SRC

Timestamp:

09/24/10 16:21:08 (14 years ago)

Author:

smasson

Message:

bugfix on ncdf_gettime when time axis is the last variable of the file

File:

• trunk/SRC/ReadWrite/ncdf_gettime.pro (modified) (1 diff)

trunk/SRC/ReadWrite/ncdf_gettime.pro

@@ -106 +106 @@
     REPEAT BEGIN                           ; As long as we have not find a variable having only one dimension: the infinite one
       timeinq = ncdf_varinq(cdfid, timeid) ; that the variable contain.
+      tstok = n_elements(timeinq.dim) EQ 1 AND timeinq.dim[0] EQ inq.recdim
       timeid = timeid+1
-    ENDREP UNTIL (n_elements(timeinq.dim) EQ 1 AND timeinq.dim[0] EQ inq.recdim) OR timeid EQ inq.nvars
-    IF timeid EQ inq.nvars THEN BEGIN
+    ENDREP UNTIL tstok OR timeid EQ inq.nvars
+    IF timeid EQ inq.nvars AND NOT tstok THEN BEGIN
       CASE caller OF
         'read_ncdf':err = 'the file '+filename+' as no time axis variable. !C Use the TIMESTEP keyword'