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
cd4e9555
Commit
cd4e9555
authored
Dec 11, 2020
by
Ian Boyd
Browse files
Replace idlcr8hdf.pro
parent
087aa60b
Changes
1
Hide whitespace changes
Inline
Side-by-side
idlcr8hdf.pro
View file @
cd4e9555
;
Main
Program
Version
:
idlcr8hdf
.
pro
v4
.
0
b5
7
,
20201
026
;Main Program Version: idlcr8hdf.pro v4.0b5
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.0b44
; 20180901: Also check that DATETIME.START and DATETIME.STOP values are in chronological order -
; Version 4.0b48
; 20201211: Fix bug that caused an IDL Math Error (Floating Illegal Operand) when converting large
; floating point values to integers - Version 4.0b58
;
; 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 360L 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.0b5
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