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

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

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

add correct unit in idl plots, see ticket 724

File size: 981 bytes
RevLine 
[2709]1pro xxx_Erp, ERP1, ERP2, sEXP1, sEXP2, start_end, POSTSCRIPT = postscript, _extra = ex
[2711]2
3@common
[2709]4 
5  compile_opt idl2, strictarrsubs
6
7  if KEYWORD_SET(POSTSCRIPT) then begin
8     openps, '001_Erp_'+sEXP1+'_'+sEXP2+'_y'+start_end+'.ps', portrait = 1
9  endif
10 
11  title=sEXP1+' Erp (mm/day) / year '+start_end
[2711]12  varunit= 'mm/day'
[2709]13  plt, ERP1,  MIN = -5., MAX = 5., INTER = .5 $
14       , small = [1,2,1], COAST_THICK = 2, TITLE = title, /PORTRAIT, _extra=ex
15 
16  if sEXP1 ne sEXP2 then begin
17
18     title=sEXP1+' - '+sEXP2+' / Erp year '+start_end
19     plt, ERP1-ERP2, MIN = -2., MAX = 2., INTER = .25 $
20          , small = [1,2,2], COAST_THICK = 2, TITLE = title,  /NOERASE, _extra=ex
21     
22  endif
23
24  title = 'Erp field'
25  text = [   title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/'+sEXP1+'_'+sEXP2+'/ps/001_Erp_'+sEXP1+'_'+sEXP2+'_y '+start_end+'.png  />  ' ]
26  putfile, '/tmp/prova.txt', text
27
28
29  if KEYWORD_SET(POSTSCRIPT) then begin
30     closeps
31  endif
32
33  return
34end
35
Note: See TracBrowser for help on using the repository browser.