- 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_qnet.pro
r2733 r2751 1 pro xxx_Qnet, Q1, Q2, QNET, sEXP1, sEXP2, start_end, POSTSCRIPT = postscript, _extra = ex 1 pro std_plot_qnet, Q1, Q2, QNET, POSTSCRIPT = postscript, _extra = ex 2 3 compile_opt idl2, strictarrsubs 4 5 @common 6 @std_common 7 8 cdti3 = string(cnt, format = '(i3.3)') 9 print, cdti3 + ') ' + blabla 10 filename = cdti3 + '_Qnet_'+std_file1_T 11 if std_file1_T EQ std_file2_T then filename = filename + '_OAFlux' $ 12 ELSE filename = filename + '_'+std_file2_T 13 if KEYWORD_SET(postscript) then openps, filename+'.ps', portrait = 1 2 14 3 @common 15 title = 'Qnet!C'+std_file1_T 16 plt, Q1, MIN = -200., MAX = 200., INTER = 20., STYLE = 'so0so' $ 17 , small = [1, 2, 1], COAST_THICK = 2, TITLE = title, FORMAT = '(I4)', /PORTRAIT, _extra = ex 4 18 5 compile_opt idl2, strictarrsubs 19 if std_file1_T EQ std_file2_T then begin 20 title = 'Qnet!C'+std_file1_T+' - OAFlux' 21 Q = Q1.arr - QNET.arr 22 ENDIF ELSE BEGIN 23 title = 'Qnet!C'+std_file1_T+' - '+std_file2_T 24 Q = Q1.arr - Q2.arr 25 ENDELSE 26 plt, Q, MIN = -100, MAX = 100, INTER = 10, STYLE = 'so0so' $ 27 , small = [1, 2, 2], COAST_THICK = 2, TITLE = title, FORMAT = '(I4)', /NOERASE, _extra = ex 28 ; 29 htmltxt = [ htmltxt, '<hr>'+blabla, '<br><img width="80%" src='+filename+'.png /> ' ] 30 if KEYWORD_SET(postscript) then closeps 6 31 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/'+sEXP1+'_'+sEXP2+'/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 32 return 42 33 end 43 34
Note: See TracChangeset
for help on using the changeset viewer.