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