/[MITgcm]/MITgcm/verification/tutorial_deep_convection/input/gendata.m
ViewVC logotype

Diff of /MITgcm/verification/tutorial_deep_convection/input/gendata.m

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

revision 1.2 by jmc, Wed Apr 23 23:23:31 2008 UTC revision 1.3 by jmc, Thu Apr 24 01:48:52 2008 UTC
# Line 1  Line 1 
1  % This is a matlab script that generates the input data  % This is a matlab script that generates the input data
2    
3    % $Header$
4    % $Name$
5    
6  % Dimensions of grid  % Dimensions of grid
7  nx=100;  nx=100;
8  ny=100;  ny=100;
# Line 48  for j=-1:1, for i=-1:1, Line 51  for j=-1:1, for i=-1:1,
51   qs=Q/9; qs( find(r2 > Rc*Rc) )=0.;   qs=Q/9; qs( find(r2 > Rc*Rc) )=0.;
52   Qc=Qc+qs;   Qc=Qc+qs;
53  end ; end  end ; end
54  fid=fopen('Qnet.bin','w','b'); fwrite(fid,Qc,'real*8'); fclose(fid);  %fid=fopen('Qnet_p64.bin','w','b'); fwrite(fid,Qc,'real*8'); fclose(fid);
55     fid=fopen('Qnet_p32.bin','w','b'); fwrite(fid,Qc,'real*4'); fclose(fid);
56    
57  var=2*pi*[0:1000]/1000; xl=Rc*cos(var); yl=Rc*sin(var);  var=2*pi*[0:1000]/1000; xl=Rc*cos(var); yl=Rc*sin(var);
58  figure(1);clf;  figure(1);clf;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22