Parent Directory | Revision Log | Revision Graph | 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'); |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |