| 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 2 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 3 | ntime = 0 |
|---|
| 4 | nlevel = 0 |
|---|
| 5 | latmin = -90 & latmax = 20 & lonmin = -180 & lonmax = 180 |
|---|
| 6 | filename = '/donnees/aslmd/MODELES//LMD_MM_MARS/mpi_64/WPS/geo_em.d01.nc' & save_ps = 'polar1' |
|---|
| 7 | filename = '/donnees/aslmd/MODELES//LMD_MM_MARS/mpi_64/WPS/geo_em.d02.nc' & save_ps = 'polar2' |
|---|
| 8 | filename = '/donnees/aslmd/MODELES//LMD_MM_MARS/mpi_64/WPS/geo_em.d03.nc' & save_ps = 'polar3' |
|---|
| 9 | filename = '/donnees/aslmd/MODELES//LMD_MM_MARS/mpi_64/WPS/geo_em.d04.nc' & save_ps = 'polar4' |
|---|
| 10 | latmin = -40 & latmax = -10 & lonmin = -45 & lonmax = -15 |
|---|
| 11 | filename = '/donnees/aslmd/MODELES//LMD_MM_MARS/mpi_64/WPS/geo_em.d04.nc' & save_ps = 'polarz4' |
|---|
| 12 | filename = '/donnees/aslmd/MODELES//LMD_MM_MARS/mpi_64/WPS/geo_em.d03.nc' & save_ps = 'polarz3' |
|---|
| 13 | filename = '/donnees/aslmd/MODELES//LMD_MM_MARS/mpi_64/WPS/geo_em.d02.nc' & save_ps = 'polarz2' |
|---|
| 14 | filename = '/donnees/aslmd/MODELES//LMD_MM_MARS/mpi_64/WPS/geo_em.d01.nc' & save_ps = 'polarz1' |
|---|
| 15 | latmin = -30 & latmax = -24 & lonmin = -38 & lonmax = -32 |
|---|
| 16 | filename = '/donnees/aslmd/MODELES//LMD_MM_MARS/mpi_64/WPS/geo_em.d04.nc' & save_ps = 'polarzzz4' |
|---|
| 17 | cfield1 = 'HGT_M' |
|---|
| 18 | ;cfield1 = 'THERMAL_INERTIA' |
|---|
| 19 | cfield2 = 'HGT_M' |
|---|
| 20 | cfield3 = 'HGT_M' |
|---|
| 21 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 22 | format = '(I0)' |
|---|
| 23 | colors = 128 |
|---|
| 24 | minfield_init = -8000 |
|---|
| 25 | maxfield_init = +12000 |
|---|
| 26 | pal = 33 ;39 ;6 ;11 ;0 ;11 ;6 ;0 ;6 ;39 ;19 |
|---|
| 27 | ;minfield_init = 150. |
|---|
| 28 | ;maxfield_init = 550. |
|---|
| 29 | ;pal = 3 |
|---|
| 30 | minfield_init = -2500 |
|---|
| 31 | maxfield_init = +1500 |
|---|
| 32 | pal = 33 |
|---|
| 33 | title_user = '' |
|---|
| 34 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 35 | missing_value=1.e30 |
|---|
| 36 | 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 |
|---|
| 37 | lim_min = minfield_init & w=where(what_I_plot le lim_min) & if (w[0] ne -1) then what_I_plot[w]=lim_min |
|---|
| 38 | ;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 |
|---|
| 39 | overcontour = overcontour / 1000. |
|---|
| 40 | lev = -10. + 1.*findgen(40) |
|---|
| 41 | lev = -10. + 0.5*findgen(80) |
|---|
| 42 | flag_cb = 'false' |
|---|
| 43 | flag_cb = 'true' |
|---|
| 44 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 45 | |
|---|
