_J5.R£.S.S=J_P-R£SS/-_5 



8004 IF ( IPRESS-500) 184.103.1P5 

 184 TPRF.SfisTPRFSS + IPPOO 



GO TO 186 

 __La5__lP_B£Si=lER£S5±£D-0-0__. 



186 IFir'K=MFANPAR( JLONG.MLAT) 

 LL«LLI_=If_LNJC/10_1D_o 



TF (IFINK) 10?, 189. 6500 

 6500 N=LAT-LAT/10»10 



TF (N) 103, 7™. 711 



.ID.rL_M3.lG. 



701 IF (N-3) 702.6700.704 



.7J12_.M=-1 



NNN=-1 



GO TO 6501 



704 IF (N-8) 706.67^0.705 

 .7.05— M=-8 



MMN] = 1 



-GO.T_0__7P.3 



706 IF (N-6) "707,7^8.708 



707 NM=3 



NMN-1 

 GO TO 187 



7"8 NN = 8~ 



NNN—1 



GO TO 187 

 7^3 IF (MLAT-24) 187,6700,103 



6501 IF (MLAT-1) l n 3.6700,187 



6700 I MFAN=IF I NK-LIMIT*10000 



GO TO 188 

 187 TF <MFANPAR( JLONG»M .AT+ N NN) ) 6700 t6700»5187 



5187 IMFAN~=IFINK-LIMIT*10000-UFINK-LIMIT*10000-MEANBAR< JLON~G .MLAT + NNN ) 

 1 ^.VIFANqARtJI ONn. Ml. AT+NNN 1/10000*1 0000 ) »X APSF ( NN-N ) /5 . 



188 TF (XAPSFt IPRFSS-IMEAN)-LIMIT*10) 189,189,190 

 .li9..1ilfiilQWLL.Q^in J i-AJLijLlP.4RO^LLJlNjQikATaiLLPJiF.aS 



IBAR(L0NG,LAT)=IPAR(L0NG.LAT)+1 

 |^AiLQM_lML0J^G_tM^AT_!5_KB_ARJD^^^ 



KPAR (MLONG,"LAT)=KPAR(MLOMG.MLAT )+l 

 GO TO 193 



C RPJFCT ARRAY FILL... 



1.9.0„I5_-±yASl<L , 5J..lJ.90.,1.03_ 1 i_L9_Q 



1 19" 00 191 J=1 ,? 



lZ_JLI_R.EOP.J_L0_MGjLLAIJ.-J-L_J.2J>.iJL2JLil. , ?l_ 



191 CONTINIIF 

 IJ.I.I = „I„I .1,1+1 



GO TO 103 

 -_:i5.2-lH6ilQREXLlJ2Nnj.ULLl=J.BAR£Rj:JJLL0 



IREJB(L0NG,LAT)=IREJB(L0NG.LAT)+1 



LUJ.r_LJJJ+-l 



GO TO 103 



C WIND SUBROUTINE. ■• 



15.3— JJL_XDIU.J-LAJ_PHAX6X»ZIJ— 1113^.15.5. jl10J3 



195 DFCODF (8, 35, ALPHAI6)) IVEL 



4-*£E-_-=-i-UF4,V-T-6 



196 TF <OOLT( ALPHAI51 .?) ) 103,198.103 



198 nFCODE lfl» ~i5t ALPHA15)) 1 P I R 



iniR=IDIR/I6 



JX_jLIIlIR.l-J.£l3. i J.9i»±.99_ 



197 IVEL=0 

 G0-TO-2O.2 



199 IF (IDIR-51) 202.20D.20n 



56 



