Changeset 91 for trunk/mesoscale/PLOT/MINIMAL

Timestamp:

Mar 8, 2011, 5:59:28 PM (14 years ago)

Author:

aslmd

Message:

mars: test outliers [dans initracer.F, commente] LMD_MM_MARS: modifications mineures [retrocompatibilite ancienne physique, callphys.def test pour nouvelle physique] PLOT: generalisation de la routine map_uvt pour pouvoir tracer des figures en projection polaire complete

File:

• trunk/mesoscale/PLOT/MINIMAL/map_latlon.pro (modified) (3 diffs)

trunk/mesoscale/PLOT/MINIMAL/map_latlon.pro

@@ -73 +73 @@
 endelse
 if (n_elements(isotropic) eq 0) then isotropic='true'
+if (n_elements(coord2d) eq 0) then coord2d='false'
 
 ;------------------
@@ -160 +161 @@
 if (isotropic eq 'true') then begin
         loadct, 0, /silent
-        if ( n_elements(polar) eq 0 ) then begin
+        if ( coord2d ne 'polar' ) then begin
                 ;;trace non polaire
                 contour, /nodata, $
@@ -183 +184 @@
         endelse
         subtitle_user = ''
-        print, 'YORGL YORGL'
 endif else begin
         pospos = [0.15, 0.35, 0.95, 0.95] ;; non-iso
         loadct, 0, /silent
-        if ( n_elements(polar) eq 0 ) then begin
+        if ( coord2d ne 'polar' ) then begin
                 ;;trace non polaire
                 contour, /nodata, $