; IDL routine to read monitoring data from NetCDF monitoring file
; 
; Note:  The NetCDF file contains additional information on e.g. reference
;        time and version number that is not extracted here but may be
;        displayed with any common NetCDF tool.
; 
; Contact: stefan.noel@iup.physik.uni-bremen.de
; 
; input parameter: 
;
;    file = name of NetCDF file
;
; output parameters:
;
;    nt   = no. of times (days)
;    np   = no. of pixels (should be 8192)
;    grid = gridded degradation; FLOAT array of size (nt, np)
;    gridpixel = LONG array of pixel numbers (size np -> 0...8191)
;    griddate = LONG array of dates (size nt), in Julian Days
;
pro read_ncdf, file, nt, np, grid, gridpixel, griddate

Id = NCDF_OPEN(file)
NCDF_VARGET, Id, 'Degradation', grid
NCDF_VARGET, Id, 'Date', griddate
NCDF_VARGET, Id, 'Pixel',  gridpixel
nt = n_elements(griddate)
np = n_elements(gridpixel)
NCDF_CLOSE, Id

end