source:
trunk/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/xxx_Erp.pro
@
2711
Last change on this file since 2711 was 2711, checked in by flavoni, 13 years ago | |
---|---|
File size: 981 bytes |
Rev | Line | |
---|---|---|
[2709] | 1 | pro xxx_Erp, ERP1, ERP2, sEXP1, sEXP2, start_end, POSTSCRIPT = postscript, _extra = ex |
[2711] | 2 | |
3 | @common | |
[2709] | 4 | |
5 | compile_opt idl2, strictarrsubs | |
6 | ||
7 | if KEYWORD_SET(POSTSCRIPT) then begin | |
8 | openps, '001_Erp_'+sEXP1+'_'+sEXP2+'_y'+start_end+'.ps', portrait = 1 | |
9 | endif | |
10 | ||
11 | title=sEXP1+' Erp (mm/day) / year '+start_end | |
[2711] | 12 | varunit= 'mm/day' |
[2709] | 13 | plt, ERP1, MIN = -5., MAX = 5., INTER = .5 $ |
14 | , small = [1,2,1], COAST_THICK = 2, TITLE = title, /PORTRAIT, _extra=ex | |
15 | ||
16 | if sEXP1 ne sEXP2 then begin | |
17 | ||
18 | title=sEXP1+' - '+sEXP2+' / Erp year '+start_end | |
19 | plt, ERP1-ERP2, MIN = -2., MAX = 2., INTER = .25 $ | |
20 | , small = [1,2,2], COAST_THICK = 2, TITLE = title, /NOERASE, _extra=ex | |
21 | ||
22 | endif | |
23 | ||
24 | title = 'Erp field' | |
25 | text = [ title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/'+sEXP1+'_'+sEXP2+'/ps/001_Erp_'+sEXP1+'_'+sEXP2+'_y '+start_end+'.png /> ' ] | |
26 | putfile, '/tmp/prova.txt', text | |
27 | ||
28 | ||
29 | if KEYWORD_SET(POSTSCRIPT) then begin | |
30 | closeps | |
31 | endif | |
32 | ||
33 | return | |
34 | end | |
35 |
Note: See TracBrowser
for help on using the repository browser.