- Timestamp:
- 2011-04-26T10:45:52+02:00 (13 years ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_plot_IceThick.pro
r2733 r2751 1 pro xxx_ARC_Icethick_MARS, Ithi_mars_1, Ithi_mars_2, sEXP1, sEXP2, start_end, POSTSCRIPT = postscript, _extra = ex 1 pro std_plot_IceThick, Ithi1, Ithi2, ARC = arc, ANT = ant, MARCH = march, SEPT = sept, POSTSCRIPT = postscript, _extra = ex 2 3 compile_opt idl2, strictarrsubs 4 5 @common 6 @std_common 7 8 cdti3 = string(cnt, format = '(i3.3)') 9 print, cdti3 + ') ' + blabla 10 11 var = 'IceThi' 12 IF keyword_set(arc) THEN var = var+'_Arc_' 13 IF keyword_set(ant) THEN var = var+'_Ant_' 14 IF keyword_set(march) THEN var = var+'March' 15 IF keyword_set(sept) THEN var = var+'Sept' 16 17 filename = cdti3 + '_'+var+'_'+std_file1_I 18 if std_file1_I NE std_file2_I then filename = filename + '_'+std_file2_I 19 if KEYWORD_SET(postscript) then openps, filename+'.ps', portrait = 1 2 20 3 @common 21 IF keyword_set(arc) THEN BEGIN 22 domdef, 20, 380, 50, 90 23 vmin = 0. 24 vmax = 10. 25 vint = 0.5 26 fmt = '(i2)' 27 vmind = -3. 28 vmaxd = 3. 29 vintd = 0.5 30 fmtd = '(i2)' 31 map = [90, 0, 0] 32 ENDIF 33 IF keyword_set(ant) THEN BEGIN 34 domdef, 20, 380, -90, -50 35 vmin = 0. 36 vmax = 3. 37 vint = 0.2 38 fmt = '(f4.1)' 39 vmind = -1. 40 vmaxd = 1. 41 vintd = 0.2 42 fmtd = '(f4.1)' 43 map = [-90, 0, 0] 44 ENDIF 45 ; 46 varunit = Ithi1.unit 47 ; 48 title = var+'!C'+std_file1_I 49 plt, (Ithi1.arr < 10. ) - 1.E-04, MIN = vmin, MAX = vmax, INTER = vint, /STRICTFILL, CELL_FILL = 2, format = fmt $ 50 , small = [1, 2, 1], COAST_THICK = 2, TITLE = title $ 51 , CHARSIZE = 1.05, GLINETHICK = 2., /ORTHO, MAP = map, /PORTRAIT, _extra = ex 52 ; ; 53 if std_file1_I NE std_file2_I then begin 54 title = title + std_file2_I 55 plt, Ithi1.arr - Ithi2.arr, MIN = vmind, MAX = vmaxd, INTER = vintd, STYLE = 'so0so', format = fmtd $ 56 , small = [1, 2, 2], COAST_THICK = 2, CELL_FILL = 2, TITLE = title $ 57 , CHARSIZE = 1.05, GLINETHICK = 2., /ORTHO, MAP = map, /NOERASE, _extra = ex 58 endif 59 60 domdef 4 61 5 compile_opt idl2, strictarrsubs 62 htmltxt = [ htmltxt, '<hr>'+blabla, '<br><img width="80%" src='+filename+'.png /> ' ] 63 if KEYWORD_SET(postscript) then closeps 6 64 7 8 if KEYWORD_SET(POSTSCRIPT) then begin 9 openps, '018_ARC_IceThick_MARS_'+sEXP1+'_'+sEXP2+'y'+start_end+'.ps', portrait = 1 10 endif 11 12 domdef,20,380,55,90 13 14 varunit = Ithi_mars_1.unit 15 ; 16 title=sEXP1+' Arctic Ice Thickness MARS/ year '+start_end 17 ;SF Ithi_mars_1.arr = Ithi_mars_1.arr < 6. 18 plt, Ithi_mars_1.arr - 1.E-04, MIN = 0., MAX = 9.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 / year '+start_end 24 plt, Ithi_mars_1.arr - Ithi_mars_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 MARS' 33 text = [ title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/'+sEXP1+'_'+sEXP2+'/ps/018_ARC_IceThick_MARS_'+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 65 return 42 66 end
Note: See TracChangeset
for help on using the changeset viewer.