Changeset 225 for trunk

Timestamp:

03/15/07 12:38:33 (17 years ago)

Author:

smasson

Message:

bugfix in ncdf_getaxis

File:

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

trunk/SRC/ReadWrite/ncdf_getaxis.pro

@@ -193 +193 @@
     IF yinq.ndims GE 2 THEN BEGIN
       ncdf_diminq, cdfid, yinq.dim[0], blabla, jpifromy
+      dimidy = yinq.dim[1]
+    ENDIF ELSE dimidy = yinq.dim[0]
+  ENDELSE
+;
+  IF arg_present(yaxis) THEN BEGIN
+    IF n_elements(jpifromy) NE 0 THEN BEGIN
       IF jpifromy NE jpifromx THEN BEGIN
         dummy = report('x/y axes do not have the same x dimension...')
         stop
       ENDIF
-      dimidy = yinq.dim[1]
-    ENDIF ELSE dimidy = yinq.dim[0]
-  ENDELSE
-;
-  IF arg_present(yaxis) THEN BEGIN
+    ENDIF
     ncdf_diminq, cdfid, dimidy, blabla, jpjfromy
     IF n_elements(jpjfromx) NE 0 THEN BEGIN