INLET ASSUMING LEVEL IMET 



10 



SUBROUTINt LtVfL 

 THIS WOllTlNF COf^PDTFS W4TF» LEVELS THROUGHOUT 

 ARE LI^FaK f"*<riw BAY TO SFi 



t^h.i>i LiLEIvGTm.lINiLX>M)MX 



C0^Mu^/^UM5/^I,G,NI^lLETlICM(i),lsE(J).QH.L(7l7)•8C7.7)»D(7,7) . 

 1 A(7,7),NC7.7l.w(7,7).v(7.7).0(7f7).HS,HbiH(7.7)»lC.lStAMlNI(3)i 

 lB«IHI(i),LI^J|QX[J).ClINFLOiABAy,LtNGTH(J) 



on 20 JiltIC 



XLsn. 



DO to 1=1. IS 



XLexL^LCItJ) 



KXSLt I •.!)/?. 



Hfl,J)=H5*(HH.HS)/XL»XX 



00 11 lei. IS 



XX»(LtI.l.J)+L(I.J))/?.*XX 



HtI,J)aHS*(HB-HS)/XL»XX 



CONTINUE 



RFTiiHN 



END 



INLET 



tSJ 



INLET 



U5U 



Inlet 



UbS 



INLET 



«5() 



INLET 



157 



INLET 



«56 



INLET 



«b9 



INLET 



U60 



INLET 



161 



INLET 



<tt>2 



INLET 



tbi 



INLET 



UbU 



INLET 



U65 



INLET 



U&b 



INLET 



167 



INLET 



466 



INLET 



1164 



INLET 



170 



INLET 



171 



TA THE FIRST TIHE SE* IS CALLED 

 ■I.NPTS) 



SUHHdUTTNE SfAfMS.TTMF) 

 C THIS SURrtUUTIi^F nETE«"INES TmE FORCING SEA LEVEL EITHER FROM 

 C EQUAL-'ImE-SFRIES data (IF AVAILABLE) OR BY SINUSOOIaL FORCING, 



CUMMON /NIJM3/A0.T . AP.Bt TA 



ni"EN5I0N Y(52) 



NN«NN+ 1 



IF (tjfi.NF, 1 ) GO TO in 

 REAnfS.l) TDELiNf-Ts 



1 FURMAT(TliX,Fb,2,bX, TJ) 

 TOEL»TOFL»60, 



C HEAD Sf« LEVEL EcUAL TI^'E SErIEs 

 C IF NPTS IS GRFaTeR THAN 1 



IFClRTs.GT.n RFA0(S.2) (YCJ) 



2 FOl<MiT(BF lO.S) 

 IHnpTS.GT.I) WRiTEfb.J) ( Y ( J) . J» 1 , NPTS) 



3 F0HM4T(■^x.lfcF6.^) 

 hIsfPTS*! 

 n?=nRTs*2 



YfNnavtn 



y(''2) = vt2) 

 10 IF(MPTS.LT.l) GO TO 100 

 C INTERPOLATE IN TIME 

 IT=TI"E/T 

 XTeTIME-IT»T 



JixT/TDEL 

 JaJ*l 



HSBy(J)*(tYtJ+l).Y(J))»tXT-(J-l)*TDFL)/TUrL ) 

 RETURN 

 C OETEfiMI^F LFVfL IF SEA LEVEL FLUCTUATION IS SINUSOOIAL 

 100 HS»AO» SIN(2,»3,l«lS6»TlME/T) 

 RETURN 

 END 



INLET 



U72 



INLET 



U73 



INLET 



47« 



INLET 



175 



INLET 



176 



INLET 



177 



INLET 



(i78 



INLET 



uy<> 



INLET 



1180 



IMf T 



181 



INLET 



lioa 



INLET 



ua3 



INLET 



UHU 



IMET 



1.65 



INLET 



HBft 



INLET 



««7 



INLET 



U6B 



INLET 



1189 



INLET 



1190 



INLET 



a9i 



INLET 



1192 



INLET 



1193 



INLET 



191 



INLET 



U95 



iNLtT 



1196 



INLET 



U97 



INLET 



«9fl 



INLET 



U99 



INLET 



500 



INLET 



501 



INLET 



502 



INLET 



503 



40 



