pro l3_wrapper

;  This example routine demonstrates use of the HDF-EOS read utilites with a
;  MISR Level 3 aerosol file to access a data field and two of the file metadata vdatas.
;  Once the stop statement is reached, the variables containing the values
;  read can be examined in the idlde variable watch window or with the IDL HELP command.
;
;  NOTE:  The Time of Observations... field is only available in version 16 and higher
;  Level 3 Aerosol files.

filename = DIALOG_PICKFILE(TITLE="Select MISR Level 3 Aerosol (CGAS) file")

gridname = "AerosolParameterAverage"
fieldname = "Optical depth average"
status = read_grid_field(filename,gridname,fieldname,data)

status = read_vdata(filename,"Optical depth average Statistic",stats_struc)
help,stats_struc,/structure

vdname = "Time of Observations AerosolParameterAverage"
status = read_vdata(filename,vdname,time_struc)
help,time_struc,/structure
print,"Number of vdata records: ",n_elements(time_struc)

stop
end