source: trunk/CONFIG/ORCA2_LIM/IDL_scripts/xxx_ARC_Icethick_MARS.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.4 KB
Line 
1pro xxx_ARC_Icethick_MARS, Ithi_mars_1, Ithi_mars_2, sEXP1, sEXP2, start_end, POSTSCRIPT = postscript, _extra = ex
2 
3 @common
4
5 compile_opt idl2, strictarrsubs
6
7 
8 if KEYWORD_SET(POSTSCRIPT) then begin
9    openps, '016_ARC_IceThick_MARS_'+sEXP1+'_'+sEXP2+'y'+start_end+'.ps', portrait = 1
10 endif
11 
12 domdef,20,380,55,90
13           
14 title=sEXP1+' Arctic Ice Thickness MARS/ year '+start_end
15
16 Ithi_mars_1.arr = Ithi_mars_1.arr < 6.
17 plt, Ithi_mars_1.arr - 1.E-04, MIN = 0., MAX = 6., INTER = 0.25 ,/STRICTFILL , CELL_FILL = 2, STYLE = 'so0so'  $
18      , small = [1,2,1], COAST_THICK = 2, TITLE = title $
19      , CHARSIZE = 1.05, GLINETHICK = 2., /ORTHO, MAP = [90,0,0], /PORTRAIT, _extra = ex
20 ;
21 if sEXP1 ne sEXP2 then begin           
22    title = sEXP1+' - '+sEXP2+' Arctic Ice Thickness / year '+start_end
23    plt, Ithi_mars_1.arr - Ithi_mars_2.arr, MIN = -3., MAX = 3., INTER = .5, /STRICTFILL , STYLE = 'so0so' $
24         , small = [1,2,2], COAST_THICK = 2, TITLE = title $
25         , CHARSIZE = 1.05, GLINETHICK = 2., /ORTHO, MAP = [90,0,0], /NOERASE, _extra = ex
26   
27 endif                          ; end of 2
28 
29 domdef
30
31 title = 'Arctic Sea-ice Thickness MARS'
32 text = [   title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/v32colib_v32colib/ps/016_ARC_IceThick_MARS_'+sEXP1+'_'+sEXP2+'_y'+start_end+'.png  />  ' ]
33 putfile, '/tmp/prova.txt', text
34
35 if KEYWORD_SET(POSTSCRIPT) then begin
36    closeps
37 endif
38
39
40 return
41end
Note: See TracBrowser for help on using the repository browser.