root/gliderproc/trunk/MATLAB/opnml/FCAST_1.2/sinegrid.m
| Revision 495 (checked in by cbc, 11 years ago) |
|---|
| Line | |
|---|---|
| 1 | function zz=sinegrid(zbot,zeta,nnv,dzbl) |
| 2 | nev=nnv-1; |
| 3 | |
| 4 | a=(zbot+zeta-dzbl*nev)/(nev*sin(2.*pi/nev)); |
| 5 | |
| 6 | a(a<0)=0; |
| 7 | |
| 8 | zz=NaN*ones(length(zbot),nnv); |
| 9 | |
| 10 | zz(:,1)=-zbot; |
| 11 | eps=(((2:nnv)-1)/nev); |
| 12 | |
| 13 | zz(:,2:nnv)=(-zbot)*(1.-eps)-a*sin(2.*pi*eps)+zeta*eps; |
| 14 | zz(:,nnv)=zeta; |
Note: See TracBrowser for help on using the browser.
