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
cds_convert
Commits
2523fad7
Commit
2523fad7
authored
Aug 24, 2019
by
Ian Boyd
Browse files
Replace idlcr8hdf.pro
parent
1e0ec8a8
Changes
1
Hide whitespace changes
Inline
Side-by-side
idlcr8hdf.pro
View file @
2523fad7
;
Main
Program
Version
:
idlcr8hdf
.
pro
v4
.
0
b5
1
,
201908
07
;
Main
Program
Version
:
idlcr8hdf
.
pro
v4
.
0
b5
2
,
201908
24
;
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
1
August 2019'
]
vertxt
=
[
'idlcr8hdf-v4.0_Readme.pdf'
,
'v4.0b5
2
August 2019'
]
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):'
...
...
@@ -4854,6 +4854,8 @@ PRO find_hdf_filename, hdffilename
;
20190807
:
Allow
.
nc
and
.
nc4
filename
extensions
when
doing
QA
on
a
file
that
has
been
read
;
into
session
memory
using
the
HDF5
routines
(
idlcr8ascii
set
up
to
use
H5
routines
;
to
read
netCDF4
files
as
well
as
HDF5
)
-
Version
4.0
b51
;
20190824
:
Fix
bug
in
4.0
b51
that
caused
the
file
name
to
be
written
to
the
DATA_FILE_VERSION
;
attribute
-
Version
4.0
b52
;
;
Inputs
:
meta_arr
-
a
string
array
containing
the
Global
and
Variable
Attributes
;
hfdfilename
-
a
string
holding
the
extension
of
the
eventual
HDF
filename
,
either
...
...
@@ -4891,8 +4893,8 @@ errtxt[1]=' should be '
errtxt
[
2
]
=
' ISO8601 format not valid: '
errtxt
[
3
]
=
'Type conversion error. MJD2K entry is not valid: '
a
i
=
WHERE
(
attr_arr_glob
EQ
'FILE_NAME'
)
res
=
STRSPLIT
(
meta_arr
[
a
i
[
0
]],
' ='
,
/
Extract
)
fn
i
=
WHERE
(
attr_arr_glob
EQ
'FILE_NAME'
)
res
=
STRSPLIT
(
meta_arr
[
fn
i
[
0
]],
' ='
,
/
Extract
)
IF
N_ELEMENTS
(
res
)
EQ
1
THEN
res
=
[
res
,
'-1'
]
fn_val
=
res
[
1
]
...
...
@@ -5055,7 +5057,7 @@ IF hdffilename NE fn_val THEN BEGIN
infotxt
[
1
]
=
' based on Global Attribute values'
ENDELSE
INFOTXT_OUTPUT
,
infotxt
meta_arr
[
a
i
[
0
]]
=
'FILE_NAME='
+
hdffilename
;
change
FILE_NAME
entry
meta_arr
[
fn
i
[
0
]]
=
'FILE_NAME='
+
hdffilename
;
change
FILE_NAME
entry
ENDIF
valid
=
1
;
Type
conversions
performed
OK
...
...
@@ -5783,7 +5785,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.0b5
1
(201908
07
)
;Program sub-version 4.0b5
2
(201908
24
)
; ----------
;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