source: trunk/CONFIG/ORCA2_LIM/IDL_scripts/xxx_Qnet.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 xxx_Qnet,  Q1, Q2, QNET, sEXP1, sEXP2, start_end, POSTSCRIPT = postscript, _extra = ex
2 
3 @common
4
5 compile_opt idl2, strictarrsubs
6
7 Q = Q1.arr-Q2.arr
8 sEXP = sEXP1+' - '+sEXP2
9 min =  -200.
10 max = -min
11 inter = 20.
12 
13 if sEXP2 eq sEXP1 then begin
14    sEXP = sEXP1+' - OAFlux'
15    Q = Q1.arr-QNET.arr
16    min = -200.
17    max = -min
18    inter = 20.
19 endif
20
21 if KEYWORD_SET(POSTSCRIPT) then begin
22    openps, '003_Qnet_'+sEXP+'_y'+start_end+'.ps', portrait = 1
23 endif
24 
25 title=sEXP1+' / Qnet year '+start_end
26 plt,  Q1,  MIN = -200., MAX = 200., INTER = 20., STYLE = 'so0so' $
27       , small = [1,2,1], COAST_THICK = 2, TITLE = title, FORMAT = '(I3)', /PORTRAIT, _extra = ex
28                                ;
29 title=sEXP+' / Qnet year '+start_end
30 plt, Q, MIN = min, MAX = max, INTER = inter, STYLE = 'so0so'  $
31      , small = [1,2,2], COAST_THICK = 2, TITLE = title, FORMAT = '(I3)', /NOERASE, _extra = ex
32                                ;
33 title = 'Qnet differences with '+sEXP
34 text = [   title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/v32colib_v32colib/ps/003_Qnet_'+sEXP+'_y'+start_end+'.png  />  ' ]
35 putfile, '/tmp/prova.txt', text
36
37 if KEYWORD_SET(POSTSCRIPT) then begin
38    closeps
39 endif
40
41 return
42end
43
Note: See TracBrowser for help on using the repository browser.