source: trunk/CONFIG/ORCA2_LIM/IDL_scripts/ts_mean_ICE.pro @ 2150

Last change on this file since 2150 was 2150, checked in by flavoni, 10 years ago

commit idl tools for post-processing, for ORCA2_LIM configuration, see ticket #724

File size: 3.7 KB
Line 
1pro ts_mean_ICE, sEXP1, sEXP2, year1, year2, s_iodir_data, POSTSCRIPT = postscript, _extra = ex
2
3  compile_opt idl2, strictarrsubs
4 
5  @common
6 
7  @initorca2
8 
9  std_iodir_climato = '/Users/sflod/idl_PLOTS/CLIMATOLOGIES/'
10  std_iodir_interan = '/Users/sflod/idl_PLOTS/INTERAN/'
11
12
13  if KEYWORD_SET(POSTSCRIPT) then begin
14     openps, sEXP1+'_ice_area_mean.ps', portrait = 1
15  endif
16 
17 
18
19;NORTHERN Hemisphere
20  ts_ICE_N = 0.
21  ts_ICE_N_2 = 0.
22
23;SOUTHERN Hemisphere
24  ts_ICE_S = 0.
25  ts_ICE_S_2 = 0.
26
27  ts_Time = 0.
28 
29  for year=year1,year2 do begin
30     date1 = year * 10000L + 101
31     date2 = year * 10000L + 1231
32     filename = getname(s_iodir_data,sEXP1,'1M','icemod',date1)
33     filename2 = getname(s_iodir_data,sEXP2,'1M','icemod',date1)
34
35     if filename eq '' then stop
36     
37     domdef, 0, jpi-1, 30, 90, /xindex
38
39; computation of annual mean
40     ICE_N = read_ncdf('sic',date1 ,date2 , filename = filename, /nostruct, dir = 't')
41     ICE_N_2 = read_ncdf('sic',date1 ,date2 , filename = filename2, /nostruct, dir = 't')
42     
43     ts_ICE_N   = [ ts_ICE_N, moyenne(ICE_N, 'xy', /integration) ]
44     ts_ICE_N_2 = [ ts_ICE_N_2, moyenne(ICE_N_2, 'xy', /integration) ]
45   
46     domdef, 0, jpi-1, -30, -90, /xindex
47     
48     ICE_S = read_ncdf('sic',date1 ,date2 , filename = filename, /nostruct, dir = 't')
49     ICE_S_2 = read_ncdf('sic',date1 ,date2 , filename = filename2, /nostruct, dir = 't')
50     
51     ts_ICE_S   = [ ts_ICE_S, moyenne(ICE_S, 'xy', /integration) ]
52     ts_ICE_S_2 = [ ts_ICE_S_2, moyenne(ICE_s_2, 'xy', /integration) ]
53 
54    ts_Time  = [ ts_Time, Time] ; Time = date
55 
56  endfor
57
58;  surf_oce =  e1t[firstxt:lastxt,firstyt:lastyt] * e2t[firstxt:lastxt,firstyt:lastyt]  * tmask[firstxt:lastxt,firstyt:lastyt,0]
59;  surf_oce = total(surf_oce)
60
61  ts_ICE_N   = ts_ICE_N[1:*]        ; remove first record of 0
62  ts_ICE_N_2 = ts_ICE_N_2[1:*]      ; remove first record of 0
63  ts_ICE_N   = ts_ICE_N * 1.E-12    ; remove first record of 0
64  ts_ICE_N_2 = ts_ICE_N_2 * 1.E-12  ; remove first record of 0
65 
66  ts_ICE_S   = ts_ICE_S[1:*]        ; remove first record of 0
67  ts_ICE_S_2 = ts_ICE_S_2[1:*]      ; remove first record of 0
68  ts_ICE_S   = ts_ICE_S * 1.E-12    ; remove first record of 0
69  ts_ICE_S_2 = ts_ICE_S_2 * 1.E-12  ; remove first record of 0
70 
71  Time = ts_Time[1:*]           ; remove first record of 0
72  jpt = n_elements(Time)
73 
74  title = sEXP1+' Global Annual Mean Ice Area (North. Hemisp.) --- year '+strtrim(year1,1)+' - '+strtrim(year2,1)
75  pltt, ts_ICE_N, 't', 0., 15., year1 * 10000L + 101, year2 * 10000L + 1231, /REMPLI $
76       , small = [1,2,1], YTITLE='10^12 m^2 ', TITLE = title, FORMAT = '(I3)', /PORTRAIT, _extra = ex
77 
78  title = sEXP1+' Global Annual Mean Ice Area (South. Hemisp.) --- year '+strtrim(year1,1)+' - '+strtrim(year2,1)
79  pltt, ts_ICE_S, 't', 0., 15., year1 * 10000L + 101, year2 * 10000L + 1231, /REMPLI, /NOERASE $
80        , small = [1,2,2], YTITLE='10^12 m^2 ', TITLE = title, FORMAT = '(I3)', /PORTRAIT, _extra = ex
81 
82  if sEXP2 ne sEXP1 then begin
83     title = sEXP1+'  - '+sEXP2+' Global Annual Mean Ice Area (North. Hemisp.) --- year '+strtrim(year1,1)+' - '+strtrim(year2,1)
84     pltt, ts_ICE_N - ts_ICE_N_2 , 't', -2., 2., year1 * 10000L + 101, year2 * 10000L + 1231, /REMPLI $
85           , COLOR = 250, small = [1,2,1], YTITLE='10^12 m^2 ', TITLE = title, FORMAT = '(I3)', /PORTRAIT, _extra = ex
86     
87     title = sEXP1+' - '+sEXP2+' Global Annual Mean Ice Area (South. Hemisp.) --- year '+strtrim(year1,1)+' - '+strtrim(year2,1)
88     pltt, ts_ICE_S - ts_ICE_S_2, 't', -2., 2., year1 * 10000L + 101, year2 * 10000L + 1231, /REMPLI, /NOERASE $
89           , COLOR = 250, small = [1,2,2], YTITLE='10^12 m^2 ', TITLE = title, FORMAT = '(I3)', /PORTRAIT, _extra = ex
90
91  endif
92
93 
94  if KEYWORD_SET(POSTSCRIPT) then begin
95     closeps
96  endif
97 
98 
99  return
100end
Note: See TracBrowser for help on using the repository browser.