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_SSS.pro in trunk/CONFIG/ORCA2_LIM/IDL_scripts – NEMO

source: trunk/CONFIG/ORCA2_LIM/IDL_scripts/xxx_SSS.pro @ 2151

Last change on this file since 2151 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
Line 
1pro xxx_SSS, S1, S2, SLev, sEXP1, sEXP2, start_end, POSTSCRIPT = postscript, _extra = ex
2 
3 @common
4 compile_opt idl2, strictarrsubs
5 
6 if KEYWORD_SET(POSTSCRIPT) then begin
7    openps, '007_SSS_'+sEXP1+'-'+sEXP2+'_y'+start_end+'.ps', portrait = 1
8 endif
9     
10 varunit = S1.unit 
11 
12 title = sEXP1+' / SSS year '+start_end
13 plt, S1.arr[*,*,0] , MIN = 33., MAX = 41., INTER = .25, STYLE = 'so0so' $
14      , small = [1,2,1], COAST_THICK = 2, TITLE=title, /NOERASE, _extra = ex
15                                ;
16 if sEXP1 ne sEXP2 then begin
17   
18    title = sEXP1+' - '+sEXP2+' / SSS year '+start_end
19    plt, S1.arr[*,*,0] - S2.arr[*,*,0], MIN = -2., MAX = 2., INTER = .2 $
20         , small = [1,2,2], COAST_THICK = 2, TITLE = title, _extra=ex
21
22 endif else begin
23
24    title = sEXP1+' - Levitus / SSS year '+start_end
25    plt, S1.arr[*,*,0]-SLev.arr[*,*,0], MIN = -3., MAX = 3., INTER = 0.2, STYLE = 'so0so' $
26         , small = [1,2,2], COAST_THICK = 2, TITLE = title, /PORTRAIT, _extra = ex
27
28 endelse
29 
30                                ;
31   title = 'SSS differences with Levitus and '+sEXP1+'-'+sEXP2
32   text = [   title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/v32colib_v32colib/ps/007_SSS_'+sEXP1+'-'+sEXP2+'_y'+start_end+'.png  />  ' ]
33   putfile, '/tmp/prova.txt', text
34
35 if KEYWORD_SET(POSTSCRIPT) then begin
36    closeps
37 endif
38
39 return
40end
Note: See TracBrowser for help on using the repository browser.