Changeset 131 for trunk/mesoscale/PLOT/MINIMAL

Timestamp:

May 25, 2011, 4:19:36 PM (14 years ago)

Author:

aslmd

Message:

mars

M 130 mars/libf/phymars/callradite.F
M 130 mars/README
no more need to modify callradite.F prior to compilation
[but still dimradmars.h must be modified]

--> in callradite.F we now have

-- DEFAULT name_iaer(1) is "dust_conrath"
-- IF (doubleq.AND.active) name_iaer(1) = "dust_doubleq"
-- IF (water.AND.activice) name_iaer(2) = "h2o_ice"

M 130 000-USERS
small meeting about SVN for "planeto" team

M 130 mars/libf/phymars/meso_physiq.F
purely cosmetic changes

M 130 mesoscale/PLOT/MINIMAL/map_latlon.pro
M 130 mesoscale/PLOT/SPEC/GW/gravitwave2.pro
M 130 mesoscale/PLOT/SPEC/GW/gravitwaveprof.pro
M 130 mesoscale/PLOT/SPEC/GW/gravitwave_inc.pro
A 0 mesoscale/PLOT/SPEC/MAP/defs/THARSIS_newphys_bugnoRAC_RACgcm_TAUTES.map_uvt_inc.pro
M 130 mesoscale/PLOT/SPEC/MAP/map_uvt.pro
graphic stuff for GW studies and H2O cycle

File:

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

trunk/mesoscale/PLOT/MINIMAL/map_latlon.pro

@@ -375 +375 @@
 ;yeah=UNIQ(lev) & lev=lev[yeah]
 
+colcont = 75
+if (pal eq 16) then colcont=0 ;noir
+if (pal eq 4) then colcont=255 ;blanc
 
 if (isotropic eq 'true') then begin
@@ -387 +390 @@
         max_value=max_contour, $
         min_value=min_contour, $        
-        c_labels=findgen(n_elements(lev))*0., $
+        c_labels=findgen(n_elements(lev))*1., $
 ;        c_charsize=!P.charsize/2, $
-        color=75;0;50;75;100tropclair;150;0;, $
+        color=colcont;75;0;50;75;100tropclair;150;0;, $
 ;       /noerase, $
 ;       xtitle=xtitleset, $
@@ -410 +413 @@
         min_value=min_contour, $
         c_labels=findgen(n_elements(lev))*0., $
-        color=0;, $
+        color=colcont;, $
 ;        /noerase, $
 ;        xtitle=xtitleset, $