Changeset 501 for trunk/SRC/ReadWrite/ncdf_getatt.pro

Timestamp:

09/20/16 20:15:00 (8 years ago)

Author:

smasson

Message:

set of bugfixes...

File:

• trunk/SRC/ReadWrite/ncdf_getatt.pro (modified) (5 diffs)

trunk/SRC/ReadWrite/ncdf_getatt.pro

@@ -58 +58 @@
 ; if this attribute does not exist.
 ;
+; @keyword interval_operation
+; Set this keyword to a named variable in which the value of
+; interval_operation is returned. Return -1 if this attribute
+; does not exist.
+;
 ; @keyword _EXTRA
 ; defined only to be able to call <pro>ncdf_getatt</pro> with the
@@ -76 +81 @@
                  , MISSING_VALUE = missing_value, UNITS = units, CALENDAR = calendar $
                  , LONG_NAME = long_name, STANDARD_NAME = standard_name, DOUBLE = double $
-                 , _extra = ex
+                 , INTERVAL_OPERATION = interval_operation, _extra = ex
 ;
   compile_opt idl2, strictarrsubs
@@ -94 +99 @@
   long_name = ''
   standard_name = ''
+  interval_operation = -1
 ;
   varinq = ncdf_varinq(cdfid, varid)
@@ -136 +142 @@
         '_fillvalue':ncdf_attget, cdfid, varid, attname, missing_value
         'missing_value':ncdf_attget, cdfid, varid, attname, missing_value
+        'interval_operation':BEGIN
+          ncdf_attget, cdfid, varid, attname, tmp
+          tmp = string(tmp)
+          interval_operation = fix(strmid(tmp,0,strpos(tmp,' ')))
+        END
         ELSE:
       ENDCASE
@@ -148 +159 @@
       missing_value = tmp
     ENDIF ELSE BEGIN
-      ras = report('Warning: missing value is not a number: ' + missing_value)
-      missing_value = 'no'
+      ;; ras = report('Warning: missing value is not a number: ' + missing_value)
+      ;; missing_value = 'no'
+      missing_value = (byte(strlowcase(a)))[0]
     ENDELSE
   ENDIF