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
bbfbad18
Commit
bbfbad18
authored
Aug 12, 2019
by
Ian Boyd
Browse files
Replace cds_convert.pro
parent
603c31f8
Changes
1
Hide whitespace changes
Inline
Side-by-side
cds_convert.pro
View file @
bbfbad18
...
...
@@ -81,6 +81,7 @@
;
latest
idlcr8hdf
that
allows
for
HDF5
compression
;
2019
-
05
-
06
,
v2
.
0
b58
Ian
Boyd
Update
due
to
fix
in
idlcr8hdf
;
2019
-
05
-
14
,
v2
.
0
b59
Ian
Boyd
Update
due
to
fix
in
idlcr8ascii
;
2019
-
08
-
07
,
v2
.
0
b60
Ian
Boyd
Update
due
to
modifications
to
idlcr8ascii
and
idlcr8hdf
;
---------------------------------------------------------------------------------------------------
PRO
cds_convert_common
;
Procedure
to
define
the
COMMON
blocks
for
this
program
...
...
@@ -149,7 +150,7 @@ PRO intro
;
Subroutines
Called
:
INTRO_EVENT
(
via
XMANAGER
)
nhdr
=
22
&
errtxt
=
STRARR
(
nhdr
)
vertxt
=
[
'cds_convert_Readme.pdf'
,
' Release v2.0b
59, May
2019'
]
vertxt
=
[
'cds_convert_Readme.pdf'
,
' Release v2.0b
60, August
2019'
]
errtxt
[
1
]
=
'Conversion Data Suite (CDS): cds_convert'
errtxt
[
2
]
=
vertxt
[
1
]
errtxt
[
3
]
=
' Converts supported original data into GEOMS compliant HDF data.'
...
...
@@ -165,7 +166,7 @@ errtxt[14]='1 (M): CDSMATCHINPUT is the path to the output of cds_match with a l
errtxt
[
15
]
=
'2 (S): TRANSFILE is the path to the CDS compliant translation file'
errtxt
[
16
]
=
'3: TAVFILE is the path of the TAV file, you want to convert with'
errtxt
[
17
]
=
'4: OUTPUTDIR is the path of the output directory of the converted file'
errtxt
[
18
]
=
'5: DATAFORMAT: 0: HDF4; 1: HDF5; 2: netCDF'
errtxt
[
18
]
=
'5: DATAFORMAT: 0: HDF4; 1: HDF5; 2: netCDF
3; 3: netCDF4
'
errtxt
[
19
]
=
'6 (S): ORIGFILE is the path to the original file, you want to convert'
errtxt
[
21
]
=
'To continue, please choose from the options below (Note: HDF5 only available on IDL6.2 or greater).'
errtxt
=
' '
+
errtxt
...
...
@@ -178,12 +179,12 @@ b1=WIDGET_BUTTON(base2,value='HDF4 (Single)',uvalue='S',frame=3) ;,Tooltip=Tip)
IF
FLOAT
(!
Version
.
Release
)
GE
6.2
THEN
$
b2
=
WIDGET_BUTTON
(
base2
,
value
=
'HDF5 (Single)'
,
uvalue
=
'h5S'
,
frame
=
3
)
$
;,
Tooltip
=
Tip
)
$
ELSE
b2
=
WIDGET_BUTTON
(
base2
,
value
=
'HDF5 (Single)'
,
Sensitive
=
0
,
frame
=
3
)
b4
=
WIDGET_BUTTON
(
base2
,
value
=
'netCDF (Single)'
,
uvalue
=
'ncS'
,
frame
=
3
)
b4
=
WIDGET_BUTTON
(
base2
,
value
=
'netCDF
3
(Single)'
,
uvalue
=
'ncS'
,
frame
=
3
)
b5
=
WIDGET_BUTTON
(
base2
,
value
=
'HDF4 (Multiple)'
,
uvalue
=
'M'
,
frame
=
3
)
;,
Tooltip
=
Tip
)
IF
FLOAT
(!
Version
.
Release
)
GE
6.2
THEN
$
b6
=
WIDGET_BUTTON
(
base2
,
value
=
'HDF5 (Multiple)'
,
uvalue
=
'h5M'
,
frame
=
3
)
$
;,
Tooltip
=
Tip
)
$
ELSE
b6
=
WIDGET_BUTTON
(
base2
,
value
=
'HDF5 (Multiple)'
,
Sensitive
=
0
,
frame
=
3
)
b7
=
WIDGET_BUTTON
(
base2
,
value
=
'netCDF (Multiple)'
,
uvalue
=
'ncM'
,
frame
=
3
)
b7
=
WIDGET_BUTTON
(
base2
,
value
=
'netCDF
3
(Multiple)'
,
uvalue
=
'ncM'
,
frame
=
3
)
b3
=
WIDGET_BUTTON
(
base2
,
value
=
'Stop'
,
uvalue
=
'CANCEL'
,
frame
=
3
)
;,
ToolTip
=
Tip
)
WIDGET_CONTROL
,
base
,
/
Realize
...
...
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