| 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 |  |