・netCDFのよみかき(暫定)
;; Original fileをコピーして作業用netCDFを作る
ifldname_nc = 'C:\work\ENVI_IDL\sample\LIR\sample_data\'
ifname = ifldname_nc + 'LIR_20151207T052601_10_L3B_00.NC'
ifname_hp = ifldname_nc + 'LIR_20151207T052601_10_L3B_00_hp.NC'
;; File copy ;;
FILE_COPY, ifname, ifname_hp,/overwrite
id = NCDF_OPEN(ifname_hp, /WRITE)
lon_id = NCDF_VARID(id, 'longitude')
lat_id = NCDF_VARID(id, 'latitude')
tim_id = NCDF_VARID(id, 'time')
NCDF_CONTROL, id,/redef
; Define a variable with the name "board":
vid = NCDF_VARDEF(id, 'btemp_hp', [lon_id, lat_id,tim_id], /Float,gzip=1)
NCDF_CONTROL, id, /ENDEF
ncdf_varput,id,vid,float(h_btemp)
NCDF_CLOSE, id ; Close the file.