


function [e,jd]=ecomelev(cdf,i,j) gets velocity timeseries from an i,j location in ecomsi.cdf style file


0001 function [e,jd]=ecomelev(cdf,ii,jj) 0002 %function [e,jd]=ecomelev(cdf,i,j) 0003 % gets velocity timeseries from an i,j location in ecomsi.cdf style file 0004 time=mcvgt(cdf,'time'); 0005 nt=length(time); 0006 e=mcvgt(cdf,'heat_flux',[0 jj-1 ii-1],[nt 1 1]); 0007 jd=ecomtime(cdf);