- 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_emp.pro
r2726 r2751 1 pro xxx_Emp, EMP1, EMP2, sEXP1, sEXP2, start_end, POSTSCRIPT = postscript, _extra = ex 2 3 @common 4 1 pro std_plot_emp, EMP1, EMP2, POSTSCRIPT = postscript, _extra = ex 2 5 3 compile_opt idl2, strictarrsubs 6 4 7 if KEYWORD_SET(POSTSCRIPT) then begin 8 openps, '002_Emp_'+sEXP1+'_'+sEXP2+'_y'+start_end+'.ps', portrait = 1 5 @common 6 @std_common 7 8 cdti3 = string(cnt, format = '(i3.3)') 9 print, cdti3 + ') ' + blabla 10 filename = cdti3 + '_Emp_'+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 13 14 title = 'Emp!C'+std_file1_T 15 plt, EMP1, MIN = -10., MAX = 10., INTER = 1., style = 'so0so' $ 16 , small = [1, 2, 1], COAST_THICK = 2, TITLE = title, format = '(i3)', /PORTRAIT, _extra = ex 17 18 if std_file1_T NE std_file2_T then begin 19 title = title+' - '+std_file2_T 20 plt, EMP1.arr - EMP2.arr, MIN = -5., MAX = 5., INTER = 1., style = 'so0so' $ 21 , small = [1, 2, 2], COAST_THICK = 2, TITLE = title, format = '(i3)', /NOERASE, _extra = ex 9 22 endif 10 11 title=sEXP1+' Emp (mm/day) / year '+start_end12 varunit= 'mm/day'13 plt, EMP1, MIN = -10., MAX = 10., INTER = 1. $14 , small = [1,2,1], COAST_THICK = 2, TITLE = title, /PORTRAIT, _extra=ex15 16 if sEXP1 ne sEXP2 then begin17 23 18 title=sEXP1+' - '+sEXP2+' / Emp year '+start_end 19 plt, EMP1-EMP2, MIN = -5., MAX = 5., INTER = 1. $ 20 , small = [1,2,2], COAST_THICK = 2, TITLE = title, /NOERASE, _extra=ex 21 endif 22 23 title = 'Emp field' 24 text = [ title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/'+sEXP1+'_'+sEXP2+'/ps/002_Emp_'+sEXP1+'_'+sEXP2+'_y '+start_end+'.png /> ' ] 25 putfile, '/tmp/prova.txt', text 26 27 28 if KEYWORD_SET(POSTSCRIPT) then begin 29 closeps 30 endif 24 htmltxt = [ htmltxt, '<hr>'+blabla, '<br><img width="80%" src='+filename+'.png /> ' ] 25 if KEYWORD_SET(postscript) then closeps 31 26 32 27 return
Note: See TracChangeset
for help on using the changeset viewer.