source: trunk/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/xxx_Eq_S.pro @ 2709

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

update idl scripts, 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, '026_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/'+sEXP1+'_'+sEXP2+'/ps/026_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.