7SEA SURFACF TEMPERATURES (DEGREES FAHRENHE I TJ AND _NUMBER__OF__OBSERV 

 8ATI0NS 77TJTi43HBY TWO-DEGRFF QUADRANGLES" FOR THE MONTH OF ~»A8> 



92H, .14, 1H. 40X,1 3HTABLES 3.001- F6.3/////) 



47 F0RMAT(45X,24HNUMRER OF OBSERVATIONS I 5 /45X .24HNUMBER OF REJECTIO 



INS I5M5X.24HSUMMARIZED OBSERVATIONS 15//////// 



2 42X.33H* PROGRAMMED BY. 7- MARVIN "w." CLINE // 



. 3_ 4J_X,__l_8H._PROC.ESSE_D_ BY.... 3A8) 



4P FORMAT) 14X. 2( 



1 MX, 39HQ(T) = Q(I) + Q(R) + Q(B) + Q(E) + Q(H) )< / 1 4X.2 ( 11X. 



2 F4.0. 3X. F4.0, 3X, F4.0, 3X, F4.0, 3X. F4.0. 3X» F4.C) ) 



50 FORMAT ( IX »85H SEA SURFACE TEMPERATURES (DEGREES CENTIGRADE)! .AIR._TE. 

 1MPERATURFS (DEGRFFS CENTIGRADE). //1X.84HDEW POINT TEMPERATURES (D 



2FKRFES CENTIGRA DE. BARO ME TRIC PRESSURES (MILLIBARS)* X- AND //1X» 



383HY-WIND VECTORS (KNOTS ) , "a've'RAGE Vl ND SPEEDS (KNOTS). CLOUD 

 4C0VER (TENTHS OF SKY / / IX , 76HCOVERED ) . AND HEAT BUDGET (CALORIES/C 



5ENTIMETER-SQUARED/DAY) . WITH NUMBER OF // IX . 57HOBSERVAT I ONS BY FI 



fLYEjrDi:CilEL-ilUADR-A.NJiL-E.S-.FP_R__IH_E_jMOMJH.OF __________ . I4.1H. . 



7 26X.13HTABLFS 4. "01- F6.3/1H1) 

 51 F ORMAT(1HO»29X .15HLATITUDE RANGE »A4t 1H-.A4»12X» 16HLQNGITUDE RANGE 

 1 ,A4,lH-,A<t/ /) 



CONSTANTS... 

 A~15-_C 



n=15. n 



J2Q_ 6? ...I. =lt 6. 



f,o TAn|_F( I ) = I 

 'K = 10 



JL = 20 

 |M_=3_o 



JJJJ=o 

 __-__--_=__ 



I"» = 10»*3 



14=10**4 



T S= 1 0**^ 



____________ 



I7=10#»7 



_L___2__?____. 



JQ = 1 n#»«? 



110=10**10 



111=10**11 



L______Q___I2 



lli=To**i3~ 

 c *♦♦#»**■»*#»***»****************< 



C RFAD IN PERM. TABLES... 



RFAD 10. XK1 . XK? 



R C AD 11. HFAO, AHEAD. HF* n 2» AHFAD2 

 RFAD 37» HFAD5. AHFAD5 



RFAD 12, HFAT. RFFLECT 



________13.__JE__ 



C ##**»»»»*♦»#»»»♦♦»**«****»*********** 



£ RTAD HFADFR CARD AND S^T IIP LIMITS... 



C PULL PRECEDING CARD REPLACE WITHOUT STATEMENT NUMBER 



6969 READ INPUT TA PE 10«16» LIMLATN. DIRN_t__L I MLAJS » D IRS » L I MLONGW • 



1 DIRW. LIMLONGE. DIRE. NO.AMONTH. IYEAR. MARKT, MARKB 



REA D INPUT TAPE 10. 33» XDATE.IDAY* JYEAR. XNAME 



C RFAD MONTHLY TABLES... 



RFAH INPUT TAPE 10.14. MFANSFA 



RFAD INPUT TAPE 10,15. MFANRAR 



lF--iJ_JllLAm-6-U4.DH0jLin.Qil.UilO.fi. 



1000 IF (DIRN-1HN) 1002.1001 ,1002 



.-4-0ill~LJ--_AIJ--A.Q-XJ--U-I-J.-4J- -— 



GO TO 1007' 



51 



