Changeset 172 for trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro

Timestamp:

09/11/06 09:11:26 (18 years ago)

Author:

smasson

Message:

bugfix + manage roms outputs

File:

• trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro (modified) (3 diffs)

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

@@ -267 +267 @@
         return
       endif
-      grille, mask, glam, gphi, gdep, nx, ny,nz
+      grille, mask, glam, gphi, gdep, nx, ny, nz, type = type
    ENDELSE
 ;---------------------------------------------------------------
@@ -412 +412 @@
             end
             type eq 'zt' : begin
-               yy =  gdep
+               IF size(gdep, /n_dimensions) EQ 2 THEN $
+                  yy = transpose(gdep) ELSE yy = gdep
                xx = temps-tempsmin
                z2d = transpose(z2d)
@@ -463 +464 @@
       z2d = remplit(z2d,nite=2+keyword_set(nan), mask = mask, /basique, _extra=ex)
       if NOT keyword_set(strictfill) then z2d = min > z2d <  max
-      if keyword_set(nan) then $
-       triangulation = triangule(mask,/basic,coinmonte=coinmontemask $
-                                 ,coindescend=coindescendmask) $
-       ELSE triangulation = -1 
+      if keyword_set(nan) then BEGIN
+        triangulation = triangule(mask, /basic, coinmonte = coinmontemask $
+                                  , coindescend = coindescendmask)
+        usetri = 1
+      ENDIF ELSE triangulation = -1 
+      
+      IF size(gdep, /n_dimensions) EQ 2 THEN BEGIN
+        usetri = 2
+        IF triangulation[0] EQ -1 THEN $
+           triangulation = triangule(mask, /basic, coinmonte = coinmontemask $
+                                     , coindescend = coindescendmask)
+      ENDIF  
 ;----------------------------------------------------------------------
-      pltbase,z2d, xx, yy, mask,xx, yy, level_z2d,colnumb, contour = contour,/noerase $
+      pltbase, z2d, xx, yy, mask, xx, yy, level_z2d, colnumb, contour = contour, /noerase $
        , c_linestyle=linestyle,c_labels=1-(indgen(n_elements(level_z2d)) MOD 2) $
        , trichamp = triangulation, trimsk = triangulation, overplot = overplot $
-       , c_thick=thick, performance = key_performance, usetri = keyword_set(nan) $
+       , c_thick=thick, performance = key_performance, usetri = usetri $
        , coinmontemask=coinmontemask, coindescendmask=coindescendmask, _extra = ex
 ;------------------------------------------------------------