forked from drdaphos/LIDAR
-
Notifications
You must be signed in to change notification settings - Fork 2
/
iced_plot_lidar.pro~
175 lines (139 loc) · 5.23 KB
/
iced_plot_lidar.pro~
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
;pro iced_lidar, flno, run=run, display=display, showcloud=showcloud
compile_opt strictarr, strictarrsubs
flno ='B923'
if (n_elements(display) NE 1) then display = 1
if (n_elements(showcloud) NE 1) then showcloud = 1
if (n_elements(flno) NE 1) then message, 'Specify flno.'
flno = strupcase(strtrim(flno,2))
altrange = [0,8]
extrange = [0,400]
if (flno EQ 'B923' || flno EQ 'B924') then extrange = [0,1000]
if (flno EQ 'B920') then run0 = ['R1', 'R6']
if (flno EQ 'B923') then run0 = ['R1']
if (flno EQ 'B924') then run0 = ['R1-3','R6-7']
if (flno EQ 'B928') then run0 = ['R1', 'R7-9']
if (flno EQ 'B932') then run0 = ['R0-1', 'R5E']
if (flno EQ 'B934') then run0 = ['R2', 'R8']
if (n_elements(run) EQ 0 && n_elements(run0) NE 0) then begin
run = run0
endif else if (n_elements(run) EQ 0) then begin
message, 'Specify runs.'
endif
n_runs = n_elements(run)
;home = '/home/h02/frmo/' ; NetCDF routine does not like '~'
dir = '/project/obr/Lidar_data/Faam_data/ICE-D/lidar/'
search = '*_' + flno + '_it060s_res045m_ext_dext.sav'
extfln = file_search(dir + search)
sumdir = '/project/obr/Lidar_data/Faam_data/core/'
sumfln = strlowcase(flno) + '_summary.txt'
psfln = strlowcase(flno) + '_ext.ps'
savfln = strlowcase(flno) + '_ext.sav'
ncfln = strlowcase(flno) + '_ext.nc'
cld_search = '*_' + flno + '_it060s_cloudtop.sav'
cldsav = file_search(dir + cld_search)
;cldsav = home + 'Faam/Data-post-flight/Ice-D/cloudtops/iced_cloud_it02.sav'
restore, cldsav
cloud_time = CLOUD_TIME ;FLOAT Array[6658]
cloud_top_h = CLOUD_TOP_HEIGHT ;DOUBLE Array [6658, 3]
col27
;restore, cldsav
idx = where(cloud.flno EQ flno, cnt)
if (cnt EQ 1) then begin
cloud1 = cloud_top_h[idx]
endif else begin
message, 'Cloud info missing.', /continue
showcloud = 0
endelse
title = flno + ' - Aerosol extinction coefficient (Mm!u-1!n)'
_nan_ = !values.f_nan
dt = 20 ; tolerance on run start/stop time
read_run_prof, sumdir+sumfln, name=sname, start=sstart, stop=sstop, $
run_idx=run_idx
rstart = sstart[run_idx]
rstop = sstop[run_idx]
rname = sname[run_idx]
run_start = fltarr(n_runs)
run_stop = fltarr(n_runs)
for i=0, n_runs-1 do begin
idx = where(rname EQ run[i], cnt)
if (cnt NE 1) then message, 'Run not in summary, or duplicated.'
run_start[i] = rstart[idx] - dt
run_stop[i] = rstop[idx] + dt
endfor
runs = run[0]
for i=1, n_runs-1 do runs += ' ' + run[i]
print, flno, runs, format='(%"%s: %s")'
restore, extfln
idx = where(lid_extinc LT -1E10, cnt)
if (cnt GT 0) then lid_extinc[idx] = _nan_
idx = where(lid_unc_ext LT -1E10, cnt)
if (cnt GT 0) then lid_unc_ext[idx] = _nan_
nh = n_elements(lid_height)
i3km = where(lid_height GE 3000.0 AND lid_height LT 3045.0, c3km)
if (c3km NE 1) then message, 'Hard to define height=3km.'
idx = where(finite(lid_extinc[*,i3km]))
lid_extinc *= 1E6
lid_unc_ext *= 1E6
lid_altitude /= 1000.0
lid_height /= 1000.0
vres = mean(lid_height[1:*]-lid_height)*1E-3 ; in Mm
lidar = {flight:flno, height:lid_height, run:run, $
aod:fltarr(n_runs), ext:fltarr(n_runs, nh)}
latmin = floor(min(lid_latitude[idx]))
latmax = ceil(max(lid_latitude[idx]))
latrange = [latmin, latmax]
circle_sym = dindgen(19) * 2.0D * !dpi / 18.0D
usersym, cos(circle_sym), sin(circle_sym), /fill
ps_plot, fln = dir + psfln
set_palette, 4, bottom=bottom, top=top, maxlevs=maxlevs
nlevs = min([maxlevs, 32])
nrow = 2
!p.multi = [0, 0, nrow]
v_pos_top = 0.92 - 0.90 * findgen(nrow) / nrow
v_pos_bot = v_pos_top + 0.04 - 0.8 / nrow
cols = bottom + bytscl(indgen(nlevs), top=top-bottom)
levs = extrange[0] + (extrange[1]-extrange[0]) * dindgen(nlevs) / nlevs
for i=0, n_runs-1 do begin
idx = where(lid_time GE run_start[i] AND lid_time LE run_stop[i], np)
xvar = lid_latitude[idx]
alt = lid_altitude[idx]
var = lid_extinc[idx,*]
dummy = where(finite(var[*,i3km]), nvalid)
for k=0, nh-1 do lidar.ext[i,k] = mean(var[*,k], /nan)
lidar.aod[i] = total(lidar.ext[i,*],/nan) * vres
print, run[i], np, nvalid, lidar.aod[i], $
format='(%"%s: %d profiles (%d valid), AOD=%0.2f")'
xvar2 = replicate(_nan_, 2*np)
var2 = replicate(_nan_, 2*np, nh)
delta = 0.2 * mean(xvar[1:*]-xvar)
for k=0, np-1 do begin
xvar2[2*k] = xvar[k] - delta
xvar2[2*k+1] = xvar[k] + delta
var2[2*k,*] = var[k,*]
var2[2*k+1,*] = var[k,*]
endfor
contour, var2, xvar2, lid_height, levels=levs, c_colors=cols, $
/cell_fill, /xstyle, /ystyle, xrange=latrange, $
xtitle = (i MOD nrow EQ nrow-1 ? 'Latitude': ''), $
title = (i MOD nrow EQ 0 ? title : ''), $
yrange=altrange, ytickformat='(i)', ytitle='Altitude (km)', $
position=[0.08, v_pos_bot[i MOD nrow], 0.86, $
v_pos_top[i MOD nrow]]
oplot, xvar, alt
xyouts, 0.11, v_pos_top[i]-0.04, run[i], /normal, charsize=1.5
if (showcloud) then begin
idx = where(cloud1.tim*3600.0 GE run_start[i] $
AND cloud1.tim*3600.0 LE run_stop[i])
for k=0, 2 do oplot, cloud1.lat[idx], cloud1.top[idx,k],$
psym=8, symsize=0.7, color=1
for k=0, 2 do oplot, cloud1.lat[idx], cloud1.top[idx,k],$
psym=8, symsize=0.3, color=20
endif
endfor
colorbar, range=extrange, bottom=bottom, ncolors=top-bottom+1,$
min_value=0, divisions=4, minor=5, format='(i0)', charsize=1.5, $
position = [0.97, 0.2, 0.99, 0.8], /vertical
ps_plot, /close, /gzip, display=display
save, lidar, filename=dir+savfln
write_netcdf, lidar, dir+ncfln, /clobber, /noattcomplain
end