Changeset 171 for trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltbase.pro

Timestamp:

09/07/06 16:11:11 (18 years ago)

Author:

smasson

Message:

fix critical bug in plt and pltz when plotting zoom area on other grid than T, introduced in r67

File:

• trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltbase.pro (modified) (2 diffs)

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

@@ -131 +131 @@
              , COINMONTENAN = coinmontenan, COINDESCENDNAN = coindescendnan $
              , INDICEZOOMMASK = indicezoommask, INDICEZOOMNAN = indicezoomnan $
-             , MASKNAN = masknan, TRINAN = trinan $
+             , MASKORG = maskorg, MASKNAN = masknan, TRINAN = trinan $
              , FORPLT = forplt, REALSECTION = realsection $
              , MORE = more, EXCHANGE_XY = exchange_xy $
@@ -208 +208 @@
     IF (n_elements(mask) GT 1 OR n_elements(masknan) GT 1) $
       AND NOT keyword_set(cont_nofill) THEN BEGIN 
-;      tonan = where((mask*masknan) EQ 0, count)
-      tonan = where(remplit(mask*masknan, nite = 1, mask = mask*masknan $
+      IF keyword_set(maskorg) THEN tonan = maskorg*masknan ELSE tonan = mask*masknan 
+      tonan = where(remplit(tonan, nite = 1, mask = tonan $
                             , /basique, fillval = 0 $
                             , fillxdir = keyword_set(realsection)) EQ 0, count)