Commit 4ed0a481 authored by Ian Boyd's avatar Ian Boyd
Browse files

Replace idlcr8hdf.pro

parent d6eac338
;Main Program Version: idlcr8hdf.pro v4.0b57, 20201026
;Main Program Version: idlcr8hdf.pro v4.0b58, 20201211
; 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.0b57 October 2020']
vertxt=['idlcr8hdf-v4.0_Readme.pdf','v4.0b58 December 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.0b57 (20201026)
;Program sub-version 4.0b58 (20201211)
; ----------
;Written by Ian Boyd for the EVDC/AVDC - iboyd@astro.umass.edu
;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment