Commit 516ab96f authored by Ian Boyd's avatar Ian Boyd
Browse files

Replace cds_tools.pro

parent ac9b5e06
;Main Program Version: cds_tools.pro Release v2.0b55, 20180901
;Main Program Version: cds_tools.pro Release v2.0b56, 20181116
; Written by Ian Boyd for the AVDC/EVDC - iboyd@astro.umass.edu
;Sub-versions:
; 20090828: Initial Release for testing - v0.1
......@@ -152,6 +152,7 @@
; in Celcius (affected NDACC NASA Ames only) - v2.0b54
; 20180901, Previous fix caused crash when checking non-NDACC measurements. Fixed in
; this version - v2.0b55
; 20181116 Update due to fix in idlcr8ascii - v2.0b56
;Program to read in a file or string array created by CDS_Match (or equivalent) and,
;based on the input information, convert NDACC NASA/AMES, WOUDC CSV, SHADOZ, NOAA-ESRL or
......@@ -3065,7 +3066,15 @@ IF metaok EQ '' THEN BEGIN
resx=['']
READ_WOUDC_SECTION,ndacc,si[0],resx
nx=N_ELEMENTS(resx)-1L ;& nxprof=nx
ENDIF
ENDIF ELSE BEGIN
;Special case where #PROFILE is at the end of the line as opposed to the start of a new line
si=WHERE(STRPOS(ndacc,res[0]) NE -1,scnt)
IF scnt EQ 1 THEN BEGIN
resx=['']
READ_WOUDC_SECTION,ndacc,si[0],resx
nx=N_ELEMENTS(resx)-1L ;& nxprof=nx
ENDIF ELSE nx=0
ENDELSE
ENDIF ELSE BEGIN ;read in SHADOZ or NOAA profile information
nx=0L & pstart=2L & nhl=-1L
IF nw EQ 'S' THEN BEGIN
......@@ -3668,7 +3677,7 @@ FUNCTION cds_tools, listf, tav, outdir, dataformat, DATETIME=o1
;Initialize statusflag, and exit_code
statusflag='' & dum='' & exit_code=3
cdver='cds_tools version 2.0b55, 2018-09-01'
cdver='cds_tools version 2.0b56, 2018-11-16'
;Check input parameters
IF N_PARAMS() LT 3 THEN $
......
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