program nc_test  
       include 'netcdf.inc'
       
       integer istat, ncid
       integer vn_id
       real longitude(72), latitude(36), lev(29)
       character*80 filname 
       character*80 varname
! define varable attributes
       character*10 vn_name
       integer vn_type, vn_ndims, vn_dimid(30), vn_natt
!  open nc file       
       filename = 'mig03_test01se.nc'
       istat=nf_open(filname, NF_NOWRITE, ncid)
       if (istat .NE. NF_NOERR) then
         write(6,"('>>> Error opening file',a)") filname
         stop 'opening file'
       endif
!  inquire variable id
        istat=nf_inq_varid(ncid, 'VN', vn_id)
        if (istat .NE. NF_NOERR) then
          write(6,"('>>> Error inquiring var id',a)") filname
          stop 'inquiring file'
        endif
        write(*,*)'vn_id=', vn_id      
! inquire variable
        istat=nf_inq_var(ncid, vn_id, vn_name, vn_type,  
     |  vn_ndims,vn_dimid, vn_natt)
        if (istat .NE. NF_NOERR) then
          write(6,"('>>> Error inquiring var',a)") filname
          stop 'inquiring file'
        endif
        write(*,*) 'vn_name:', vn_name
        write(*,*) 'vn_type:', vn_type
        write(*,*) 'vn_ndims:', vn_ndims
        write(*,*) vn_dimid
        end