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

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

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

revision 1.1 by adcroft, Mon Mar 22 16:22:04 1999 UTC revision 1.2 by adcroft, Wed May 5 18:32:39 1999 UTC
# Line 42  z=-dz/2:-dz:-H; Line 42  z=-dz/2:-dz:-H;
42  Q=Qo*(1+0.01*rand([nx,ny]));  Q=Qo*(1+0.01*rand([nx,ny]));
43  r=sqrt(X.^2+Y.^2);  r=sqrt(X.^2+Y.^2);
44  %% Q( find(r>L) )=0;  %% Q( find(r>L) )=0;
45  f77write('Qnet.circle',Q,'real*8','b');  fid=fopen('Qnet.circle','w','b'); fwrite(fid,Q,'real*8'); fclose(fid);
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22