Changeset 305 for trunk/SRC

Timestamp:

10/19/07 11:36:15 (17 years ago)

Author:

smasson

Message:

bugfix in file_interp, not cleaned in changeset:303

File:

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

trunk/SRC/Interpolation/file_interp.pro

@@ -406 +406 @@
                   ELSE tmpmsk = inmask[*, *, 0]
                 ENDIF ELSE tmpmsk = inmask[*, *, 0]
-                IF inmasksz[2] EQ indimsz[varinq.dim[2]] AND varinq.dim[2] NE ininq.recdim THEN tmpmsk = inmask[*, *, k] $
-                ELSE tmpmsk = inmask[*, *, 0]
                 IF interp THEN data = call_interp2d(temporary(data), inlon, inlat, temporary(tmpmsk), outlon, outlat $
                                                     , INIRR = inirr, METHOD = method, SMOOTH = smooth $