New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
xxx_SST.pro in trunk/CONFIG/ORCA2_LIM/IDL_scripts – NEMO

source: trunk/CONFIG/ORCA2_LIM/IDL_scripts/xxx_SST.pro @ 2150

Last change on this file since 2150 was 2150, checked in by flavoni, 13 years ago

commit idl tools for post-processing, for ORCA2_LIM configuration, see ticket #724

File size: 1.3 KB
RevLine 
[2150]1pro xxx_SST, T1, T2, TRey, sEXP1, sEXP2, start_end, POSTSCRIPT = postscript, _extra = ex
2
3 @common
4 compile_opt idl2, strictarrsubs
5
6 T = T1.arr[*,*,0]-T2.arr[*,*,0]
7 sEXP = sEXP1+' - '+sEXP2
8 min =  -1.
9 max = -min
10 inter = 0.1
11
12 if sEXP2 eq sEXP1 then begin
13    sEXP = sEXP1
14    T = T1.arr[*,*,0]
15    min = -2.
16    max = 32.
17    inter = 1.
18 endif
19
20 if KEYWORD_SET(POSTSCRIPT) then begin
21    openps, '006_SST_'+sEXP+'_y'+start_end+'.ps', portrait = 1
22 endif
23   
24 varunit = T1.unit
25
26                               ;
27 title = sEXP+' / SST year '+start_end
28 plt, T , MIN = min, MAX = max, INTER = inter ,  STYLE = 'so0so' $
29      , small = [1,2,1], COAST_THICK = 2, TITLE = title, FORMAT = '(I2)', /NOERASE, _extra = ex
30                                ;
31 title=sEXP1+' - NewReynolds  / SST year '+start_end
32 plt, T1.arr[*,*,0]-TRey.arr[*,*,0], MIN = -8., MAX = 8., INTER = 0.5 , STYLE = 'so0so' $
33      , small = [1,2,2], COAST_THICK = 2, TITLE = title, /PORTRAIT, _extra = ex
34                 
35 title = 'SST differences with Reynolds and  '+sEXP
36 text = [   title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/v32colib_v32colib/ps/006_SST_'+sEXP+'_y'+start_end+'.png  />  ' ]
37 putfile, '/tmp/prova.txt', text
38
39 if KEYWORD_SET(POSTSCRIPT) then begin
40    closeps
41 endif
42
43 return
44end
Note: See TracBrowser for help on using the repository browser.