Warning, /verification/cheapAML_box/input/gendata.m is written in an unsupported language. File is not indexed.
view on githubraw file Latest commit 44d092da on 2012-12-04 19:05:15 UTC
44d092da7a Jean*0001 clear;
0002
0003 ieee='b';
0004 accuracy='real*8';
0005
0006 H=1000;
0007 nx=100;
0008 ny=100;
0009 nz=1;
0010
0011 % ======================= TOPOGRAPHY =========================================
0012
0013 % Flat bottom at z=-Ho
0014
0015 h=-H*ones(nx,ny);
0016
0017
0018
0019 % Walls
0020 h(1,:) = 0.0;
0021 h(end,:) = 0.0;
0022 h(:,1) = 0.0;
0023 h(:,end) = 0.0;
0024
0025 % land
0026 for n1=1:nx
0027 for n2=1:ny
0028 if (n2>60 && n1<n2)
0029 h(n1,n2) = 0.0;
0030 end
0031 end
0032 end
0033
0034 fid=fopen('topog.box','w',ieee); fwrite(fid,h,accuracy); fclose(fid);
0035