MITgcm_contrib/arnaud_matlab/show_movie.m

%
% function [M] = show_movie(field,x,y,NREC,lax,palette,NFIG,NTIMES,FPS)
%
% return a movie matrix M.
%
    function [M] = show_movie(field,x,y,NREC,lax,palette,NFIG,NTIMES,FPS)

    M = moviein(NREC);
    figure(NFIG)
    for n=1:NREC
      pcolor(x,y,field(:,:,n)');
      title(['record N = ' num2str(n)],'Fontsize',18);
      caxis(lax);
      colormap(palette);
      colorbar;
      M(:,n) = getframe;
    end
    movie(M,NTIMES,FPS)
1	%
2	% function [M] = show_movie(field,x,y,NREC,lax,palette,NFIG,NTIMES,FPS)
3	%
4	% return a movie matrix M.
5	%
6	function [M] = show_movie(field,x,y,NREC,lax,palette,NFIG,NTIMES,FPS)
7
8	M = moviein(NREC);
9	figure(NFIG)
10	for n=1:NREC
11	pcolor(x,y,field(:,:,n)');
12	title(['record N = ' num2str(n)],'Fontsize',18);
13	caxis(lax);
14	colormap(palette);
15	colorbar;
16	M(:,n) = getframe;
17	end
18	movie(M,NTIMES,FPS)