Changeset 206 for trunk/SRC

Timestamp:

01/27/07 12:23:48 (17 years ago)

Author:

smasson

Message:

add case missing_value is a string ending with a f

File:

• trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro (modified) (1 diff)

trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

@@ -538 +538 @@
   IF size(missing_value, /type) NE 7 then BEGIN
     IF size(missing_value, /type) EQ 1 THEN BEGIN 
-      IF isnumber(string(missing_value), tmp) EQ 1 THEN missing_value = tmp
+      missing_value = strlowcase(string(missing_value))
+      IF strmid(missing_value, 0, 1, /reverse_offset) EQ 'f' THEN $ 
+        missing_value = strmid(missing_value, 0, strlen(missing_value)-1)
+      IF isnumber(string(missing_value), tmp) EQ 1 THEN missing_value = tmp ELSE BEGIN 
+        print, 'Warning: missing value is not a number: ', missing_value
+        missing_value = - 1
+      ENDELSE
     ENDIF 
 ;    if missing_value NE valmask then begin