Changeset 300 for trunk/SRC/ToBeReviewed

Timestamp:

10/10/07 12:23:47 (17 years ago)

Author:

smasson

Message:

small bugfix related to precision number...

File:

• trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro (modified) (2 diffs)

trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

@@ -343 +343 @@
     IF finite(missing_value) EQ 1 THEN BEGIN
         CASE 1 OF
-          missing_value GT 1.e6:missing = where(res GT missing_value-10.)
-          missing_value LT -1.e6:missing = where(res LT missing_value+10.)
+          missing_value GT 1.e6:missing = where(res GT missing_value/10.)
+          missing_value LT -1.e6:missing = where(res LT missing_value/10.)
           abs(missing_value) LT 1.e-6:missing = where(res LT 1.e-6)
           ELSE:missing = where(res EQ missing_value)
@@ -350 +350 @@
     ENDIF ELSE missing = where(finite(res) EQ 0)
   ENDIF ELSE missing = -1
+help,  missing
+stop
   IF NOT keyword_set(addscl_before) THEN BEGIN
     if scale_factor NE 1 then res = temporary(res)*scale_factor