Commit 35b9a60f authored by Ian Boyd's avatar Ian Boyd
Browse files

Replace geoms_tools.pro

parent 0294f061
;Main Program Version: geoms_tools.pro v2.04, 20200709
;Main Program Version: geoms_tools.pro v2.05, 20200930
; Written by Ian Boyd for AVDC/EVDC - iboyd@astro.umass.edu
;
FUNCTION is_a_number_gt,value
......@@ -1048,7 +1048,7 @@ FUNCTION geoms_tools, optqh, tav, hdfqh, outdir, dataformat, DATETIME=o1, NOTC=o
; geoms-harmon-v1.0_Readme.pdf, available from http://avdc.gsfc.nasa.gov.
; idlcr8ascii-v4.0_Readme.pdf, available from http://avdc.gsfc.nasa.gov.
; idlcr8hdf-v4.0_Readme.pdf, available from http://avdc.gsfc.nasa.gov.
;Program sub-version 2.02 (20200311)
;Program sub-version 2.05 (20200930)
; ----------
;Written by Ian Boyd for AVDC/EVDC - iboyd@astro.umass.edu
;
......@@ -1138,6 +1138,9 @@ FUNCTION geoms_tools, optqh, tav, hdfqh, outdir, dataformat, DATETIME=o1, NOTC=o
; 20200311, Update due to fix to idlcr8hdf - Version 2.02
; 20200427, Update due to geoms_vntools update - Version 2.03
; 20200709, Update due to fix to idlcr8hdf - Version 2.04
; 20200930, Update due to fix to idlcr8ascii; Return gt_error_code value of -2 to geoms_qa
; if idlcr8ascii can't read the input file to stop template and version name
; checks - Version 2.05
;
; Input: optqh - Integer defining type of testing 0=QA, 1=Harmonization
; tav - Table Attribute Values file used to test Metadata
......@@ -1174,7 +1177,7 @@ FUNCTION geoms_tools, optqh, tav, hdfqh, outdir, dataformat, DATETIME=o1, NOTC=o
; The output from IDLCR8ASCII is then used in the call to:
; IDLCR8HDF - which performs the QA and Harmonization
gtver='geoms_tools version 2.04, 2020-07-09'
gtver='geoms_tools version 2.05, 2020-09-30'
gt_error_code=3 ;Integer to identify return error code (3 = Invalid input)
par1chk=0 & parchk=0
IF N_PARAMS() GE 1 THEN BEGIN ;test first parameter only
......@@ -1291,7 +1294,7 @@ ENDIF ELSE BEGIN ;Commence QA or Harmonization on HDF files
PRINTF,lu,reterr
PRINTF,lu,''
PRINTF,lu,gtcode[2]
gt_error_code=FIX(STRMID(gtcode[2],0,1))
gt_error_code=FIX(STRMID(gtcode[2],0,1))*(-1) ;Make negative so no other checks are done
ENDIF ELSE BEGIN ;File read OK so continue with checks
IF h_typeall NE '' THEN h_type=h_typeall $ ;output format determined by program call
ELSE IF H5F_IS_HDF5(hdfqh[i]) THEN h_type='H5' $
......
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