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

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

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

revision 1.1 by adcroft, Tue Dec 15 00:02:27 1998 UTC revision 1.2 by adcroft, Mon Mar 22 16:23:28 1999 UTC
# Line 47  f77write('topog.bumpchannel',h,'real*8', Line 47  f77write('topog.bumpchannel',h,'real*8',
47    
48  % Simple channel  % Simple channel
49  h(:,1)=0;  h(:,1)=0;
50  h(:,2:ny)=0;  h(:,2:ny-1)=-H;
51  h(:,ny)=0;  h(:,ny)=0;
52  f77write('topog.channel',h,'real*8','b');  f77write('topog.channel',h,'real*8','b');
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22