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