program readfile
	implicit none
	include "netcdf.inc"
c	khai bao bien
	integer nx,ny,nplev,ntimes  !lon,lat,plev,time
	parameter         (nx=,ny=,nplevs=,ntimes=)
	integer           iret,fid
	integer           id_lon,id_lat,id_var
	character*128     cfiname       !input filename
	character*128     cvrname       !variable name
	integer           nlen          !n.of characters of cvrname 
	real              rlon(nx),rlat(ny)
c       real,dimension(nx,ny,nplev,ntimes) :: r4var
        real                 r4var(nx,ny,nplev,ntimes)
c Read data with the variable name cvrname in the file cfiname
c modify cfiname, cvrname
        cfiname="DATA_OUTPUT_SEACLID/Exp01_daily/sea_erain001_dd_ATM.198901.nc"