read_nc.pro

PRO read_nc
;定义文件路径

MyRootDir='C:\Users\lhy\Desktop\气象数据\data0'


;遍历文件夹

filearr = file_search(MyRootDir,'*.nc',count=num);

FOR fileindex=0,num-1,1 DO BEGIN

nid = ncdf_open(filearr[fileindex], /nowrite )


; inquire about this file; returns structure
file_info = ncdf_inquire( nid )

; print out the dimensions of this file
FOR dimid=0, file_info.ndims -1 DO BEGIN
  ncdf_diminq, nid, dimid, name, size
  print, ' ---> dimension ' + name  + ' is: ', size 
ENDFOR

FOR varid=0, file_info.nvars-1 DO BEGIN
  ; inquire about the variable; returns structure
  var = ncdf_varinq( nid, varid )
  print,var
  print,'========================'
  ;read all attributes
  FOR var_att_id=0,var.natts -1 DO BEGIN
    att_name = ncdf_attname( nid, varid, var_att_id )
    print,att_name
    ncdf_attget, nid, varid, att_name, tematt
    print,string(tematt)
  ENDFOR
ENDFOR

ENDFOR
END