function read_nc_2d,filename,rec,idim,jdim,var,spnum=spnum

;	Modified 6/8/11 to be able to specify the species.

;	Modified 9/11/07 to be a function rather than a script.
;	Parallel in idea to read_nc_3d, but for 2d variables like column o3.
;
;	'spnum' is species number 

cdfid=ncdf_open(filename)
species=fltarr(idim,jdim)
speciesid=ncdf_varid(cdfid,var)

if keyword_set(spnum) then $
    ncdf_varget,cdfid,speciesid,species,count=[idim,jdim,1,1],offset=[0,0,spnum-1,rec-1] else $
    ncdf_varget,cdfid,speciesid,species,count=[idim,jdim,1],offset=[0,0,rec-1]


ncdf_close,cdfid
return,species
end