source: trunk/CONFIG/ORCA2_LIM/IDL_scripts/xxx_Eq_S.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_Eq_S, S1, S2, SLev, sEXP1, sEXP2, start_end,  POSTSCRIPT = postscript, _extra = ex
2 
3  compile_opt idl2, strictarrsubs
4
5  S = S1.arr-S2.arr
6  sEXP = sEXP1+' - '+sEXP2
7  min =  -1.
8  max = -min
9  inter = .1
10 
11  if sEXP2 eq sEXP1 then begin
12     sEXP = sEXP1+' - Levitus'
13     S = S1.arr-Slev.arr
14     min = -1.
15     max = -min
16     inter = .1
17  endif
18 
19  if KEYWORD_SET(POSTSCRIPT) then begin
20     openps, '021_Eq_S_'+sEXP+'_y'+start_end+'.ps', portrait = 1
21  endif
22                                ;
23  title = sEXP1+' Equatorial S  / year '+start_end
24  pltz, S1, MININ = 33., MAXIN = 37., INTER = .2, typein='xz'  $
25        , small=[1,2,1], COAST_THICK = 2, TITLE = title, boxzoom = [20., 380., -1., 1., 0., 500.], /PORTRAIT, _extra = ex
26                                ;
27  title = sEXP+' Eq. S / year '+start_end
28  pltz, S, MININ = min, MAXIN = max, INTER = inter, typein = 'xz', STYLE = 'so0so' $
29        , small = [1,2,2], COAST_THICK = 2, TITLE = title, boxzoom = [20., 380., -1., 1., 0., 500.], /PORTRAIT, _extra = ex
30;                             
31  title = 'Equatorial differences with Levitus and '+sEXP+' of salinity'
32  text = [   title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/v32colib_v32colib/ps/021_Eq_S_'+sEXP+'_y'+start_end+'.png  />  ' ]
33  putfile, '/tmp/prova.txt', text
34
35  if KEYWORD_SET(POSTSCRIPT) then begin
36     closeps
37  endif
38
39  return
40end
41
Note: See TracBrowser for help on using the repository browser.