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_Emp.pro in branches/nemo_v3_3_beta/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts – NEMO

source: branches/nemo_v3_3_beta/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/xxx_Emp.pro @ 2281

Last change on this file since 2281 was 2281, checked in by smasson, 13 years ago

set proper svn properties to all files...

  • Property svn:keywords set to Id
File size: 936 bytes
Line 
1pro xxx_Emp, EMP1, EMP2, 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, '002_Emp_'+sEXP1+'_'+sEXP2+'_y'+start_end+'.ps', portrait = 1
8  endif
9 
10  title=sEXP1+' Emp (mm/day) / year '+start_end
11  plt, EMP1,  MIN = -15., MAX = 15., INTER = 2.5 $
12       , small = [1,2,1], COAST_THICK = 2, TITLE = title, /PORTRAIT, _extra=ex
13 
14if sEXP1 ne sEXP2 then begin
15
16  title=sEXP1+' - '+sEXP2+' / Emp year '+start_end
17  plt, EMP1-EMP2, MIN = -5., MAX = 5., INTER = 1. $
18       , small = [1,2,2], COAST_THICK = 2, TITLE = title,  /NOERASE, _extra=ex
19endif
20
21  title = 'Emp field'
22  text = [   title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/v32colib_v32colib/ps/002_Emp_'+sEXP1+'_'+sEXP2+'_y '+start_end+'.png  />  ' ]
23  putfile, '/tmp/prova.txt', text
24
25
26  if KEYWORD_SET(POSTSCRIPT) then begin
27     closeps
28  endif
29
30  return
31end
32
Note: See TracBrowser for help on using the repository browser.