source: trunk/mesoscale/PLOT/SPEC/GW/gravitwave_inc.pro @ 132

Last change on this file since 132 was 131, checked in by aslmd, 14 years ago

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
  • Property svn:executable set to *
File size: 2.1 KB
RevLine 
[85]1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3;;;;;;; W
[131]4colors        = 64
5minfield_init = -10.
6maxfield_init = 10.
7ndiv          = 10
8format        = '(I0)'
9pal           = 17 ;4 ;16 ;18 ;4
[85]10title_user    = 'Vertical velocity (m s!U-1!N)'
[131]11lev=80.+10.*findgen(30)
[85]12;;;;;;;; tk
[131]13;minfield_init = 110.
14;maxfield_init = 230.
15;ndiv         = 12
16;format        = '(I0)'
17;pal          = 33
18;title_user    = 'Temperature (K)'
19;lev = [-10.,-8.,-6.,-4.,-2.,2.,4.,6.,8.,10.]
20;lev=80.+10.*findgen(30)
21;;;;;;;; tk - tsat
22;minfield_init =  -4. ;-8.
23;maxfield_init =  4. ;+8.
24;ndiv         =  8     
25;format        = '(F4.1)'
26;pal           =  0
27;title_user    = 'T!Datm!N - T!Dsat!N (K)'
28;lev = [-6.,-5.,-4.,-3.,-2.,-1.,0.]
29;;;;;;;;; hr_nlte
30;       minfield_init =  -6.
31;       maxfield_init =  6.
32;       ndiv          =  6
33;       format        = '(F4.1)'
34;       pal           =  33
35;       title_user    = 'NLTE heating rate (K / hour)'
36lev=[-20.,-18.,-16.,-14.,-12.,-10.,-8.,-6.,-4.,-2.,2.,4.,6.,8.,10.,12.,14.,16.,18.,20.]
37title_user    = 'NLTE cooling rate (K hour!U-1!N)'
38w=where(abs(what_I_plot) le 1e5) & if (w[0] ne -1) then what_I_plot[w] = - what_I_plot[w]
39minfield_init = 0.
40maxfield_init = 20.
41ndiv          = 10
42pal           = 1 ;4 ;22
43lev=80.+10.*findgen(30)
44format        = '(I0)'
45;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[85]46missing_value=1.e30
47lim_max = maxfield_init & w=where((what_I_plot ge lim_max) and (what_I_plot le 1e9)) & if (w[0] ne -1) then what_I_plot[w]=lim_max
48lim_min = minfield_init & w=where(what_I_plot le lim_min) & if (w[0] ne -1) then what_I_plot[w]=lim_min
49flag_cb = 'true'
50windowx = [5.,55.]
51windowy = [0.,100.]
52windowy = [75.,85.]
53windowx = [5., 35.]
54intervalx = 5.
55intervaly = 5.
[114]56windowy = [0.,130.]
57windowx = [10., 110.]
[131]58;windowy = [50.,130.]
[114]59intervalx = 10.
60intervaly = 10.
[85]61title_axis = ['horizontal coordinate (x5km)','altitude (km)']
62poscb=0.55
63;isotropic='false'
[131]64;lev = 10.*findgen(100)
65;lev = [-6.,-4.,-2.,2.,4.,6.]
66;;lev = [-8.,-5.,-1.,1.,5.,8.]
67;;lev = [-6.,-5.,-4.,-3.,-2.,-1.,0.]
[85]68;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
69;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracBrowser for help on using the repository browser.