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

source: trunk/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/xxx_Iceleadfrac_SEPT.pro @ 2537

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

update IDL scripts, see ticket #724

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