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

source: branches/dev_r2586_dynamic_mem/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/xxx_ZonMxl.pro @ 2713

Last change on this file since 2713 was 2713, checked in by rblod, 13 years ago

Phasing dynamic memory branch with version 2712 off the trunk

File size: 1.2 KB
Line 
1pro xxx_ZonMxl, MXL1, MXL2, MLD, sEXP1, sEXP2, start_end, POSTSCRIPT = postscript, _extra = ex
2 
3 @common
4
5 compile_opt idl2, strictarrsubs
6
7 
8 if KEYWORD_SET(POSTSCRIPT) then begin
9    openps, '015_ZonMxl_'+sEXP1+'_'+sEXP2+'_y'+start_end+'.ps', portrait = 1
10 endif
11 
12
13                                ;
14 title=sEXP1+' (Black) , '+sEXP2+' (Red) & Clim (Blue) Mxl10 / year '+start_end
15 plt1d, -MXL1.arr, MIN = -300., MAX = 0., INTER = 10., typein = 'y' $
16        , small=[1,1,1], boxzoom=5500, ZOOM=500, CHARSIZE=.8, TITLE = title, /PORTRAIT, _extra=ex  ; color by default = black
17                                ;
18 plt1d, -MXL2.arr, MIN = -300., MAX = 0., INTER = 10., typein = 'y' $
19        , /ov1d, COLOR = 250, TITLE = title, /NOERASE, _extra = ex  ; color 250 = red
20                                ;
21 plt1d, -MLD.arr, MIN = -300., MAX = 0., INTER = 10., typein = 'y' $
22        ,  /ov1d, COLOR = 100, THICK = 3, TITLE = title, /NOERASE, _extra = ex ; color 100 = blue
23
24 title = 'Mxl field'
25 text = [   title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/'+sEXP1+'_'+sEXP2+'/ps/015_ZonMxl_'+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
Note: See TracBrowser for help on using the repository browser.