Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Andi Walther
icwg
Commits
ca5a418d
Commit
ca5a418d
authored
Oct 30, 2018
by
Andi Walther
💬
Browse files
major udates for caliop/cpr profilings
parent
656143ee
Changes
8
Hide whitespace changes
Inline
Side-by-side
cws2__add_c.pro
View file @
ca5a418d
...
...
@@ -233,11 +233,11 @@ pro cws2::add_c, overpass = overpass, cth_reference = cth_reference, affi = affi
;
add
actual
data
to
the
level
C
file
print
,
'... add data to AVAC-S level C file '
,
ntime
,
' datapoits '
print
,
'/'
+
affi
+
'/'
+
self
.
cws_sensor
+
'/'
+
product
,
', add_c in cws2__define.pro'
self
->
h5add
,
cfile
,
cData
,
group
=
'/'
+
affi
+
'/'
+
self
.
cws_sensor
+
'/'
+
product
print
,
''
print
,
''
print
,
''
end
...
...
cws_read__get_metadata.pro
View file @
ca5a418d
...
...
@@ -164,10 +164,9 @@ PRO cws_read::get_metadata, name=name, version=version, img_type=img_type, img_q
unit
=
'1'
accuracy
=
0
.
slope
=
1
.
if
self
.
grp
eq
'COX'
then
begin
slope
=
10
.
/
256
.
;;
slope
=
max
(
img
)
/
256
.
endif
if
(
self
.
product
eq
'ucod'
)
then
slope
=
80
.
/
256
.
if
(
self
.
product
eq
'ucod2'
)
then
slope
=
80
.
/
256
.
offset
=
0
...
...
cws_read__readdata_CLV.pro
View file @
ca5a418d
...
...
@@ -33,8 +33,10 @@ function cws_read::readdata_CLV
END
'ref'
:
BEGIN
ref
=
read_hdf_ssec
(
self
.
infile
,
'REF'
)
ref
=
read_hdf_ssec
(
self
.
infile
,
'REF'
)
ref
=
rotate
(
ref
,
7
)
refu
=
read_hdf_ssec
(
self
.
infile
,
'REFU'
)
refu
=
rotate
(
refu
,
7
)
nodata_idx
=
where
(
ref
le
0
or
refu
gt
1
.,
nodata_anz
)
img
=
float
(
ref
)
IF
nodata_anz
gt
0
THEN
img
[
nodata_idx
]
=-
1
.
...
...
@@ -44,9 +46,11 @@ function cws_read::readdata_CLV
'cod'
:
BEGIN
cod
=
read_hdf_ssec
(
self
.
infile
,
'COD'
)
cod
=
rotate
(
cod
,
7
)
codu
=
read_hdf_ssec
(
self
.
infile
,
'CODU'
)
nodata_idx
=
where
(
cod
le
0
or
codu
gt
1
.
,
nodata_anz
)
IF
nodata_anz
gt
0
THEN
cod
[
nodata_idx
]
=-
1
.
RETURN
,
cod
END
...
...
@@ -88,8 +92,14 @@ function cws_read::readdata_CLV
;
data
=
0
.
*
(
cph
gt
4
)
+
1
.
*
(
between
(
cph
,
1
,
3
))
+
2
.
*
(
cph
eq
4
)
$
;
+
4
.
*
(
cph
eq
0
)
data
=
0
.
*
(
cph
eq
5
)
+
1
.
*
(
cph
eq
1
)
+
2
.
*
(
cph
eq
4
)
$
+
3
.
*
((
cph
eq
3
)
or
(
cph
eq
2
))
+
4
.
*
(
cph
eq
0
)
data
=
$
1
*
(
cph
eq
3
)
$
+
2
*
(
between
(
cph
,
5.5
,
9.5
))
$
+
3
*
(
cph
eq
5
)
RETURN
,
data
END
...
...
cws_read__readdata_SUI.pro
View file @
ca5a418d
...
...
@@ -29,7 +29,7 @@ case self.product of
idx
=
where
(
img
le
0
.)
img
[
idx
]
=
-
999
.
img
=
rotate
(
img
,
5
)
return
,
img
...
...
cws_stats__caliop_profile.pro
View file @
ca5a418d
...
...
@@ -239,33 +239,33 @@ for u=0,n_elements(sfcbin)-1 do radar[sfcbin[u]:*,u]= -999.
no_cloud_idx
=
where
(
cmb
eq
1
,
cNoCloud
)
if
cNoCloud
gt
0
then
begin
p010
=
plot
(
compl
,
make_array
(
cNoCloud
,
value
=
1
),
'y
+
'
,
/
overplot
)
p010
=
plot
(
compl
,
make_array
(
cNoCloud
,
value
=
1
),
'y
.
'
,
/
overplot
)
endif
phase_idx_wat
=
where
(
cph
eq
1
,
cWat
)
if
cWat
gt
1
then
begin
p011
=
plot
(
phase_idx_wat
,
make_array
(
cWat
,
value
=
2
),
'g
+
'
,
/
overplot
)
p011
=
plot
(
phase_idx_wat
,
make_array
(
cWat
,
value
=
2
),
'g
.
'
,
/
overplot
)
endif
phase_idx_ice
=
where
(
cph
eq
2
,
cIce
)
if
cIce
gt
1
then
begin
p012
=
plot
(
phase_idx_ice
,
make_array
(
cIce
,
value
=
3
),
'r
+
'
,
/
overplot
)
p012
=
plot
(
phase_idx_ice
,
make_array
(
cIce
,
value
=
3
),
'r
.
'
,
/
overplot
)
endif
phase_idx_mix
=
where
(
cph
eq
3
,
cMix
)
if
cMix
gt
1
then
begin
p013
=
plot
(
phase_idx_mix
,
make_array
(
cMix
,
value
=
4
),
'c
+
'
,
/
overplot
)
p013
=
plot
(
phase_idx_mix
,
make_array
(
cMix
,
value
=
4
),
'c
.
'
,
/
overplot
)
endif
thisP
=
!
P
!
p
.
charsize
/=
2.4
t30
=
text
(
nr_idx
+
10
,
-
0
.
,
'Cl'
,
color
=
'blue'
,
/
data
)
t31
=
text
(
nr_idx
+
10
,
-
0.8
,
'NCl'
,
color
=
'gold'
,
/
data
)
t32
=
text
(
nr_idx
+
10
,
-
1.6
,
'Wat'
,
color
=
'green'
,
/
data
)
t33
=
text
(
nr_idx
+
10
,
-
2.4
,
'Ice'
,
color
=
'red'
,
/
data
)
t34
=
text
(
nr_idx
+
10
,
-
3.2
,
'Mix'
,
color
=
'purple'
,
/
data
)
;
t30
=
text
(
nr_idx
+
10
,
-
0
.
,
'Cl'
,
color
=
'blue'
,
/
data
)
t31
=
text
(
0.93
,
0.63
,
'N
o
Cl'
,
color
=
'gold'
,
font_size
=
7
)
t32
=
text
(
0.93
,
0.645
,
'Wat'
,
color
=
'green'
,
font_size
=
7
)
t33
=
text
(
0.93
,
0.66
,
'Ice'
,
color
=
'red'
,
font_size
=
7
)
;
t34
=
text
(
nr_idx
+
10
,
-
3.2
,
'Mix'
,
color
=
'purple'
,
/
data
)
!
p
=
thisP
...
...
@@ -284,12 +284,19 @@ for u=0,n_elements(sfcbin)-1 do radar[sfcbin[u]:*,u]= -999.
;
plot
COD
p10
=
plot
(
indgen
(
n_elements
(
ind
)),
cod
,
'r+'
,
/
overplot
,
sym_size
=
0.5
)
p11
=
plot
(
indgen
(
n_elements
(
ind
)),
cod_wat
,
'g+'
,
/
overplot
,
sym_size
=
0.5
)
p12
=
plot
(
indgen
(
n_elements
(
ind
)),
cod_modis
,
'b+'
,
/
overplot
,
sym_size
=
0.5
)
p10
=
plot
(
indgen
(
n_elements
(
ind
)),
cod
,
'r+'
,
/
overplot
,
sym_size
=
0.5
,
name
=
'Ice'
)
p11
=
plot
(
indgen
(
n_elements
(
ind
)),
cod_wat
,
'g+'
,
/
overplot
,
sym_size
=
0.5
,
name
=
'Water'
)
p12
=
plot
(
indgen
(
n_elements
(
ind
)),
cod_modis
,
'b+'
,
/
overplot
,
sym_size
=
0.5
,
name
=
'Modis or AMSR-E'
)
t12
=
text
(
0.5
,
0.627
,
'Cloud optical depth'
,
align
=
0.5
)
t13
=
text
(
0.1
,
0.624
,
'+ Ice '
,
'r'
,
font_size
=
7
)
t14
=
text
(
0.18
,
0.624
,
'+ Water '
,
'g'
,
font_size
=
7
)
t15
=
text
(
0.26
,
0.624
,
'+ Modis '
,
'b'
,
font_size
=
7
)
;
leg
=
legend
(
target
=
[
p10
,
p11
,
p12
],
position
=
[
0.8
,
0.3
],
/
auto_text_color
,
linestyle
=
6
)
;
plot
,
indgen
(
n_elements
(
ind
)),
cod
,
pos
=
[
0.1
,
0.46
,
0.9
,
0.62
],
/
noerase
$
;
,
yRange
=
[
0
,
50
],
psym
=
1
$
...
...
@@ -328,6 +335,8 @@ for u=0,n_elements(sfcbin)-1 do radar[sfcbin[u]:*,u]= -999.
t20
=
text
(
0.5
,
0.227
,
'Liquid water path'
,
align
=
0.5
)
t21
=
text
(
0.1
,
0.224
,
'+ MSG Water '
,
'g'
,
font_size
=
7
)
t22
=
text
(
0.24
,
0.224
,
'+ AMSR-E '
,
'b'
,
font_size
=
7
)
;
ax0
=
Axis
(
'x'
,
axis_range
=
[
0
,
n_elements
(
ind
)
-
1
],
style
=
0
)
...
...
@@ -374,6 +383,9 @@ for u=0,n_elements(sfcbin)-1 do radar[sfcbin[u]:*,u]= -999.
,
sym_size
=
0.5
,
/
overplot
)
t4
=
text
(
0.05
,
0.01
,
'created on '
+
systime
(),
font_size
=
7
)
w
.
save
,
outFile
+
'.png'
print
,
outFile
+
'.png'
...
...
icwg2_add_lev2.pro
0 → 100644
View file @
ca5a418d
pro
icwg2_add_lev2
,
grp_list
=
grp_list
default
,
prd_list
,[
'cmb'
,
'ctp'
,
'ctt'
,
'cth'
,
'cod'
,
'ref'
,
'cph'
,
'lwp'
]
default
,
grp_list
,[
'CLV'
,
'LARN'
,
'SUI'
,
'TPS'
,
'UKMN'
]
o
=
cws2
()
for
ovp
=
11311
,
11320
do
begin
foreach
prd
,
prd_list
do
begin
foreach
grp
,
grp_list
do
begin
o
.
add_c
,
overpass
=
ovp
,
affi
=
grp
,
product
=
prd
endforeach
endforeach
endfor
end
icwg2_transform.pro
View file @
ca5a418d
;
pro
icwg2_transform
,
grp
pro
icwg2_transform
,
grp
,
prd_list
=
prd_list
default
,
grp
,
'TPS'
prd_list
=
[
'cmb'
,
'ctp'
,
'ctt'
,
'cth'
,
'cod'
,
'ref'
,
'cph'
,
'lwp'
]
default
,
prd_list
,
[
'cmb'
,
'ctp'
,
'ctt'
,
'cth'
,
'cod'
,
'ref'
,
'cph'
,
'lwp'
]
;
prd_list
=
[
'cmb'
,
'ctp'
]
;
prd_list
=
'cph'
o
=
cws_read
()
o
.
set_group
,
grp
o
.
set_date
,
2008
,
6
,
13
,
1
2
,
0
o
.
set_date
,
2008
,
6
,
13
,
1
3
,
45
foreach
prd
,
prd_list
do
begin
o
.
set_product
,
prd
o
.
transformIt
,
/
force
endforeach
stop
for
hh
=
0
,
23
do
begin
for
mm
=
0
,
45
,
15
do
begin
o
.
set_date
,
2008
,
6
,
13
,
hh
,
mm
...
...
test_sui.pro
0 → 100644
View file @
ca5a418d
pro
test_sui
o
=
cws_read
()
o
.
set_product
,
'ctp'
o
.
set_group
,
'SUI'
o
.
set_date
,
2008
,
6
,
13
,
13
,
45
data
=
o
.
get_data
()
help
,
data
stop
end
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment