;rsl_datetime
;
;Written by Brenda Dolan
;bdolan@atmos.colostate.edu
;11 May 2011

;This function takes the radar structure and produces a yyyymmdd_hhmmss time string.
; Syntax:
;     date_time=rsl_datetime(radar,jdate=jdate)
;Where jdate will be the julian date of the given date.

FUNCTION rsl_datetime,radar,jdate=jdate

	month=radar.h.month
	month_str=strtrim(string(month),2)
	IF month lt 10 THEN month_str='0'+month_str

	day=radar.h.day
	day_str=strtrim(string(day),2)
	IF day lt 10 THEN day_str='0'+day_str

	year=radar.h.year
	year_str=strtrim(string(year),2)
	
	hour=radar.h.hour
	hour_str=strtrim(string(hour),2)
	IF hour lt 10 THEN hour_str='0'+hour_str

	minute=radar.h.minute
	minute_str=strtrim(string(minute),2)
	IF minute lt 10 THEN minute_str='0'+minute_str
	sec=round(radar.h.sec)
	sec_str=strtrim(string(sec),2)
	IF sec lt 10 THEN sec_str='0'+sec_str

	jdate = JULDAY(month, day, year, hour, minute, sec)

	date_time=year_str+month_str+day_str+'_'+hour_str+minute_str+sec_str
	;date_str=year_str+month_str+day_str

RETURN, date_time

END