2 ° ° IF (I D I R - 9 9 1 2 01, 103.103 

 TO 1 ! n I R = I b I R~- 5 6~~ 



TVFL=IVFL+lon 



?n 7 T r iI t ?=iniR*10 



V/_L= IVFL 



x^l imm y= iTTir 



IX = SINF(Xr)UMMY»0.0174)»VEL*(-l-.Q) 



I Y = COS F ( XDU MM" Y » . "o 1 7 4~) * V EL*1 - 1 . ) "" 

 KWINDIRX(MLONG.MLAT)=KWINDIRX(MLONG.MLAT)+IX 

 KWINDIRY(MLONG.MLAT) = KW I Nn I RY ( MLONG .ML AT ) ♦ I Y 



KWIND(ML0N G» MLAT)=KWIND(M L0NG»MLAT)+1 



IWINdIr~X(LONG»LAT )=IWINDIRX(LONG»LAT)+IX 



IWINDIRY(LONGtL AT)gIWINDIRY(LONG»LAT)+IY 



IWIMD(LONG,LAT ) = I W I NO < LONG, LAT > + 1 

 7^ IWINDVFL(LONG,LAT)=IWINDVFL(LONG,LAT)+IVEL 



H.'IM^V(LOMG,LAT) = TWINnV(LOMG»LAT) + l 



KW I NPVFL ( MLONG iMLATJLgK-WJ^PVFJ_JJ^lJ3NG iML AT 1+ IVE.L 



KWINDV(ML0NG,MLAT)=KWINDV(ML0NG,MLAT>+1 



_6Q_IQ.JLQ3. 



»*#»»»*♦♦»#■*»*♦*»*****»**»■**»■»#»*»»♦** 



START OF HFAT EQUATIONS AND OUTPUT SUBROUTINES 



C ONF DEGRFF OUTPUT (TFMPS ONLY) 



C N OTE... TWO REELS ARE REQUIRED FOR OUTPUT IF IT IS INDICATED ON THE 



C ~ HFADER CARD THAT REJECTS ARE DESIRED. 



204 I F _ ALPHA_(_7_0_ -5H#***» ) 5204 » 5 24 7 _»___2_0 4 



"~52 4 IF (~( T ABL Ell)- lT6 ) * 3 9 . O+TTABL E <2)-2.0)*57.0+T TAB L ~E ( 3 )"- 3 . ) * 3 V. + 



1 (TAPLF(4)-4.0)«71.0-A ) 5706,5205.5205 



«705 CALL CHANGE (JL,A) 



57106 IF ( (TABL E(5)-5.0)»39.0+(TABLE(6)-6. 0)*39. 0-B) 520.8t5_207> 5207 

 5707 CALL CHANGF (JM,R) 

 _5J._L8__M__LD_NJ___H._-9_ 



TARLEI 1 ) = TARLFU ) +0.001 



TARLF(5)=TAPLF(5)+O.OCl 



L1NF=0 

 AQ0Q_j!iRlT£_P,UJ_PUI-_I&P.EL-Jki..l2.t 



WRITE OUTPUT TAPE JL, 40, TABLE! 1), AMONTH. IYEAR 

 WR_LIJI.0UT.PUI. _t_J_E__JL_»__2C_____EAD___AIN 1J_»_ H_AD____A_TAlJ_t_ AHEA.D (M ) j, 



1 4HFAH(L0NGCHK) 

 WRTTF OUTPUT TAPF JL. 71. (AHEAD(I). I=M,LONGCHK) 



4nr>7 TF (MARKT) 70^,706,705 

 .-Jl!:ji_w?_LIf-nUJ-PlLI.-t4.P.F__J_M_i__19. 1 . 



WRITE OUTPUT TAPE JM, 41, TABLEI5), AMONTH, IYEAR 

 W RTTF OU TPUT TAPF J ^t 2Q» HFAD(LATN1>» H EAD(L ATS1)» AHEAD ( M ), 



1 AMFAri(LONGCHK) 

 WRTTF OUTPUT TAPF JM. 21, (AHEAD) I ), I=M,LONGCHK) 



?06 HO 714 J=LATN1, LATS1 

 _QO_.2J-2„IiLljLlO_ 



IC1 ( I ) = 1SFA( I ,J) 

 _LF._1JLCj_1J_LJ-_2j_0jl2J_Qjl2P_7 



? r, 7 T<-?( I ) = isfatfmP( 1 ,j) /IC1 ( I ) 



TF ( TC7( T )-TC?( I 1 /10»10-5) 708,709,709 



7"P XTC7I I ) = IC7( I ) /in 

 GD__T0_5____n 



7^9 XTC7( I) = ( IC7( I )+5) /in 

 J30„Tn__100_Q 



710 XTC7I I )=0.0 

 SOOO TF IMtPlTTl 7TT.717.7TT 



711 IRFJ( I*^-?)=ITFMPREJ< I »J)/I6 



IELEJ.LJ«3---lX=J_LIJIMP_RJlJ__L J LjJ---JJiFaiJL*3-r2_L*_-lA___iy-l3_ 



IRFJI I*3)=ITEMPREJ( I.J)-IREJ( 1*3-2)* 16 -IREJt 1*3-1 )* 13 

 XEJ£J-LJ-*.3^--2J-=iEEJ-i-I-*-3.=-2-l 



XRFJf 1*3-1 ) = IREJ( 1*3-1 ) 



^ 



