Changeset 501 for trunk/SRC/Interpolation

Timestamp:

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

Author:

smasson

Message:

set of bugfixes...

Location:

trunk/SRC/Interpolation

Files:

• compute_fromreg_imoms3_weigaddr.pro (modified) (2 diffs)
• neighbor.pro (modified) (1 diff)

trunk/SRC/Interpolation/compute_fromreg_imoms3_weigaddr.pro

@@ -8 +8 @@
 ; Interpolation
 ;
-; @param alonin {in}{required}{type=2d array}
+; @param alonin {in}{required}{type=1d array}
 ; longitude of the input data
 ;
-; @param alatin {in}{required}{type=2d array}
+; @param alatin {in}{required}{type=1d array}
 ; latitude of the input data
 ;
@@ -133 +133 @@
   IF total(alon[indexlon] GT olon) NE 0 THEN stop
   IF total(alon[indexlon + 1L] LE olon) NE 0 THEN stop
-  IF (where(indexlon LE 1L     ))[0] NE -1 THEN stop
+  IF (where(indexlon LT 1L     ))[0] NE -1 THEN stop
   IF (where(indexlon GE jpia-3L))[0] NE -1 THEN stop
   indexlat = value_locate(alat, olat)

trunk/SRC/Interpolation/neighbor.pro

@@ -69 +69 @@
     IF arg_present(distance) THEN distance = sqrt(distance)
   ENDELSE
-  RETURN, where(distance EQ min(distance))
+  minval = min(distance, indmin)
+  RETURN, indmin
 END