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
adb52e52
Commit
adb52e52
authored
Jul 09, 2020
by
Ian Boyd
Browse files
Replace idlcr8hdf.pro
parent
35a55798
Changes
1
Hide whitespace changes
Inline
Side-by-side
idlcr8hdf.pro
View file @
adb52e52
;
Main
Program
Version
:
idlcr8hdf
.
pro
v4
.
0
b5
4
,
2020
1103
;
Main
Program
Version
:
idlcr8hdf
.
pro
v4
.
0
b5
5
,
2020
0709
;
Written
by
Ian
Boyd
for
the
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
4 March
2020'
]
vertxt
=
[
'idlcr8hdf-v4.0_Readme.pdf'
,
'v4.0b5
5 July
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):'
...
...
@@ -1232,6 +1232,9 @@ PRO geoms_rule_changes, code, in1, in2, in3, in4
;
file
does
not
use
a
DATA_TEMPLATE
(
rule
9
)
-
Version
4.0
b50
;
20191205
:
Add
rule
11
which
does
checks
on
optional
VERSION_NAME
sub
-
field
of
;
DATA_SOURCE
-
Version
4.0
b53
;
20200709
:
Fix
in
option
5
when
looking
for
obsolete
variable
names
.
Change
from
doing
a
;
STRPOS
search
to
looking
for
an
exact
change
for
DATA_VARIABLES_01
names
due
to
;
introduction
of
DRY
.
AIR
....
names
to
the
TAV
-
Version
4.0
b55
;
;
Inputs
:
code
-
Integer
value
identifying
type
of
check
to
carry
out
;
in1
-
First
set
of
inputs
required
for
checks
(
optional
,
dependent
on
code
value
)
...
...
@@ -1463,7 +1466,9 @@ CASE 1 OF
ENDFOR
;
Test
for
values
in
obs_list_1
FOR
i
=
0
,
N_ELEMENTS
(
obs_list_1
)
-
1
DO
BEGIN
ri
=
WHERE
(
STRPOS
(
STRUPCASE
(
vn_v
[
*,
0
]),
obs_list_1
[
i
])
NE
-
1
,
rcnt
)
;
ri
=
WHERE
(
STRPOS
(
STRUPCASE
(
vn_v
[
*,
0
]),
obs_list_1
[
i
])
NE
-
1
,
rcnt
)
;
Change
to
exact
match
from
v4
.
0
b55
(
20200709
)
-
due
to
introduction
of
DRY
.
AIR
....
variable
names
ri
=
WHERE
(
STRUPCASE
(
vn_v
[
*,
0
])
EQ
obs_list_1
[
i
],
rcnt
)
IF
rcnt
NE
0
THEN
BEGIN
;
obsolete
values
found
so
replace
vlen
=
STRLEN
(
obs_list_1
[
i
])
FOR
j
=
0
,
rcnt
-
1
DO
BEGIN
...
...
@@ -5863,7 +5868,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
4
(
2020
1103
)
;
Program
sub
-
version
4.0
b5
5
(
2020
0709
)
;
----------
;
Written
by
Ian
Boyd
for
the
AVDC
-
iboyd
@
astro
.
umass
.
edu
;
...
...
Write
Preview
Supports
Markdown
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