lAl__D£.01DfL-lfljL_3L5i_-Ai.eH&JL2J-l HEMP 



ITF^P=ITEmp/I6 

 IF (DOLT( ALPHA! 1 + 1 ) .2) ) 175.142,175 



14? DFCODF (8» 35. ALPHAII+11) IDIFF 



U1JJF^=IDI FT/16 



■ SIIP-ZFRO" ANO OTHER JUNK SUBROUTINE. 



___I_F___(_LO_NGCHK-1801 9550 . 9550 .9500 



9 50 IF tNO"-3~) "95~10»9~5"l07l43""~ 



951" IF (LAT-20) 9530 .9530 .9520 



9520 IF (LAT-101) 143.9530.9530 

 Jl53_0..JJL_XIJ.EaPr.5D_L.J.^3.»J.^A»9.54_0_ 



9540 ITEMP=50-ITEMP 

 G.O.T_0__14_3 



955 IF (NO-3)~ 9 560, 9 560", 80oi 

 956" TF MAT-?") 958" . 9580 , 9570 



957" IF (LAT-101) 8001 .9580, P5fl0 

 J25J10__jJL_jLIJLE&PrJ5£Ll-JioJHjL8ILGki9A9J2_ 



9591-1 IF (ITFMP-79) 9600.9600.9610 

 .-9_6_C0.-J-tEM-e=_50--rHEMP_ 



GO TO 143 



9610 TTFM P=TTFMP-1"0 



GO TO 147 



_aojll„IiL.XCJIlr3-l-^7-L0j.9.11£.i5.ZDJ2 



9700 IF (NO-12) 9730,9710.9730 



-J5Ii£ , --J£._±LAIrj=tr.L__97-2.QjL?J-2.Q.» i.73.0. 

 972" IF UTFMP-3") 143 _ , 147,147 

 973" TF (ITFMP-36 ) 143.147,147 



143 IF (IDIFF-50) 145,144,144 

 14_4__jj_EM.PAlJ_EMPi!J.DiiJLDJ_ F fjr50J.*l_Q./2. 



XDUMMY=IDIFF 



PJF_FJM.Lpj^G_»MJ_AJ_l=J}JFFJ_MJ_^^^ 



GO TO 146 



145 JTEMP=ITEMP»lP-IDIFF»10/2 



XOIIMMY=IOIFF 

 ...PJ_L F i!iLPJ^G_ t MJ.AJ_i=_DJ_FF_(_MJ.g_NGj_ML_AT^ r _X 



STATE^fTTt'T^Y'c'oNVERTS TEMP FROM C TO F . . . 



AAt..jyJE^PiLUlE}l'P*A3J2X/}. r l£ l A3.Z0 



GO" TO 15" 

 147 IF (IPIFF-50) 148.149,149 



148 JTEMP=( ITEMP-IDIFF)»10 



X.nUMMY.= I_QiEF_ 



0IFF(MLONG,MLAT)=DIFF(MLONG»MLAT)-XDUMMY/1.8 

 GO_TO..150 



149 JTEMP=( ITEMP+IDIF"F-50)"*10 

 XDIIMMY=IDTFF 



DTFF(MLONG.MLAT)=DIFF(MLONG.MLAT )+( XDUMMY-50,0) /1.8 



15_Q__cp_UMJ_MkQM.ilLAlX=^QyJlIJ-Mi.QiiGj L MkALL±_l*0. 



c compare with mean temp... 



!l=LAI-LAI/_LD.*l_ n _ 



IF (N) 103,151.152 

 T" N=10 



152 IFINK=MEANSEA< JLONG.MLAT) 



LiMJLI.= l£.lNJl/JLCilO 



TF (IFINK) 103,160.153 

 _113_Jf_.JLN_-3J__JJi4_U6_ljJ.62 



154 NN=3 



155 NNN=-1 



157 IF (MLAT-1) 103.161.158 



-i&3-jm=a 



NNN^l 

 -156— IE. (Mt .AT_-2.4J__1.5_a.iLlfajJ.P.3_ 



158 IF (MEANSEAt JLONG.MLAT+NNN ) ) 161.161.5158 



514 



