CAMBRIDGE. MASSACHUSETTS 02139 



PROFILE LANGUAGE - FORTRAN IV 



COMPUTER - IBM 360/'^0 

 (COPY ON FILE AT NODC ) 



COMPUTES AND PLOTS THE WAVE PROFILE GIVEN THE SPECTRUM (IN THE FORM OF 

 THE FOURIER COEFFICIENTS). INPUT — THE NUMBER OF COMPONENTS, AND THE 

 NUMBER OF VALUES OF ETA TO BE COMPUTED AND PLOTTED. ARE READ IN AT EX- 

 ECUTION TIME. OUTPUT — A PRINTER PLOT (ON A PRINTER WITH A 132-CHAR- 

 ACTER LINE) OF ETA VS. T. REF. TECH. NOTE NO. 13 'WATER WAVE TEACHING 

 AIDS' (R.H. CROSS, SEP 1968). HYDRODYNAMICS LABORATORY. DEPARTMENT OF 

 CIVIL ENGINEERING. 



PROF. RALPH H. CROSS 



ROOM 48-209 HYDRODYNAMICS LABORATORY 

 MASSACHUSETTS INSTITUTE OF TECHNOLOGY 

 CAMBRIDGE, MASSACHUSETTS 02139 



SUBROUTINE PROFl LANGUAGE - FORTRAN IV 



COMPUTER - IBM 360/A^O 

 (COPY ON FILE AT NODC) 



COMPUTES WATER SURFACE ELEVATIONS. ETA(X) OR ETA(T). OVER A WAyE PERI- 

 OD, USING LINEAR WAVE THEORY. INPUT — WAVE HEIGHT, PERIOD AND LENGTH, 

 AND THE WATER DEPTH. OUTPUT — RETURNS THE THREE ARRAYS OF X, T. AND 

 ETA FOR T=0, PER/40 .... .PER AND X=0. L/40. 2l/40,...,L. WRITEUPS AND 

 LISTING IN TECHNICAL NOTE NO. 13 OF THE HYDRODYNAMICS LABORATORY. AL- 

 TERNATIVE SUBROUTINES. PR0F2 AND PR0F3, ACCOMPLISH THE SAME PURPOSE 

 USING STOKES' SECOND- AND THIRD-ORDER WAVE EQUATIONS. 



PROF. RALPH H. CROSS 



ROOM 48-209 HYDRODYNAMICS LABORATORY 

 MASSACHUSETTS INSTITUTE OF TECHNOLOGY 

 CAMBRIDGE, MASSACHUSETTS 02139 



SUBROUTINE REFLl LANGUAGE - FORTRAN IV 



COMPUTER - IBM 360/40 

 (COPY ON FILE AT NODC) 



COMPUTES WATER SURFACE PROFILES FOR THE PARTIAL (TWO-DIMENSIONAL) RE- 

 FLECTION OF A LINEAR ( SMALL- AMPL I TUDE ) WAVE FROM A STRUCTURE. INPUT - 

 THE INCIDENT WAVE HEIGHT, PERIOD, AND LENGTH, THE WATER DEPTH. AND THE 

 REFLECTION COEFFICIENT. OUTPUT — PRINTS WATER SURFACE PROFILES FOR 

 TWO WAVE LENGTHS. FOR T = 0. T/4, T/2, AND 3T/4. DOCUMENTATION IS IN 

 TECHNICAL NOTE 13, M.I.T. HYDRODYNAMICS LABORATORY (SEPT 1968. 92 P). 



PROF. RALPH H. CROSS 



ROOM 48-209 HYDRODYNAMICS LABORATORY 

 MASSACHUSETTS INSTITUTE OF TECHNOLOGY 

 CAMBRIDGE, MASSACHUSETTS 02139 



SUBROUTINES UOFTl, WOFTl, UTOFTl, WTOFTl LANGUAGE - FORTRAN IV 



COMPUTER - IBM 360/40 

 (COPY ON FILE AT NODC) 



COMPUTES VALUES OF U(T), W(T), THE PARTIAL DERIVATIVE OF U WITH RES- 

 PECT TO T, OR THE PARTIAL DERIVATIVE OF W WITH RESPECT TO T, I.E. THE 

 HORIZONTAL AND VERTICAL FlOW VELOCITIES AND THEIR ACCELERATIONS OVER A 

 WAVE PERIOD AT A GIVEN DEPTH, Z, USING LINEAR WAVE THEORY. INPUT ARE 

 WAVE HEIGHT, PERIOD, AND LENGTH, THE WATER DEPTH, AND THE DESIRED VAL- 

 UE OF Z. OUTPUT— RETURNS ARRAYS OF T AND U(T). W(T). ETC.. FOR T=0, 

 PER/40, 2PER/40,...,PER. ALTERNATE SETS OF SUBROUTINES CARRY OUT THE 

 SAME PURPOSE USING STOKES' SECOND- AND THIRD-ORDER WAVE EQUATIONS. 

 WRITEUPS AND LISTINGS IN TECHNICAL NOTE NO. 13 OF THE M.I.T. HYDRODY- 

 NAMICS LABORATORY (SEPT 1968). 



PROF. RALPH H. CROSS 



ROOM 48-209 HYDRODYNAMICS LABORATORY 



MASSACHUSETTS INSTITUTE OF TECHNOLOGY 



PAGE 108 



