source: trunk/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/xxx_Emp.pro @ 2711

Last change on this file since 2711 was 2711, checked in by flavoni, 10 years ago

add correct unit in idl plots, see ticket 724

File size: 967 bytes
Line 
1pro xxx_Emp, EMP1, EMP2, sEXP1, sEXP2, start_end, POSTSCRIPT = postscript, _extra = ex
2 
3  @common
4 
5  compile_opt idl2, strictarrsubs
6
7  if KEYWORD_SET(POSTSCRIPT) then begin
8     openps, '002_Emp_'+sEXP1+'_'+sEXP2+'_y'+start_end+'.ps', portrait = 1
9  endif
10 
11  title=sEXP1+' Emp (mm/day) / year '+start_end
12  varunit= 'mm/day'
13  plt, EMP1,  MIN = -10., MAX = 10., INTER = 1. $
14       , small = [1,2,1], COAST_THICK = 2, TITLE = title, /PORTRAIT, _extra=ex
15 
16if sEXP1 ne sEXP2 then begin
17
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
21endif
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
31
32  return
33end
34
Note: See TracBrowser for help on using the repository browser.