oan 
aan 
200 
3000 
too0 
lool 
MLGEXS (HONG 2) 
GOTU 44 
X¥EMQe“UN) S24 
FaCTS(KMN@SLATE( SSL) ISXM 
GUTG 45 
MPEMI(PON) O24 
FACTSnATE(S9L)/x™ 
XLOSFACTEXS( HON) 2) 
CTBRACTEXS(MONGUY 
OTMATSFACTOXS(4ONG 3) 
DLLOTEXLCIVEAROMAN) sed, 
NOLLHATELLEOTeDTy(b+b0) 
PRINT Jug 
FURMAT(C IHL» /) 
PRINT 150eLeoTVYEAR MONO TILIMeD HAT ,OLLHAT ODT 
FURMAT(® FOR PARAMETEKS®o STO0® TTL IMPDTHATODLLHATeDIa¢eJO0 3EI1,3) 
PRINT 151 0MON¢ (25 (MUNOK) oKE1 96) 
FURMAT(/e® LISTING OF ARRAY KS POR MUNTH# oI 5S060F10,3) 
OxeeNULLHATsSL OPE 
OO 2991 TetelTlLI™ 
TALL SULVEQC VO VY oXoVXoZLoXLVeDOLLHaToOTHAT es te AMP( MONG 1) oDT) 
CALL SULYEQCMoVKeVoVVYoZ2oXLVoDLLHaToDTHATe 20 AMP( MONO?) 0 DT) 
CONTINUE 
PRINT SHOKELINE atl END UF MONTH 
JVEARSTYI®{2eLLeaeIMi 
JMONZ VE AR@L2¢(JyEAR/I2) 64 
JVEARZJYEAR/I2 
WRITE (60200) JYEARe JMON 
FURMAT(C//0% FOR YEARS eT90% MONTHS, FSe% LISTING UF FINAL SHORELINE 
1%) 
DO 3090 I34oN2 
RELCT)SVCI)/E 
OO 30ot 13198 
JLS(Teol) 91561 
J2zsiel4 
IF(T (60, 8) JesqiS 
WRITE( 60201) (ICU) o JO eJ2) 
FORMAT(///98 X 991518) 
WRITE( 60202) (RSLC J) odadioJ2) 
FORMAT(s»® ¥ So15F B01) 
CONTINUE 
CONTINUE 
CONTINUE 
RETURN 
ENO 
SUBROUTINE SOLVEQ(VVeVeXXo SLANG o LyeXLGoOLLHAT oDT AT 2100 AMP_DT) 
SULVE FOR ARRAY yX USING IMPLICIT SCHEME FUR TRANSPORT QNEW 
CUNMONS BDATAS LAMBDAH DOD oRERMeNI oN2e BML eBWDODXHAT  SLUPE OC ALINE 
CUKMONSUTERES KeMeCPo1IS) eAaCeoLI4) 
CIMENSTUN MXCLISDOVYCALD) oVC115) oSLANGCIIS) eVYOLUCI15) ovV6119) 
DIME SIUM POLLS) oWCLIS)oL (115) 910415) eNC113) oGNEW( 11S) pQOLN( 115) 
Re AL 
BGA SCOANG 
Eat} o/b 8 
NIM] Bry leo] 
NLP Bylo. 
NIPQ2an1¢2 
N24 sr eol 
D) $000 T8yeN2 
VILOCPIBYYCT) 
CaLCULATE VLD & (VOLO) BASED UN OLD SHORELINE AND FRESENT DIRECTION 
DU 1001 ITFt—eN2 
V¥CTIsVCI) 
AUGaaAal(IOcl)ev( Ty 
BaAnGeahGeZy 
QILOCTISAMPETOS( ANG) SSINC BANG) XK H2CT Del) 
GILDONIDECTOSL) #QULDONI MY) 
CILUCNIP1) 3 £2810) *8OLD(NIP2) 
auGebal lot) 
BANGTanGeZy 
QLT4isa“P COS (ang) *SIN(C BANG) #XKDA(TD01) 
67 
