205 5UMF2aSUMF2*F2R(I)»»2,*F2I(I)»»2, 



9o CONTINUE 



SUMF1»SUMF1*MEANI**2, 

 SUMf 2»5UMF2+ME»N2**2, 



210 289 FOKMAT(//,7X, [I ttlOX, tSlGMA(I) N11X. (FMD8QU) t) 



OU 99 I»1.N02 



C12(I)aFlR(I)*F2R(I)tFH(I)*F21(l) 



U12(I)«FiH(I)»F21(I)»F2R(I)»HKI) 



SICM*(I)»FLO*T(IJ»TWUPI/(FLO*T(M)*DELTT) 

 215 T«TwuPI/8IG M A(I) 



CALL «VLEN(DEPTHtT,XHH) 



XKxxkh/DEPTH 



IF(C12(I).LE.O. 000000001) GO TU 9? 



PO*(l./(XK*SJ)*ATAN(U12(I)/CI2(I)) 

 220 IF<A»8(PD).GT.1,0) 60 TU 91 



THETA(I)»-AC0S(PD)f8ETA 



GO TU 92 

 95 THET*(I)»0.0 



GU TU 92 

 225 91 THET»(I)»0. 00001 



FMUU50(I)«F1H(1)«*2.*FHCI)»*2. 



XKfclxXKH*B/OEPTH 



XRKSCU8H(XKB)/C08H(XKHJ 



F"0D5U(I)»FM0DSQ(I)/(XKP»»2.) 

 230 FMgoao(i)«FMOOSQ(I)*HATIOl 



8UUO«SOI)D*FMODSO(I) 



*RlTt(O.l05)I»SIGMACl).FMUD8U(I) 

 105 FOHMAT(JX,I5i5X,Ft8.*.7X|Fl2.6) 

 92 CONTINUE 

 235 FM008U(IJ«Flhf I)**a. + FU(I)**2. 



XKb«XKH«B/DEPTH 



x*P»CU8h(XkB)/C08H(XKH) 



FMUubU(I)«FM00SU(I)/(XKP**2.J 



FMOD5H(I)«FMUOSO(I)»RATI01 

 200 RN«0.5*(1.+2,»XKH/8INH(2 1 »XKHJJ 



CG(I)»dIGMA(I)»OiPTH»RN/XKH 



C(I)>CG(1)/RN 



HGa»(CG(I)»2.0«FMU08U(IJ*C08(TMETA(I))) 

 C $HU2«UN8HORE ENERCr FLUX 

 235 ShU2>SHG2+HG2 



8UMENaSUMEN*FHOOSU(I) 



1FU.GE.N8AIFR) GO TU 79 



GO TU 78 

 79 SHFREQ»8HFREU*FM0D8a(I) 

 250 78 CUNTINUE 



IMI.U.NLOK) GO TO 77 



GU TO 7h 



77 8LFREU*»tFREQ*FMOD|Q(I) 



7* CUNTINUE 



255 1MI.GE.NYFR) GO TO 999 



99 CUNTINUE 



999 CUNTINUE 



8HG2C9H02*2, 



WHITK6.351) 

 260 151 FORMAT (//, b X i [I IilIXi ISIGMAd) l.HXi (PCTC16X. ITHETA(I) [) 



Dii 48 I«liND2 



IF CI.GE.N8ALFR) GO TO nix 



PCT»FM008Q(I)/8UMEN 



IFCPCT.GE. 0.025) GO TU 49 

 2t>5 GU TU u« 



49 «RITt(«,t50)I|8IGMA(IJ,PCTfTHETA(I) 



50 FURMAT(3X.I5iJ(3XtF16,8)) 

 <i6 CONTINUE 



44 CONTINUE 



Figure 2. Listing of main program. — Continued 



17 



