cd /data8/llc/llc_4320/regions/Boxes/Box12
load matlab/thk90
fld='Theta';
suf='_10609.6859.1_936.1062.90';
m=936;
n=1062;
k=85;
for ts=1489536:144:1492992
  fin=[fld '/' myint2str(ts,10) '_' fld suf];
  tmp=readbin(fin,[m n],1,'real*4',k-1);
  clf
  quikpcolor(tmp');
  colorbar
  title([fld ' at ' int2str(dpt90(k)) ' m on ' ts2dte(ts,25,2011,9,10)])
  pause(.1)
end