5158 IMEANgIFINK-LIMIT»1 000-(IFIN K-LIMIT *1000-MEANSEA( JLO NG .MLAT+NNN )+ 

 1 MEANSEAULONG^MLAT+NNN")"7rob6»10od )*XABSF ( NN-N ) /5 



159 IF (XARSF(JTFMP-IMFAN)-LIMIT«10) 160,160,167 



160 I SF A TEMPI LONG, LAT ) = JTEMP+ I 5E A TEMP ( LONG tl AT ) 



ISEA(LONG .LAT)=ISEA(LONG»LAT L+.1 



JSEATEMP(KLONG,KLAT)=JSEATEMP(KLONG,KLAT)+JTEMP 



J lSE&.«.KL.QN.GjJiLATJ.r J IS£.6I.K^QRQj.KL.ALl+A 



KSFATEMP(MLONG,MLAT)=KSEATEMP(MLONG»MLAT )+< JTEMP-320 )* 100/180 



t^FflfMI ONfi.VI AT1±ICSFA(MI QMG.MI AT 1+1 



HO TO 170 



...±6±.JL^I.&n=l£l!ilL-Lmn*.lSlQ0. 



GO m 159 



..._L£i2_.LF..iJlrAl-_16.4jJ.6-LjJL6_l 



164 IF (N-6) 165, 166,166 

 1f>5 NN = ^> 



NMN=1 



GO TO 156 



1*66 NN = 8 

 N NN= -1 



GO TO 158 



RFJFCT ARRAY PILL... 



167 IF (JTFMP) 1 ii ,9167,9167 



_9_L&.7__LF--1-»1&RKJ_1__UA7j.1-13j.1.L6.J- 



1167 DO 168 J=1.3 

 IF tIREJT(LONG«L ATl!-J) 169«168»16B 



168 CONTINUE 



I.JJ.J = J.JJ Jt] 



GO TO 1"3 



169 ITEMPREJ( LONG* LAT l=I TEMPRFJ(LONG»LAT )+JTEM P/ 10»10««t (J-l)«31 



IREJTI LONG, LAT ) = IREJT ( LONG»'LAT 1 + 1 

 -■1J--IJJLJJ-.JJ+1. 



GO TO 103 

 r ************************************ 



C DFW POINT SUBROUTINE... 



170 IF t DOLT (ALPHA (1+2 1.2) ) 175»1?_1.» 175. 



171 DECODE (8, 35, ALPHAII+2)) IDEWPT 

 IDEWPT=IDEWPT/I5 



8002 IF ( IDFWPT-990)5170»103,in3 



517^ IF (ITEMP-36) 5171,5172,5172 



5171 IDEWPT=IDEWPT*180/100+320 



517 2 IF (XABS FI IDEWPT-J TEMP 1-20 ) 1 72*172*175 



172 JDEWPT ( MLONG»MLAT ) = JDEWPT ( MLOiMG »MLAT ) + IDEWPT 



JDEW(ML0NG*MLAT)=JDEW(ML0N G*MLAT)+1 



j- ************************************* 



C CL O UD CO V ER SUFRQUTINEtf 



1"T5 IF (DOLT( ALPHA(A) ,1 ) ) 181,177,181 



lI.7-X!EnOIlE-.lfl.»._35j.-ALP.bAL4LLJ- LCL.QUD— 



ICL0UD=ICL0UD/I7 

 ..BJ3£L3.__lF_iJ.a_011Dr.9.J„La.Oj.lJ-ajLlfi_L 



178 IF (DOLT( ALPHA(7) ,2) ) 181,800,181 

 800 DFCOnF (8. ?5. AI.PHA17) 1 I V I S, 



IVIS=IVIS/I6 

 IF (IVIS-90) 2000»2001»179 



179 IF (IVIS-93) 2001,2001,181 



.2-on.Q_.iF— ij.yis-.5j ^on.ij.2iiQj_iiJai 



2001 ICL0UD=8 

 1 flO . lc-1 Oliri t Ml ONG.MI ATl=.JrL0ur)(ML0NGtMLATl+l T CLOUD*! 00/8 ) 



JCLO(MLONG,MLAT) = JCLOt MLONG»MLAT )+l 



£ JL.JL_^-^_*_-*-.*-.*_Jt..*_Jt-A-it.JL-*-_#--*--*--ft.-*^^ 



C RAROMFTFR SUBROUTINE... 



— t5.}.__|.f__^JiOL-I-l-A-L42HA4-aj-^34-i— 103.*J,83.«J,Oi 



183 DECODE (8, 35, ALPHAI81) IPRESS 



55 



