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
idlcr8
Commits
55f351b5
Commit
55f351b5
authored
Aug 24, 2019
by
Ian Boyd
Browse files
Replace idlcr8hdf.pro
parent
b7c4df98
Changes
1
Hide whitespace changes
Inline
Side-by-side
idlcr8hdf.pro
View file @
55f351b5
;
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