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

Timestamp:

05/23/06 15:45:47 (18 years ago)

Author:

smasson

Message:

debug xxx and cie + clean data file + rm perldoc_idl

File:

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

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

@@ -499 +499 @@
             end
             type eq 'yt' : begin
-               IF (size(gphi))[0] EQ 1 then yy = gphi ELSE yy = reform(gphi[0, *])
+               IF (size(gphi))[0] EQ 1 then yy = gphi ELSE BEGIN 
+                 IF keyword_set(key_irregular) THEN BEGIN 
+                   cln = (where(gphi EQ max(gphi)))[0]
+                   yy = reform(gphi[cln MOD nx, *])
+                 ENDIF ELSE yy = reform(gphi[0, *])
+               ENDELSE
                xx = temps-tempsmin
                z2d = transpose(z2d)