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 @ 2557

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

update IDL scripts, see ticket #724

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