line must be the first in any update file like RCPUPDT. The next two lines, 



*D PARAM.3 

 and 



PARAMETER (IQ=75, JQ=50) 



delete the line identified by "PARAM.3" everywhere in the program and replace 

 it with the new PARAMETER statement. This action changes the limits on all 

 arrays within the program to match the number of cells in the grid mesh. The 

 quantity IQ must be set greater than or equal to the number of rows, M , 

 and JQ must be greater than or equal to the number of columns, N . These 

 first three "Update" lines are the only ones required for model applications 

 run on the CYBER 865 machine. For jobs sent to the CYBER 205, two additional 

 lines must be included, 



*D MAIN. 2 



PROGRAM RCPWAVE ( INPUT , OUTPUT , TAPE7=TAPE7 , TAPE6=TAPE6 , TAPE8=TAPE8 

 *,TAPE3=TAPE3) 



These are required because the PROGRAM statement format is different for each 

 machine's compiler. They are shown also in Figure 10. 



ID MODS 

 D PARAM.3 



PARAMETER <IQ=75,JQ=50) 

 D DEPTH.23,DEPTH.26 

 DO 14 J=1,N 



READ (8, 60) (D( I, J), 1=1, M) 

 DO 315 1=1, M 

 D(I,J)=-D(I,J) 

 315 CONTINUE 

 60 FORMAT (5X/U5F8. 2)) 

 14 CONTINUE 

 D MAIN. 203 



DMULT=10.0 

 D MAIN.2 



PROGRAM RCPWAVE ( INPUT, OUTPUT, TAPE7=TAPE7, TAPE6=TAPE6, TAPEB=TAPE8 

 *,TAPE3=TAPE3) 



Figure 10. Sample "Update" file for 

 a wave model application 



87. The "Update" modification, 



*D DEPTH. 23, DEPTH. 26 

 DO 14 J=1,N 



READ(8,60) (D(I,J),I=M) 

 DO 315 1=1, M 



50 



