| 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 2 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 3 | filename = 'wrfout_d01_2024-07-03_06:00:00_z' |
|---|
| 4 | ;filename = 'wrfout_d01_2024-07-02_06:00:00_z' |
|---|
| 5 | ;filename = 'wrfout_d01_2024-07-04_06:00:00_z' |
|---|
| 6 | ;filename = 'wrfout_d01_2024-07-99_06:00:00_z' ;;1234 |
|---|
| 7 | filename = 'wrfout_d01_2024-07-234_06:00:00_z' ;;234 |
|---|
| 8 | ;filename = 'wrfout_d01_2024-07-34_06:00:00_z' |
|---|
| 9 | ;filename = 'wrfout_d01_2024-07-23_06:00:00_z' |
|---|
| 10 | save_ps = 'polar' |
|---|
| 11 | cfield1 = 'W' |
|---|
| 12 | cfield2 = 'HGT' |
|---|
| 13 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 14 | format = '(F4.1)' |
|---|
| 15 | colors = 32 ;128 |
|---|
| 16 | minfield_init = -5000. |
|---|
| 17 | maxfield_init = 5000. |
|---|
| 18 | pal = 0 ;4;16;22 ;33 ;39 ;11 ;0 39 19 ;NON: 6,11 |
|---|
| 19 | title_user = '' |
|---|
| 20 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 21 | missing_value=1.e30 |
|---|
| 22 | 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 |
|---|
| 23 | lim_min = minfield_init & w=where(what_I_plot le lim_min) & if (w[0] ne -1) then what_I_plot[w]=lim_min |
|---|
| 24 | ;lim_blank = 1.5 & w=where(abs(what_I_plot) le lim_blank) & if (w[0] ne -1) then what_I_plot[w]=missing_value |
|---|
| 25 | ;overcontour = overcontour / 1000. |
|---|
| 26 | ;lev = -16. + 2.*findgen(40) |
|---|
| 27 | lev = [0.5, 1., 1.5, 2., 2.5, 3., 3.5, 4., 4.5, 5., 5.5, 6.] |
|---|
| 28 | ;lev = [0.5, 0.8,1.2,1.6,2.0] |
|---|
| 29 | ;lev = [0.75, 1.,2.,3.] |
|---|
| 30 | lev = [0.2, 0.3, 0.5, 1., 2., 3., 5., 10.] |
|---|
| 31 | ;lev = [0.3, 0.5, 1., 2., 3., 5., 10.] |
|---|
| 32 | ;lev = [0.25, 0.5, 0.75, 1.] |
|---|
| 33 | flag_cb = 'false' |
|---|
| 34 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 35 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|---|
| 36 | |
|---|
