7 91 A T otfmp ( n =X ! C2( ! ) -0 [FF( I , J ) 



fin Tfi~?92~ 



?if A tptFmo( I ) -o.o 



79 7 KKi<l<: = KKk:K + x^AXOF(IC1<I),IC3<I>»!C5<I>,IC8(I>.ICl(JlI>.IC2(I>) 

 IF (ITEST) 5014,5014,5013 



"Vni i o>"Tl f=o . n 



- 01 1 " =0 _tp 



OF(I)=o.n 



0"tT)=n.o 



0H( I )=0.0 

 GO TO ?45 



5014 if <XMINOF( IO ( I ) .IC3< I ) .IC8( I ) .IC101 I H-5) 5ol3»5o~15 t5ol5 

 .^J^_XEXJr?j.lJ_+J_ t o. 



I =fXTC7(T )-X )»1".0 + 1.p 



M=XTC4( I )+l .0 

 JC=M=1 



N=(XIC4( T )-X)»1o.o+i .0 

 X=FS( L,K)- FS(N,M) 



QR( I )=( 1.14E-07)*(XIC2 ( I r+273.dl**A*l0.39-U.U50*EMN»M)"**U.5)* 

 1 ( 1 . 0-XK2( J)»CLOUD( I)»»2)+<4«56E-07)*(XIC2t I ) +273.0 ) ««3«D I FF( I .J) 



qo( I )=-0R( I ) 

 QT( T )= HFAT(N0,J)»( 1.0-X1C1 ( J)*CLOUD( I ) -Q.38*CL0uDt 1 )»»2) 



0R( I)=QI( I )*RFFLFCT(NO»J)*(~-1.0) 

 0F(Tl=? .»1»X Tr 9( T )*X»t-1 .0) 



7 4 3 0H( I )=-1 .*8*r>IFF( I , J)*XICQ< I ) 



76 5 nTiriifiiii )+op> r n-ns t t uo^i i i+qh( t i 



LINF=LINF+1 

 LF..lJ_I^.Er.6J..52&Aji2iL6jL9ni7- 



0017 TAPLE(4)=TAALF(4)+0.001 



J_I.!AE=1 



9(118 WRITF OUTPUT TAPF JL » 19. 

 WRTTF OUTPUT TAPF JL, 45. TARLE(4). AMONTH. IYEAR 



M=L0NGCHK/5 

 J_=M=d. 



WRITF OUTPUT TAPF JL. 51. HEAD5 ( LATN5 ) . HE AD5 ( L A I S5 ) . AHE AD5 ( L ) . 



J AU£AI151^J 



WOITF OUTPUT TAPF JL . 23. ( AHEAD5 ( I ) » I=L» M) 

 S746 WRTTF OUTPUT TAPF JL.30. HEAP5( J ) . i X IC2 1 L ) , I CH L ) ,L= 1 . 2 ) > 



1 (AIRTFMP(L). TCKL), L = 1.2). ( X IC4( L ) . I C3 ( L ) > L= 1 »2 ) » 

 ?(BAROM(L) ,TC7(L),L=1 ,2) , ( IC6( L) . IC5 (L) ,L=1>2) » I IC7I L ) » IC5 1 L ) » 



3 L=1.2).(XIC9(L).IC8(L),L=1.2)» ( CLOUD <-L) »IC101L).L=1»2) 

 J^RJ_LE_^yj_Py_T__TA_P_E_.JL.4.8_. (Ql 1L) ,QI ( L ) »QR \ L) ,QB( L ) .QElL) > 



] 0H(L)»L=1»2) 

 746 rOMTINU F 



c ♦ *»*»♦*#»*»#«♦**********#**********«*** 

 5747 IF 1 ALP HA ( 71 )-5H**»» *) 6969 ,248,6969 



r PULL PRFCFDING CARP RETURM FOLLOWING CARD 



(-5967 TF (A l PHA (71 )-5H»»»*») 747.748,247 



747 LOMfirHK , =LOMGrH*' + 10 

 TF M ONGCHK-I IMI ONGE )1 035 . 1 03 5 ♦ 248 



C BUFFER ERROR ROU TIN E 



7000 BACKSPACE JK 

 ICnUJiI=_lC_QUKI_-tl 



IF (ICOUNT-5) 7001 .7001 .7002 

 70Q1 RUFFFR TN l.X.Ol ( T PUFFFR I< 1 ) . I RUEFFR 1 ( 1 5 ) ) 



»#*»*»♦#» 



GO TO NOT, (6000,6002) 

 .JLQJl2-J3Ll£F£B._liJ„J^iKj.0X-_LiaUEEFji 1 _(.i.uJLBU£E£Bj-il5JLl. 



GO TO 7 nn l 

 -aOn3__5F4i(4-MD— JJC 



jtc = jk: + i 



61 



