pro ut_bin

;READING NETCDF FILES WITH READ_NETCDF.PRO

hval=0
print, hval
lval=90
print, lval

x=strarr(1)

fpath='/sundog/d/alisha/Mar_qbowhr/'
fname='Mar1qbow.nc'
x(0)= fpath+fname

;fpath='/sundog/d/alisha/Mar_qboehr/'
;fname='Mar1qboe.nc'
;x(1)= fpath+fname

;warning: with three files exceeds memory
;fpath='/sundog/d/alisha/Mar_conhr/'
;fname='Mar1.5_conhr.nc'
;x(2)= fpath+fname


  read_netcdf, x(0), data, data_att, status

;which variables are in the file?
help, data, /struct

;what are the attributes?
for i=0, n_elements(data_att)-1 do print, data_att(i)

ut= data.time

ht= data.Z3
lon= data.lon
lat= data.lat 
lev= data.lev

;t being the waccm temp with longtitutde  and ut(4D)
temp= data.t

;create a temp array of meridional winds
mer=data.v(lval,*,*,hval)
    print, mer


;convert UT time and longitude to L

;     stop
	     end