pro driver

;This is a simple driver program designed to work with the pmrayl.pro
;function. The user must specify a channel number and date
; -S. Finn
; Updated: G. Elsaesser, 09/05/06


;Channels for project:
; 0 = 380 nm
; 1 = 500 nm
; 2 = 778 nm

;Example:
channel=0


;Example: Assign Date 

year=84
month=1
day=7

;Now call function and assign answer to "result"
print,'INPUT FOR PMRAYL SUBROUTINE:'
print,''
print,'YEAR:',year,'  MONTH:',month,'  DAY:',day
print,''
print,'CHAN NUMBER (0=380nm,1=500nm,2=778nm):',channel

result=pmrayl(year,month,day,channel)


;print the result to screen

print,'Combined Rayleigh + Ozone Optical Depth = ',result


END