Commit 2523fad7 authored by Ian Boyd's avatar Ian Boyd

Replace idlcr8hdf.pro

parent 1e0ec8a8
;Main Program Version: idlcr8hdf.pro v4.0b51, 20190807
;Main Program Version: idlcr8hdf.pro v4.0b52, 20190824
; 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.0b51 August 2019']
vertxt=['idlcr8hdf-v4.0_Readme.pdf','v4.0b52 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.0b51
; 20190824: Fix bug in 4.0b51 that caused the file name to be written to the DATA_FILE_VERSION
; attribute - Version 4.0b52
;
; 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: '
ai=WHERE(attr_arr_glob EQ 'FILE_NAME')
res=STRSPLIT(meta_arr[ai[0]],' =',/Extract)
fni=WHERE(attr_arr_glob EQ 'FILE_NAME')
res=STRSPLIT(meta_arr[fni[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[ai[0]]='FILE_NAME='+hdffilename ;change FILE_NAME entry
meta_arr[fni[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.0b51 (20190807)
;Program sub-version 4.0b52 (20190824)
; ----------
;Written by Ian Boyd for the 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