Changeset 208

Timestamp:

02/02/07 12:23:09 (17 years ago)

Author:

smasson

Message:

bugfix in bilinear interpolation when out of the input domain

File:

• trunk/SRC/Interpolation/compute_fromreg_bilinear_weigaddr.pro (modified) (1 diff)

trunk/SRC/Interpolation/compute_fromreg_bilinear_weigaddr.pro

@@ -211 +211 @@
     IF south[0] NE -1 THEN yaddr[*, bad[temporary(south)]] = 0L
     north = where(ybad GT alat[jpja-1])
-    IF north[0] NE -1 THEN yaddr[*, bad[temporary(north)]] = 0L
+    IF north[0] NE -1 THEN yaddr[*, bad[temporary(north)]] = jpja-1
     ybad = -1 & bad = -1 ; free memory
   ENDIF