Upload New File

geoms_tc.pro

+;---------------------------------------------------------------------------------------------------
+;
+; name:			geoms_tc.pro
+; description: 	AVDC/EVDC GEOMS template checker tool
+;
+; 2011-02-03, v0.1	Christian Retscher	initial implementation
+; 2011-04-11, v0.2	Christian Retscher	MWR support addded
+;										concept: 1) GEOMS-VA -> HDF; 2) HDF -> GEOMS-VA checks
+; 2011-04-17, v0.3	Christian Retscher	FTIR support start
+;										filter for [SOLAR|LUNAR], [ppmv|ppbv|pptv], "...()"
+; 2011-04-23, v0.4	Christian Retscher	FTIR support finalized, LIDAR support tested
+; 2011-04-25, v0.5	Christian Retscher	Full LIDAR support added
+; 2011-04-26, v0.6	Christian Retscher	Split in wrapper and TC tools (keep versioning)
+; 2011-05-13, v0.7	Christian Retscher	Integrate UVVIS.DOAS
+; 2013-12-19, v1.3  Ian Boyd  align with geoms_tctools version
+; 2014-01-28, v1.34 Ian Boyd  align geoms_tools version due to change in geoms_tctools
+; 2014-03-11, v1.35 Ian Boyd  align versions with geoms_tools
+; 2014-03-25, v1.36 Ian Boyd  update due to modification to idlcr8ascii
+; 2014-03-29, v1.37 Ian Boyd  update due to modification to idlcr8hdf
+; 2014-05-22, v1.38 Ian Boyd  update due to modification to idlcr8hdf
+; 2014-08-06, v1.39 Ian Boyd  update due to modification to idlcr8hdf and geoms_tools
+; 2014-09-09, v1.40 Ian Boyd  update due to modification to idlcr8hdf and geoms_tools
+; 2014-11-10, v1.41 Ian Boyd  update due to modification to idlcr8hdf and idlcr8ascii
+; 2015-01-27, v1.42 Ian Boyd  update due to modification to idlcr8hdf and idlcr8ascii
+; 2015-02-17, v1.43 Ian Boyd  update due to modification to idlcr8hdf and idlcr8ascii
+; 2015-03-02, v1.44 Ian Boyd  update due to bug fix in idlcr8hdf
+; 2015-04-09, v1.45 Ian Boyd  update due to bug fix in idlcr8hdf
+; 2015-08-11, v1.46 Ian Boyd  update due to bug fixes and improvements in idlcr8hdf
+; 2015-09-26, v1.47 Ian Boyd  update due to bug fixes and improvements in idlcr8hdf
+; 2015-10-21, v1.48 Ian Boyd  update due to bug fixes and improvements in idlcr8hdf
+; 2015-11-04, v1.49 Ian Boyd  update due to fix in idlcr8hdf
+; 2015-11-09, v1.50 Ian Boyd  update due to bug fixes and improvements in idlcr8hdf and idlcr8ascii
+; 2015-11-16, v1.51 Ian Boyd  update due to fix in idlcr8hdf
+; 2015-12-15, v1.52 Ian Boyd  update due to fix in idlcr8hdf
+; 2016-02-13, v1.53 Ian Boyd  Add extra satellite instruments to the obsolete list for DATA_SOURCE
+;                             in idlcr8hdf. Modifications to idlcr8hdf and idlc8ascii
+; 2016-06-14, v1.54 Ian Boyd  update due to fix in idlcr8ascii
+; 2016-07-25, v1.55 Ian Boyd  update due to fix in idlcr8ascii and idlcr8hdf
+; 2016-11-16, v1.56 Ian Boyd  update due to fix in idlcr8hdf
+; 2016-11-30, v1.57 Ian Boyd  update due to fix in idlcr8ascii and idlcr8hdf and account for
+;                             non-GEOMS variable attributes (ptr_valid check) in geoms_tctools
+; 2016-12-17, v1.58 Ian Boyd  update due to fixes in idlcr8ascii
+; 2016-12-30, v1.59 Ian Boyd  Add FV keyword to geoms_tools (options 20-22 in geoms_harmon call).
+;                             If called then forces the DATA_FILE_VERSION not to increment when
+;                             performing harmonization; Incorporates fixes made to idlcr8hdf
+; 2017-03-31, v1.60 Ian Boyd  update due to improvements to idlcr8hdf
+; 2017-11-21, v1.61 Ian Boyd  update due to fixes in idlcr8hdf
+; 2018-02-18, v1.62 Ian Boyd  update due to fix in idlcr8ascii and idlcr8hdf
+; 2018-03-14, v1.63 Ian Boyd  update due to fix in idlcr8hdf
+; 2018-05-28, v1.64 Ian Boyd  update due to fix in idlcr8hdf
+; 2018-09-01, v1.65 Ian Boyd  update due to fix in idlcr8hdf
+; 2018-11-16, v1.66 Ian Boyd  update due to fix in idlcr8ascii
+;---------------------------------------------------------------------------------------------------
+
+PRO geoms_tc
+
+	args = command_line_args()
+	iNrArgs = size(args, /N_ELEMENTS)
+
+	if ( iNrArgs ne 2 ) then begin
+		print
+		print, 'GEOMS template checker (geoms_tc)'
+		print, '  Release v1.66, 2018-11-16'
+		print, '  Does GEOMS template compliance checks on HDF4/5 files.'
+		print
+		print, 'usage: idl -rt=geoms_tc.sav -args [GEOMS-TE-FILE] [HDFFILE] '
+		print
+		print, '1: HDFFILE is the path of the HDF file, you want to check for template compliance'
+		print, '2: GEOMS-TE-FILE is the path to the GEOMS template file'
+		print, '------------------------------------------------------------------------------------------------'
+		print
+
+		TC_error_code = 3
+		exit, status=TC_error_code
+	end
+
+	templatefile 	= STRTRIM( args( 0 ), 2 )
+	hdffile			= STRTRIM( args( 1 ), 2 )
+
+	TC_error_code = 3
+
+	if ( file_test( hdffile ) eq 0 ) then begin
+		TC_error_code = 3
+		print, '  ERROR: HDF file not found.'
+	end else begin
+		TC_error_code = 0
+	end
+
+	if ( file_test( templatefile ) eq 0 ) then begin
+		TC_error_code = 3
+		print, '  ERROR: GEOMS template file not found.'
+	end else begin
+		TC_error_code = 0
+	end
+
+	; find and remove log file (see geoms_tools.pro)
+	logfile=STRMID(hdffile,0,STRPOS(hdffile,'.',/REVERSE_SEARCH))+'.log'
+    openw,lu,logfile,/GET_LUN
+	close
+
+	if ( TC_error_code eq 0 ) then begin
+		TC_error_code = geoms_tctools( templatefile, hdffile, 0 )
+	end
+
+	print, TC_error_code
+	exit, status=TC_error_code
+
+END