%A script for making quick plots for Marinna.
nc = netcdf
tstart=nc{'time'}(1);
startday = EP_DateNum([tstart 0]);
status = 1;
while status
   var = uigetvar(nc)
   if isequal (name(var),'time2')
      status = 0;
   end
   plot (var)
   zoomsafe
   pause
   dateaxis('x',0,startday)
   xlabel ('time')
   title(name(nc))
   print
end
ncclose