/[MITgcm]/MITgcm_contrib/timour_matlab/mscripts/maxspeedevolution.m
ViewVC logotype

Contents of /MITgcm_contrib/timour_matlab/mscripts/maxspeedevolution.m

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Wed Sep 3 21:22:22 2003 UTC (21 years, 10 months ago) by edhill
Branch: MAIN
CVS Tags: HEAD
initial checkin of Timour's MatLAB scripts

1 clear
2 clear path
3
4 global Nx Ny Nz
5 global lat long dz dm mdep
6 global delt_su su_its t_su delt
7 global descriptor this_path
8 global f deltaf Q beta r_expt r_heat H
9 global time rots it
10 global g Cp rho_bar alpha
11 global u v t w
12 global iterations
13
14
15 param_file_name = ...
16 input(' Please enter the name of the m-file with the parameters for this run : ','s') ;
17 feval(param_file_name) ;
18 path = this_path
19 cmdstr=['cd ' path ];
20 eval(cmdstr);
21 path=pwd
22
23 figure;hold on
24 %set(gca,'XLim',[10000 35000])
25 %set(gca,'YLim',[20 35])
26 sizeit=size(iterations);
27 maxt=zeros(sizeit(1));
28
29 for i=1:sizeit(1)
30 ufilename=(['U.' iterations((i),1:10) ]);
31 u=rdmeta(ufilename,'b');
32 vfilename=(['V.' iterations((i),1:10) ]);
33 v=rdmeta(vfilename,'b');
34
35 roughspeed=sqrt(u.*u +v.*v);
36
37 maxroughspeed(i)=max(max(max(roughspeed)));
38 plot(eval(iterations((i),1:10)),maxroughspeed(i),'o');drawnow
39 end
40
41 title(descriptor)
42 xlabel('timestep')
43 ylabel('maximum (uninterpolated) speed')
44 grid
45
46
47

  ViewVC Help
Powered by ViewVC 1.1.22