Changeset 328 for trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt.pro

Timestamp:

12/13/07 20:27:11 (17 years ago)

Author:

smasson

Message:

bugfix, continuation of changeset:326

File:

• trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt.pro (modified) (1 diff)

trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt.pro

@@ -347 +347 @@
   IF keyword_set(strictfill) THEN BEGIN
     tmp = z2d ge max
-    tmp = 1b - byte(extrapolate(tmp, tmp, 1, x_periodic = keyword_set(key_periodic)*(nx EQ jpi) ))
-    trifield = triangule(temporary(tmp)*mask, coinmonte = coinmontemask $
-               , coindescend = coindescendmask, keep_cont = 0)
-    indicezoommask = (lindgen(jpi, jpj))[firstx:lastx, firsty:lasty]
+    IF total(tmp GE 1) THEN BEGIN 
+      tmp = 1b - byte(extrapolate(tmp, tmp, 1, x_periodic = keyword_set(key_periodic)*(nx EQ jpi) ))
+      trifield = triangule(temporary(tmp)*mask, coinmonte = coinmontemask $
+                           , coindescend = coindescendmask, keep_cont = 0)
+      indicezoommask = (lindgen(jpi, jpj))[firstx:lastx, firsty:lasty]
+    ENDIF
   ENDIF
 ; filling the mask values