1 PROGRAM RCPWAVE( INPUT. OUTPUT, TAPE7 . TAPE6 . IAPE8 , TAPE3 ) MAIN 2 



2 CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA*AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA hAIN 3 



3 C HAIN 4 



4 CAA NOTE AA 'IQ' AND 'JQ' DEFINE THE LENGTH OF THE ONE AND TWO HAIN 5 



5 C DIMENSIONAL ARRAYS USED IN THE PROGRAM. 'IQ' CORRESPONDS HAIN fa 



6 C TO THE X DIRECTION (ON-OFFSHORE) AND 'JQ' TO THE Y HAIN 7 



7 C DIRECTION (LONGSHORE' HAIN 8 



8 C HAIN 9 

 3 CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA*AAA HAIN 10 



10 C HAIN 11 



11 C PARAH 2 



12 PARAMETER ( IQ=95 , JQ=95 ) PARAM 3 



13 C PARAM 4 



14 C HAIN 13 



15 CAA NOTE AA THE PRODUCT 10 A JQ MUST BE LESS THAN 9025 IF IHE MODEL MAIN 14 

 lb C APPLICATION IS TO BE RUN ON THE FRONI END CYBER 863 MAIN 15 



17 C MACHINE. ANYTHING LARGER MUST BE RUN ON THE CYBER 205. MAIN 16 



18 C MAIN 17 



19 CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA MAIN 13 



20 C MAIN 1? 



21 CAA DEFINITION OF IMPORTANT VARIABLE ARRAYS USED THROUGHOUT THE PROGRAM MAIN 20 



22 C MAIN 21 



23 C I - WAVE ANGLE MAIN 22 



24 C SI - SINC) MAIN 23 



25 C CO - COS(Z) MAIN 24 



26 C H - FUNCTION OF THE WAVE AMPLITUDE MAIN 25 



27 C CCG - PRODUCI OF THE WAVE CELERITY AND THE GROUP VELOCITY MAIN 26 



28 C D - TOTAL WAIER DEPTH RELATIVE TO SOME DATUM MAIN 2" 



29 C RKA - WAVE NUMBER DEFINED BY IHE DISPERSION RELATION MAIN 28 



30 C GRDK - GRADIENI OF IHE WAVE PHASE FUNCTION MAIN 29 



31 C XHUC - SCALE FACTOR RELATING REAL SPaCE X GRID DISTANCES MAIN 30 



32 C TO HAPPED SPACE X GRID DISTANCES AND DEFINED AI THE MAIN 31 



33 C GRID CENTER MAIN 32 



34 C XMUS - SCALE FACTOR RELATING REAL SPACE X GRID DISTANCES MAIN 33 



35 C TO MAPPED SPACE X GRID DISTANCES AND DEFINED AI IHE MAIN 34 



36 C GRID SIDES MAIN 35 



37 C YMUC - SCALE FACTOR RELATING REAL SPACE Y GRID DISTANCES MAIN 36 



38 C 10 MAPPED SPACE I GRID DISTANCES AND DEFINED AT IHE MAIN 3" 



39 C GRID CENTER MAIN 38 



40 C YMUS - SCALE FACIOR RELATING REAL SPACE Y GRID DISTANCES MAIN 39 



41 C TO MAPPED SPACE Y GRID DISTANCES AND DEFINED AI IHE MAIN 40 



42 C GRID SIDES MAIN 41 



43 C XX - REAL SPACE X GRID DISTANCES MEASURED FROM THE GRID MAIN 42 



44 C ORIGIN TO THE GRID CENTER MAIN -13 



45 C YY - REAL SPACE Y GRID DISTANCES MEASURED FROM IHE GRID MAIN 44 



46 C ORIGIN TO THE GRID CENTER MAIN 45 



47 C MAIN 46 



48 CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA MAIN 47 



49 C MAIN 48 



50 CAA DEFINITIONS OF INPUT DAIA 10 BE READ INTO IHE PROGRAM AA MAIN 49 



51 C MAIN 50 



52 C IIIILE - ARRAY CONTAINING THE APPLICATION TITLE (70 MAIN 51 



53 C CHARACTERS OR LESS) HAIN 52 



54 C M - NUMBER OF GRID CELLS IN IHE X DIRECTION MAIN 53 



55 C DX - GRID SHE IN THE X DIRECTION MAIN 54 



56 C N - NUMBER OF GRID CELLS IN THE Y DIRECTION MAIN 55 



57 C DY - GRID SIZE IN IHE Y DIRECTION MAIN 56 



58 C AANOTEAA G - GRAVITATIONAL CONSTANT WHICH DETERMINES THE UNITS OF HAIN 57 



F2 



