| 1 | ; docformat = 'rst' |
|---|
| 2 | ;+ |
|---|
| 3 | ; |
|---|
| 4 | ; plot figure 9 of paper1 |
|---|
| 5 | ; |
|---|
| 6 | ; :Categories: PNG hoevmuller VARAMMA |
|---|
| 7 | ; |
|---|
| 8 | ; :Uses: |
|---|
| 9 | ; hovmuller.pro_ |
|---|
| 10 | ; |
|---|
| 11 | ; .. _hovmuller.pro: hovmuller.pro.html |
|---|
| 12 | ; |
|---|
| 13 | ; :Restrictions: |
|---|
| 14 | ; - Requires SAXO |
|---|
| 15 | ; |
|---|
| 16 | ; :Pre: |
|---|
| 17 | ; varamma_profile.sh_ |
|---|
| 18 | ; |
|---|
| 19 | ; .. _varamma_profile.sh: varamma_profile.sh.html |
|---|
| 20 | ; |
|---|
| 21 | ; for AMSU dataset be sure to have *cx*\ ``.an``\ *yyyy*\ ``.nc`` |
|---|
| 22 | ; in the directory defined in ${VARAMMA_ID}/ |
|---|
| 23 | ; |
|---|
| 24 | ; ++ OLR |
|---|
| 25 | ; ++ ECMWF |
|---|
| 26 | ; |
|---|
| 27 | ; :Post: |
|---|
| 28 | ; varamma_profile.sh_ |
|---|
| 29 | ; |
|---|
| 30 | ; :Todo: |
|---|
| 31 | ; |
|---|
| 32 | ; |
|---|
| 33 | ; :Examples: |
|---|
| 34 | ; |
|---|
| 35 | ; To produce a PNG file : |
|---|
| 36 | ; :: |
|---|
| 37 | ; |
|---|
| 38 | ; IDL> figure09 |
|---|
| 39 | ; |
|---|
| 40 | ; :History: |
|---|
| 41 | ; |
|---|
| 42 | ; - fplod 2008-12-23T15:47:59Z aedon.locean-ipsl.upmc.fr (Darwin) |
|---|
| 43 | ; |
|---|
| 44 | ; * add ubox keywords required by hovmuller.pro |
|---|
| 45 | ; |
|---|
| 46 | ; - fplod 2008-08-13T08:41:22Z zeus.locean-ipsl.upmc.fr (Linux) |
|---|
| 47 | ; |
|---|
| 48 | ; * more concrete action inspired by figure08.pro |
|---|
| 49 | ; |
|---|
| 50 | ; - fplod 2008-08-11T15:56:10Z aedon.locean-ipsl.upmc.fr (Darwin) |
|---|
| 51 | ; |
|---|
| 52 | ; * creation of header not yet ok, just the idea |
|---|
| 53 | ; |
|---|
| 54 | ;- |
|---|
| 55 | pro figure09,_EXTRA=extra |
|---|
| 56 | ; |
|---|
| 57 | compile_opt idl2, strictarrsubs |
|---|
| 58 | ; |
|---|
| 59 | ifigure=9 |
|---|
| 60 | ; |
|---|
| 61 | fullfilename_out=forout('figure' + string(ifigure,format='(I2.2)')+ '.png', _EXTRA=extra) |
|---|
| 62 | IF (fullfilename_out EQ -1) THEN BEGIN |
|---|
| 63 | RETURN |
|---|
| 64 | ENDIF |
|---|
| 65 | ; |
|---|
| 66 | hovmuller, 'AMSU', 'b5', 2006L, axe='longitude', ubox=[-30.,+40.,-30.,45.], small=[2,3,1],/nosave |
|---|
| 67 | hovmuller, 'AMSU', 'b3', 2006L, axe='longitude', ubox=[-30.,+40.,-30.,45.], small=[2,3,2],/noerase,/nosave |
|---|
| 68 | hovmuller, 'OLR', 'n.a', 2006L, axe='longitude', ubox=[-30.,+40.,-30.,45.], small=[2,3,3],/noerase,/nosave |
|---|
| 69 | ;++hovmuller, 'ECMWF', 'rh', '700-800', 2006L, ubox=[-30.,+40.,-30.,45.], small=[2,3,5],/noerase,/nosave |
|---|
| 70 | ;++hovmuller, 'ECMWF', 'rh', '300-400', 2006L, ubox=[-30.,+40.,-30.,45.], small=[2,3,6],/noerase,/nosave |
|---|
| 71 | ; |
|---|
| 72 | saveimage, fullfilename_out,/png |
|---|
| 73 | ; |
|---|
| 74 | end |
|---|
