_L2_---_--_UMJ__ 



r FTVF nFGRFF OUTPUT LOOPS... 



TARLE(4)=TARLF(4)+0.001 



1_J__UL___. 



Un] o M_|_ONGrHK /5 

 L_=---l 



4"?i V-ITF OUTPUT TAPF JL » 1 9 » 



I.IPITF OUTPUT TtPF II. 65. TARI F ltl. AMONTH. IYFAR 



WRITE OUTPUT TAPE JLi 51. HEAD5 ( L AT N5 ) . HE AD5 ( LATS5 ) . AHEAD5 ( L ) . 

 1 AHEAD5-C.M.1. 



WR1TF OUTPUT TAPE JL. 23. (AHEAD5M). I=L. M) 



.AQZ2..DH.2.fiJh..A=LAlJi5j..LALS5.. 

 HO 245 1=1,2 



TTFg,T = Q 



ITT ( I )=KSFA( I, J) 



J.E-jU£.1.LIJl1_23l3.j^.3.1«23£L 



23 XTG7 1 I )=KSFATFMP( I »J)/IC1 ( I 1 



JLLC2.1JL1=JSJ-C2.LI_LZJLQjlQ 



GO TO 5^05 

 73? XTr?(I)=Q.^ 



!TFST=1 

 5005 IC3tn=JDEWt I,J1 



IF (103(11) 235,235.234 

 234 XIC4( I)=JDEWPT( I, J )/IC3(I ) 



x~i c~4 < i ) =Tx i C4 u ) - 3 2 6 . 6 1 / 1 8 . n 



GO TO 5006 



??<5 xTr4(I)=n,n 



_JJE__T_=_1 



Rn^A ir5< I )=kwimD( I »j) 



I£_JLK51JJ-l-23.7.i23J-t2.3J'- 



7^6 TG6( I )=KWIMniRX( T .J) /IC> ( I ) 

 Tr7in=KWTNOIRYl I .J)/IC5( T) 



GO TO 5007 

 ... 2-17„K.6JLI_L=il 



!07( I )-C 



ULESlal 



■5007 IC8( t )=KWINDV( I ,J) 

 IF (IC8(I>) 739,739,738 



?^o XIC<»( I )=KWIN0VFL( I ,J)/IC8 ( I ) 



GQ..XO-J anna. 



7^o xiro( n=o.n 

 JJLEAI_=1 



snop inot I1=JCL0( I .J) 



TF nriPIUI 741 .741 .740 



74 OLOUrX I )=JCL0U0( I,J)/IC10(I) 



CLOUDi_J_=CiO_lDiI_U.L_-___L 



GO TO 760 

 -2A___Cl_0U0±_J-=_-_D_ 



ITFST=1 

 76n rr7m =KR6BiT..n 



IP (ir?(!n 767. 762.761 

 — J7-6.J— BJiBIiHJ.lXs.iUi.iS.QH.l-LtJ.U-lCZ.lXX 



pa ROM! I )=RAR0M( T )/in.n 

 Ga_iOL.5ja.QSL 



767 barom( I ) = n.,ri 



ROOO TF irnilNTI T..M 1 501 1 .5011 .5010 



5010 n|FF(I.J)=nlFF( I, J) /COUNT ( I .J) 



__l_iO_-5_ll_- 



5011 DIFFI I .J)=0.0 



IIESIaI 



501? IF (XINTF(COUNT( I .J) 1+IC1 ( I ) ) 290.290,291 



60 



