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_ARC_Icethick_SEPT.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_ARC_Icethick_SEPT.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.4 KB
Line 
1pro xxx_ARC_Icethick_SEPT, Ithi_sept_1, Ithi_sept_2, 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, '019_ARC_IceThick_SEPT_'+sEXP1+'_'+sEXP2+'_y'+start_end+'.ps', portrait = 1
10 endif
11 
12 domdef,20,380,55,90
13           
14 title=sEXP1+' Arctic Ice Thickness SEPT / year '+start_end
15 varunit = Ithi_sept_1.unit
16
17;SF  Ithi_sept_1.arr = Ithi_sept_1.arr < 6.
18 plt, Ithi_sept_1.arr - 1.E-04, MIN = 0., MAX = 8.5, INTER = 0.5 ,/STRICTFILL , CELL_FILL = 2, STYLE = 'so0so'  $
19      , small = [1,2,1], COAST_THICK = 2, TITLE = title $
20      , CHARSIZE = 1.05, GLINETHICK = 2., /ORTHO, MAP = [90,0,0], /PORTRAIT, _extra = ex
21 ;
22 if sEXP1 ne sEXP2 then begin           
23    title = sEXP1+' - '+sEXP2+' Arctic Ice Thickness SEPT / year '+start_end
24    plt, Ithi_sept_1.arr - Ithi_sept_2.arr, MIN = -3., MAX = 3., INTER = .5, /STRICTFILL , STYLE = 'so0so' $
25         , small = [1,2,2], COAST_THICK = 2, TITLE = title $
26         , CHARSIZE = 1.05, GLINETHICK = 2., /ORTHO, MAP = [90,0,0], /NOERASE, _extra = ex
27   
28 endif                          ; end of 2
29 
30 domdef
31
32 title = 'Arctic Sea-ice Thickness'
33 text = [   title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/'+sEXP1+'_'+sEXP2+'/ps/019_ARC_IceThick_SEPT_'+sEXP1+'_'+sEXP2+'_y'+start_end+'.png  />  ' ]
34 putfile, '/tmp/prova.txt', text
35
36 if KEYWORD_SET(POSTSCRIPT) then begin
37    closeps
38 endif
39
40
41 return
42end
Note: See TracBrowser for help on using the repository browser.