|
Last change
on this file since 134 was
85,
checked in by aslmd, 14 years ago
|
|
LMD_MM_MARS et LMD_LES_MARS: ajout des routines IDL pour tracer les sorties --> voir mesoscale/PLOT
|
|
File size:
1.1 KB
|
| Line | |
|---|
| 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 2 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 3 | ntime = 10 |
|---|
| 4 | nlevel = 0 |
|---|
| 5 | filename = './wrfout_d01_2024-07-03_06:00:00_z' |
|---|
| 6 | save_ps = 'polar' |
|---|
| 7 | cfield1 = 'W' |
|---|
| 8 | cfield2 = 'HGT' |
|---|
| 9 | cfield3 = 'SWDOWNZ' |
|---|
| 10 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 11 | format = '(F4.1)' |
|---|
| 12 | colors = 32 ;128 |
|---|
| 13 | minfield_init = -2.50 |
|---|
| 14 | maxfield_init = 2.50 |
|---|
| 15 | pal = 33 ;39 ;6 ;11 ;0 ;11 ;6 ;0 ;6 ;39 ;19 |
|---|
| 16 | title_user = '' |
|---|
| 17 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 18 | missing_value=1.e30 |
|---|
| 19 | lim_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 |
|---|
| 20 | lim_min = minfield_init & w=where(what_I_plot le lim_min) & if (w[0] ne -1) then what_I_plot[w]=lim_min |
|---|
| 21 | lim_blank = 0.5 & w=where(abs(what_I_plot) le lim_blank) & if (w[0] ne -1) then what_I_plot[w]=missing_value |
|---|
| 22 | overcontour = overcontour / 1000. |
|---|
| 23 | lev = -16. + 2.*findgen(40) |
|---|
| 24 | ;lev = [1, 100, 200, 300, 400, 500] |
|---|
| 25 | flag_cb = 'false' |
|---|
| 26 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 27 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 28 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
