source: trunk/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/plt_bsf.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.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  title = sEXP1+' Barotropic Stream Function'+' / year '+start_end
17  plt, bb1, min =-200., max = 200., int = 10.,/portrait, FORMAT = '(I4)', STYLE= 'so0so' $
18       , small = [1,2,1], COAST_THICK = 2, TITLE = title,  _extra = ex
19
20
21  if sEXP1 ne sEXP2 then begin
22
23     title = sEXP1+' - '+sEXP2+' Barotropic Stream Function'+' / year '+start_end
24     plt, bb1.arr - bb2.arr , min = -20., max = 20., int = 2.,  FORMAT = '(I2)', STYLE= 'so0so' $
25          , small = [1,2,2], COAST_THICK = 2, TITLE = title, /NOERASE, _extra = ex
26   
27  endif
28 
29  title = 'Barotropic Stream Function'
30  text = [   title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/'+sEXP1+'_'+sEXP2+'/ps/005_bsf_'+sEXP1+'_'+sEXP2+'_y'+start_end+'.png  />  ' ]
31  putfile, '/tmp/prova.txt', text
32
33  if KEYWORD_SET(POSTSCRIPT) then begin
34     closeps
35  endif
36
37
38  return
39end
40
Note: See TracBrowser for help on using the repository browser.