Title: A numerical model to simulate sediment transport in the vicinity of coastal structures / by Marc Perlin and Robert G. Dean ; prepared for U.S. Army, Corps of Engineers, Coastal Engineering Research Center.
Abstract:THETAB(1,1)=0.5*(THETA(1,1)+0.0)R(1,1)=0.5/(DX*(DEEP(1,1)+BERM/2.)) DO 290 I=2,IMAX R(1,1)=0.5/(DX*(DEEP(1,1)+BERM/2.)) c* THETAB(I,1)=0.25*(THETA(I,1)+THETA(I-1,1)+0.+0. ) THETAB(1I,1)=0.5*(THETA(I,1...THETAB(1,1)=0.5*(THETA(1,1)+0.0)R(1,1)=0.5/(DX*(DEEP(1,1)+BERM/2.)) DO 290 I=2,IMAX R(1,1)=0.5/(DX*(DEEP(1,1)+BERM/2.)) c* THETAB(I,1)=0.25*(THETA(I,1)+THETA(I-1,1)+0.+0. ) THETAB(1I,1)=0.5*(THETA(I,1)+THETA(I-1,1))C*NO NEED TO COMPUTE PROP ANGLE AT STRUCTS BECAUSE QX =0.0O AT IJET(M)+1 ANGLOC(I,1)=ATAN((Y(1,1)Read More