-COOP > B AA 1-P01 »CL I NE» I /l 0/20/30/0/20/30 .40. 18000 » .NANCY. 



-RINAPY.56. 



(RFLPCO M . 



-FORTRAN.0.1 .56. 



P?JlGf?AM_j^yCfW 



DIMENSION MFANSFA ( 72.24 ) . MEANER! 72 »24 ) ." ISEATEMP ( 10 1 120 ) • 

 1 LB_AROM_Q__, 1_2_ 9± ♦__]_« I_ND_I_R X_t 1_0»_1 2 _0 ) J__J_WI_Npj ?_Y '. 1 • 1 2 ) . I W I ND VE L ( 1 . 



? 12 p ). ISFAU0.120) . IBARI 10.120) , IWIND (10.120). 

 -> TWTNDVd P. 170) , IRFJT( 10,120) . IREJB(1C1 20 )» ITE'MPREJ ( 10.120) 



4 . IBARORFJI 10.120) . JCLOUD ( 2 . 24 ) » JDEWPT ( 2 .24 ) . ^CLO ( 2 » 24 j . 

 5 JDEW(2.24). JSFA(5.60). KSEA(2»24)> KWIND(2.24) »__K_W_INDVJJ2 .24) • 



6 KSEATFMP(?.24) . ~KW INDVEU 2 »24 ) . KW I ND I RX < 2~»24 ) » KWINDI RY< 2 t24 ) . 

 7 JSFAT EMP(5.60) » COUNT (2. 24). DIFF ( 2 »24_)_» KBAROMJ 2 .24 ) .K.BAR ( 2 .24 ) . 



8 XK2(24)» ALPHA (2~1 TV BLANK ( 10 U Esfl0.40), 



o ICK10). IRFJQO). XK1(?4). HEAT112.24). REFL ECT ( 12 >24 ) 



DIMENSION XREJ(30) ,XIC2( 10) » I BUFFER 1 ( 1 5 ) . 

 J X I C4 ( 2 ) . , I C7 ( 2 ) , I C8 ( 2 ) . _ X IC9 <_2 )_»_ 1C1.0J.7J » _CL0U_D(2Jj>_ 



2 QR(7). 01(2). OE(?l. OB ( 2 ) ♦ QH(?>. QT ( 7 ) . HEADI120). AHEAD (360) 

 3__j I C2_( J ). BAROM(IO). I C_3 ( 1 0.) .. I C_4 ( 1 ) ♦ I.C 5.( 1 ) » I C6 ( 1 ) » 



4 HEA~D2(60), AHEAD2I 180) • ~HEAD5<24) • AHEAD 5 ( 72 ) ."XNAME O") » TABLE ( 6 ) 



5 . AIPTF^P(2) 



COMMON ISEATEMP, IBAROM. IWINDIRX, IWINDIRY. 

 1 IWINDVEL. ISEA. I_ R _AR_._J_W I_ND , IWINDV. I RE JT »__I_REJB. ITEwPREJ. 



2 IBAROREJ, JCL0UD~. JDEWPT. JCLO. " JDEW. "JSEAt KSEA.'KWIND. 



— JL-JiW I N P_Y_»..5_SE.AJ_E_M_P_.__KW_I N_Dy.EL_.__ KWINDIRX. KW INDIRY t _JS_EATEMP_._ COUNT • 

 4 DIFF»lfBAROM»KBAR~ 



COMMON XREJ. XIC7> IBUFFERl. XIC4. 1C7, IC8, X1C9, IC10, CLOUD, 



1 QR, QI, QE, QB, OH, QT, HEAD, AHEAD, IC2, BAROM, IC3, IC4, IC5, 

 2. TC6 » HFAD2 . AHFAH2. HFAH5. AHF Ap5» • XNAMF » TA BLE. AIRTEMP. 



3 XK7, ALPHA, BLANK. ES» IC1. IREJ. XK1, HEAT. REFLECT. 

 A MFANSFA. MFANBAR 



C **»»*■»»*#»»***»*■******»***»*.*#**#** 



_£ TARI FS FORMATS.. . 



1" F0RMAT(12F6.2) 



_1J_-£0RMAI_L20_A4_1___. 



12 F0RMAT(l?F6.n) 



-+3~FORM*-T-H-AF-8-i-2->- 

 \u, FORMAT(12I6) 



\ s, pnPMAT( a ilO) 



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

 X JdEAD£.B__CABrL_FnBLMAJL«^.» ..... 



16 FORMATdl. Al. 8X» II. Al, 8X, 12, Al. 7X» 12, Al, 7X, 12. 8X» 



1 ASj.-1Xj._IAj„6Xi_-2JL1J .. 



r **««««******»**«******•***•*•********•* 



_C MPHAMFPIf FORMATS... 



17 F0RMATI6X, Al, A?, 2X, A2 , 4X, Al, 2A2, IX, A2, 4X ♦ A3. A2» 13X, 

 J J3.LA.lj_2A2.t-_LX±i__3A5J 



18 F0RMAT(4X, Al, P(^X, Al)) 



_C * *_iL ***__******._***_* *_*__*__*_ *_j!t_JL_^-Jt_?__?-_?__?__*_ * ***** *.*__* 

 C OUTPUT FORMATS, HEADINGS... 



19 FORMATMH1.22X.75HU.S. BUREAU OF COMMERCIAL FISHERIES SYNOPTIC 



1WFATHFR DATA — PACIFIC OCEAN /) 



20 FORMAT(1H0.29X.15HLATITUDF RANGE . A4»lH-t A4.12X»16HL0NGI TUDE RANGE 



1 .A4.1H-.A4/ 3(1H0 / ) ) 



2a__F0J?Mjii_LiJin^a^9HL0.NiIJ.UD.E_ji?JLj!JLGJ^4.t6.Xi../.9H..LATJ.TUDE_} 



27 F0RMAT(1H0,8X.9HL0NGITUDF,12X.4( A4. 16X) .A4/9H LATITUDE ) 

 7? FORMATMH0.SX.9HI ONGTTUDF.47X.A4.46X.A4 /9H LATITUDE \ 



C TFMPS ONLY... 

 ?«> FORMAT(?HQ A4^ 10X» lO(?X.F?.0»lXt 1H( t I2» 1H) » IX) ) 



C TFMP RFJFCTS... 

 2j6-J0Rl!UlJL2HQ-^4jL-±QAi-J.0J.lAjJi2^Q.iLliLtfJ2.jiliJLXj_F^p.tlXl I 



C BAROMETER REJFCTS... 



49 



