source: trunk/CONFIG/ORCA2_LIM/IDL_scripts/plt_bsf.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.2 KB
Line 
1pro plt_bsf, U1, U2, sEXP1, sEXP2, start_end, POSTSCRIPT = postscript, _extra = ex
2
3  compile_opt idl2, strictarrsubs
4
5  @common
6
7  if KEYWORD_SET(POSTSCRIPT) then begin
8     openps, '005_bsf_'+sEXP1+'_'+sEXP2+'_y'+start_end+'.ps',  portrait = 1
9  endif
10  domdef, 0, 6000
11
12
13  bb1 = bsf(U1.arr, refvalue = 0., refpoint = [25, 0] )
14  bb2 = bsf(U2.arr, refvalue = 0., refpoint = [25, 0])
15 
16
17  title = sEXP1+' Barotropic Stream Function'+' / year '+start_end
18  plt, bb1, min =-200., max = 200., int = 10.,/portrait, FORMAT = '(I4)', STYLE= 'so0so' $
19       , small = [1,2,1], COAST_THICK = 2, TITLE = title,  _extra = ex
20
21
22  if sEXP1 ne sEXP2 then begin
23
24     title = sEXP1+' - '+sEXP2+' Barotropic Stream Function'+' / year '+start_end
25     plt, bb1.arr - bb2.arr , min = -20., max = 20., int = 2.,  FORMAT = '(I2)', STYLE= 'so0so' $
26          , small = [1,2,2], COAST_THICK = 2, TITLE = title, /NOERASE, _extra = ex
27   
28  endif
29 
30  title = 'Barotropic Stream Function'
31  text = [   title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/v32colib_v32colib/ps/005_bsf_'+sEXP1+'_'+sEXP2+'_y'+start_end+'.png  />  ' ]
32  putfile, '/tmp/prova.txt', text
33
34  if KEYWORD_SET(POSTSCRIPT) then begin
35     closeps
36  endif
37
38
39  return
40end
41
Note: See TracBrowser for help on using the repository browser.