Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
geoms
geoms_qa
Commits
4ed0a481
Commit
4ed0a481
authored
Dec 11, 2020
by
Ian Boyd
Browse files
Replace idlcr8hdf.pro
parent
d6eac338
Changes
1
Hide whitespace changes
Inline
Side-by-side
idlcr8hdf.pro
View file @
4ed0a481
;
Main
Program
Version
:
idlcr8hdf
.
pro
v4
.
0
b5
7
,
20201
026
;
Main
Program
Version
:
idlcr8hdf
.
pro
v4
.
0
b5
8
,
20201
211
;
Written
by
Ian
Boyd
for
the
EVDC
/
AVDC
-
iboyd
@
astro
.
umass
.
edu
;
;
Sub
-
versions
(
refer
to
idlcr8hdf
-
v4
.
0
_Readme
.
pdf
for
full
history
)
...
...
@@ -113,7 +113,7 @@ PRO intro, intype
COMMON
WIDGET_WIN
nhdr
=
44
&
errtxt
=
STRARR
(
nhdr
)
vertxt
=
[
'idlcr8hdf-v4.0_Readme.pdf'
,
'v4.0b5
7 Octo
ber 2020'
]
vertxt
=
[
'idlcr8hdf-v4.0_Readme.pdf'
,
'v4.0b5
8 Decem
ber 2020'
]
errtxt
[
1
]
=
'Welcome to IDLcr8HDF. This program creates GEOMS compliant HDF4, HDF5 and netCDF files'
errtxt
[
2
]
=
'(also refer to '
+
vertxt
[
0
]
+
').'
errtxt
[
4
]
=
'Inputs to the program (IDL Virtual Machine (VM) and IDL Licensed (LIC) Versions):'
...
...
@@ -4123,6 +4123,8 @@ PRO check_min_max_fill, vc, dtest, ndl
;
20171130
:
Remove
ds
from
STOP_WITH_ERROR
parameters
-
Version
4.0
b44
;
20180901
:
Also
check
that
DATETIME
.
START
and
DATETIME
.
STOP
values
are
in
chronological
order
-
;
Version
4.0
b48
;
20201211
:
Fix
bug
that
caused
an
IDL
Math
Error
(
Floating
Illegal
Operand
)
when
converting
large
;
floating
point
values
to
integers
-
Version
4.0
b58
;
;
Inputs
:
meta_arr
-
a
string
array
containing
the
Global
and
Variable
Attributes
;
vc
-
the
index
value
of
the
vn
array
holding
the
VARIABLE_NAME
being
searched
for
in
the
data
...
...
@@ -4337,11 +4339,12 @@ IF nfvcnt NE 0 THEN BEGIN ;i.e. there are non-fill values in the data
;
STOP_WITH_ERROR
,
o3
[
3
]
+
proname
+
vn
[
vc
]
+
': '
,
'Maximum'
+
errtxt2
[
1
]
+
$
;
'MAX: '
+
STRTRIM
(
dtest
[
nfvi
[
maxvi
]],
2
)
+
' ('
+
meta_arr
[
lvi
[
1
]]
+
').'
,
lu
,
ds
;
RETURN
ENDIF
ELSE
IF
(
STRPOS
(
vn
[
vc
],
'AZIMUTH'
)
NE
-
1
)
AND
(
STRPOS
(
vn
[
vc
],
'ANGLE'
)
NE
-
1
)
AND
$
(
FIX
(
maxv
)
EQ
360
)
THEN
BEGIN
ENDIF
ELSE
IF
(
STRPOS
(
vn
[
vc
],
'AZIMUTH'
)
NE
-
1
)
AND
(
STRPOS
(
vn
[
vc
],
'ANGLE'
)
NE
-
1
)
THEN
BEGIN
;
also
check
whether
maximum
dataset
value
=
360.0
degrees
infotxt
=
'3 Maximum data value of 360.0 degrees is an invalid value for dataset '
+
vn
[
vc
]
+
' (North = 0.0)'
INFOTXT_OUTPUT
,
infotxt
IF
LONG
(
maxv
)
EQ
360
L
THEN
BEGIN
infotxt
=
'3 Maximum data value of 360.0 degrees is an invalid value for dataset '
+
vn
[
vc
]
+
' (North = 0.0)'
INFOTXT_OUTPUT
,
infotxt
ENDIF
ENDIF
ENDIF
ELSE
BEGIN
;
dataset
consists
of
fill
values
so
check
that
VAR_VALID_MIN
LE
VAR_VALID_MAX
IF
mnv
GT
mxv
THEN
BEGIN
...
...
@@ -5934,7 +5937,7 @@ PRO idlcr8hdf, ga, sds, tav, odir, reterr, H5=o1, AVK=o2, LOG=o4, POPUP=o5, QA=o
;
;
Program
documentation
,
idlcr8hdf
-
v4
.
0
_Readme
.
pdf
,
available
from
http
://
avdc
.
gsfc
.
nasa
.
gov
.
;
;
Program
sub
-
version
4.0
b5
7
(
20201
026
)
;
Program
sub
-
version
4.0
b5
8
(
20201
211
)
;
----------
;
Written
by
Ian
Boyd
for
the
EVDC
/
AVDC
-
iboyd
@
astro
.
umass
.
edu
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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