source: trunk/CONFIG/ORCA2_LIM/IDL_scripts/xxx_mxl10.pro @ 2150

Last change on this file since 2150 was 2150, checked in by flavoni, 10 years ago

commit idl tools for post-processing, for ORCA2_LIM configuration, see ticket #724

File size: 1.2 KB
Line 
1pro xxx_mxl10, MXL1, MXL2, MLD, sEXP1, sEXP2, start_end, POSTSCRIPT = postscript, _extra = ex
2
3 @common
4
5 compile_opt idl2, strictarrsubs
6
7 MXL = MXL1.arr-MXL2.arr
8 sEXP = sEXP1+' - '+sEXP2
9 min =  -100.
10 max = -min
11 inter = 10.
12 
13 if sEXP2 eq sEXP1 then begin
14    sEXP = sEXP1+' - MLD '
15    MXL = MXL1.arr-MLD.arr
16    min = -80.
17    max = -min
18    inter = 10.
19 endif
20
21 
22 if KEYWORD_SET(POSTSCRIPT) then begin
23    openps, '012_Mxl10_'+sEXP+'_y'+start_end+'.ps', portrait = 1
24 endif
25 
26 title=sEXP1+' Mxl10 / year '+start_end
27 plt, MXL1, MIN = 0., MAX = 500., INTER = 25., /NOCONTOUR ,FORMAT = '(I3)' $
28      , small = [1,2,1], COAST_THICK = 2, TITLE = title, /PORTRAIT, _extra = ex
29 ;
30
31 title=sEXP+' Mxl10 / year '+start_end
32 plt, MXL, MIN = min, MAX = max, INTER = inter  $
33      , small = [1,2,2], COAST_THICK = 2, TITLE = title, /NOCONTOUR, /NOERASE, _extra = ex
34                                ; end of 2
35 title = 'Mxl10 field'
36 text = [   title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/v32colib_v32colib/ps/012_Mxl10_'+sEXP+'_y'+start_end+'.png  />  ' ]
37 putfile, '/tmp/prova.txt', text
38
39
40 if KEYWORD_SET(POSTSCRIPT) then begin
41    closeps
42 endif
43
44 return
45end
46
Note: See TracBrowser for help on using the repository browser.