nan 
aon 
onan 
NMNAMNRANDQAANAAGAAIE 
CiMMON ZLAKELVLZ KL (C24—9}2) 
COMMUN SSHUO/ DIR( 1592) ePER( 13902) DWH( 1502) 0X90 1506) oAMP(I S02) 
COMMON/Z3S/7230130e) 
DIMENSION 72LCA4e12) 9 4D(E3) eo ALIST(40) 
REAL LAMBUAGLAMBNAM 
MATA MD/3L Abe Se S00SL odo SL odio SH yp S10 3003105057 
PRINT 999 
999 FORMAT(IH19% DATA A5 READ BY SUBROUTINE INPUT%9/) 
READ SPACITAL PARAMETERS 
READ(G¥L01) CALISTCI) eo f31010) 
JO1 FLRMNA? (1008) 
READ( 5190) LAMBNACBeDOODKe BERMe Bwl eo BWDe SLOPE 
$90 FORMAY (8510.1) 
READ( 5100) MLINE 
PEINT 1OLeCALIST¢1) 0181910) 
PFINT 100°LAMHDAs beDOODXeHERMO AML »ANDe SLOPE o XL INE 
READ HISTURICAL SHUORFLINE DATA 
READ(Ge101) CALISTCI) 0181510) 
READ(50102) NtoNaeNDoNVoINYR 
1o2 FORMAT(5I10) 
READ( 50100) C(DATECJ oT) e131 9ND) oJato3) 
DL 1050 TBq_—he 
BEAD (50100) (SLC Ted) odsteND) 
$000 CONTINUE 
PFINT LOL CALIST(I) 9181010) 
PRINT 1000((DATE( Je) 0181910); Jai,3) 
OU 2000 1349N2 
2000 PRINT 1000(SL( Ted) eJ840ND) 
READ HISTORICAL LAKE LEVELS AND COMPUTE DLLJOT 
Fet,/(8%00) 
READ(C S101) CALISTCI) 0191010) 
OU 1001 IateNy 
READ( 50100) C2LC Ted) odatosa) 
$001 CONTINUE 
PRINT JOLOCALIST (I) 0381910) 
Du 20m! 1349NV 
IFBIOTNYR@{ 
2003 PRINT 99B01P o(ZLCled) pJeiol2) 
998 FURMAT(IL 7oSu012F10—e2) 
K20 
OC 10n2 13,eNV 
IvelNyReley 
LyYslvo48(lysu) 
Kr ko] 
ME CLoy I BCLLCT 2) edb (101) /MD(1) 
Mzts(y*Ly) 
MP seOre)em 
MLCLersCLLCTod elk (102). Km 
99 10ne J3$e11 
MLCLeseCdeCrodey edb Cred) )/MDCJ) 
IFC] ,tU,. NY) GOTU 1002 
MOCTeyeeCZUCLerodrece (tote sMb(42) 
1002 CONTINUE 
READ HIRECTIONSy PSXIUD8, WAVE HETGHTS FUR EACH MONTH 
DIRECTION CONVENTIONS 
CA & 1 6 2 OLEp WATER ANGLE LESS THAN 0 
. x + 1 DEEP WATER ANGLE GREATER THAN O 
° M 4 
e a + 
% x o 
oh + 
one 
MOCO ye OOK OK 
€9=364415926/180, 
RrAD(5e101) CALISTCL) 0181510) 
0) 1993 “B1913 
R-61(60100) DeH( Mol) oDWHE Moe) oDIR( MOL) eDIR(Me2) oPER(My1) OPER (Moe) 
DIF(M,1)Z01TR(Me 1) *C9 
70 
