| 1 | 
edhill | 
1.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 | 
  | 
  | 
tfilename=(['T.' iterations((i),1:10) ]); | 
| 31 | 
  | 
  | 
t=rdmeta(tfilename,'b'); | 
| 32 | 
  | 
  | 
 | 
| 33 | 
  | 
  | 
 | 
| 34 | 
  | 
  | 
maxt(i)=max(max(max(t))); | 
| 35 | 
  | 
  | 
mint(i)=min(min(min(t))); | 
| 36 | 
  | 
  | 
plot(eval(iterations((i),1:10)),maxt(i),'o');drawnow | 
| 37 | 
  | 
  | 
plot(eval(iterations((i),1:10)),mint(i),'x');drawnow | 
| 38 | 
  | 
  | 
end | 
| 39 | 
  | 
  | 
 | 
| 40 | 
  | 
  | 
title(descriptor) | 
| 41 | 
  | 
  | 
xlabel('timestep') | 
| 42 | 
  | 
  | 
ylabel('maximum and minimum temperature evolution') | 
| 43 | 
  | 
  | 
grid | 
| 44 | 
  | 
  | 
 | 
| 45 | 
  | 
  | 
 | 
| 46 | 
  | 
  | 
 |