- Timestamp:
- 2011-04-26T10:45:52+02:00 (13 years ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_plot_EqS.pro
r2735 r2751 1 pro xxx_Eq_S, S1, S2, SLev, sEXP1, sEXP2, start_end,POSTSCRIPT = postscript, _extra = ex2 1 pro std_plot_EqS, S1, S2, SLev, POSTSCRIPT = postscript, _extra = ex 2 3 3 compile_opt idl2, strictarrsubs 4 4 5 S = S1.arr-S2.arr 6 sEXP = sEXP1+' - '+sEXP2 7 min = -1. 8 max = -min 9 inter = .1 5 @common 6 @std_common 7 8 cdti3 = string(cnt, format = '(i3.3)') 9 print, cdti3 + ') ' + blabla 10 filename = cdti3 + '_EqS_'+std_file1_T 11 if std_file1_T NE std_file2_T then filename = filename + '_'+std_file2_T 12 if KEYWORD_SET(postscript) then openps, filename+'.ps', portrait = 1 10 13 11 if sEXP2 eq sEXP1 then begin 12 sEXP = sEXP1+' - Levitus' 13 S = S1.arr-Slev.arr 14 min = -1. 15 max = -min 16 inter = .1 17 endif 14 title = 'Equatorial Salinity!C'+std_file1_T 15 pltz, S1, MININ = 33., MAXIN = 37., INTER = .2, typein = 'xz', FORMAT = '(f4.1)' $ 16 , small = [1, 2, 1], COAST_THICK = 2, TITLE = title, boxzoom = [20., 380., -1., 1., 0., 500.], /PORTRAIT, _extra = ex 18 17 19 if KEYWORD_SET(POSTSCRIPT) then begin 20 openps, '026_Eq_S_'+sEXP+'_y'+start_end+'.ps', portrait = 1 21 endif 22 ; 23 title = sEXP1+' Equatorial S / year '+start_end 24 pltz, S1, MININ = 33., MAXIN = 37., INTER = .2, typein='xz' $ 25 , small=[1,2,1], COAST_THICK = 2, TITLE = title, boxzoom = [20., 380., -1., 1., 0., 500.], /PORTRAIT, _extra = ex 26 ; 27 title = sEXP+' Eq. S / year '+start_end 28 pltz, S, MININ = min, MAXIN = max, INTER = inter, typein = 'xz', STYLE = 'so0so' $ 29 , small = [1,2,2], COAST_THICK = 2, TITLE = title, boxzoom = [20., 380., -1., 1., 0., 500.], /PORTRAIT, _extra = ex 30 ; 31 title = 'Equatorial differences with Levitus and '+sEXP+' of salinity' 32 text = [ title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/'+sEXP1+'_'+sEXP2+'/ps/026_Eq_S_'+sEXP+'_y'+start_end+'.png /> ' ] 33 putfile, '/tmp/prova.txt', text 18 if std_file1_T EQ std_file2_T then begin 19 S = S1.arr - Slev.arr 20 title = title+' - Levitus' 21 ENDIF ELSE BEGIN 22 S = S1.arr - S2.arr 23 title = title+' - '+std_file2_T 24 ENDELSE 25 26 pltz, S, MININ = -1., MAXIN = 1., INTER = 0.1, typein = 'xz', STYLE = 'so0so', FORMAT = '(f4.1)' $ 27 , small = [1, 2, 2], COAST_THICK = 2, TITLE = title, boxzoom = [20., 380., -1., 1., 0., 500.], /noerase, _extra = ex 34 28 35 if KEYWORD_SET(POSTSCRIPT) then begin 36 closeps 37 endif 29 htmltxt = [ htmltxt, '<hr>'+blabla, '<br><img width="80%" src='+filename+'.png /> ' ] 30 if KEYWORD_SET(postscript) then closeps 38 31 39 32 return
Note: See TracChangeset
for help on using the changeset viewer.