C SHIP. SI, S2 - SHIP NAME 



C CRUISE - CRUISE NUMBER 



C IMONTh / IOAY / IYEAH - DATE 



C STANO - STAlION NUMBER 



C LATO - LATITUDE DEGREES 



C ALATM - LATITUDE MINUTES 



C LONO - LONGITUDE DEGREES 



C ALONM - LONGITUDE MINUTES 



C FWMR - FATHOM WHEEL MAXIMUM READING* FATHOMS 



C WIREAN - WlHE ANGLE. DEGREES 



C NOFBOT - NUMBER OF BOTTLES IN CAST 



C HIRED - WIRE DEPTH, METERS 



C FwREAO - FATHOM WHEEL READING FOR RESPECTIVE BOTTLES 



C TMAIN - UNCORRECTED MAIN THERMOMETER READING. DEGREES C 



C TAUX - AUXILIARY THERMOMETER READING. DEGREES C 



C CAUXT - CORRECTION FOR AUXILIARY THERMOMETER 



C VO - VOLUME OF MERCURY BELOW ZERO DEGREE MARK, DEG. CELSIUS 



C TIC - INDEX CORRECTION 



C K=610u » I/COEFFICIENT OF THERMAL EXPANSION (CONSTANT) 



C - PRESSURE COEFFICIENT FOR UNPROTECTED THERMOMETER 



C t - TMERMOMtTRlC DEPTH, METERS 



C RHO - DENSITY (EQUATION DERIVED FROM DATA FOR THE EASTERN NORTH 



C PACIFIC PUBLISHED 8Y THE HYDROGRAPHIC OFFICE) 



1 READ 1 00 » SHIP, SI. S2.CRUISE.IM0NTH, IDA Y.I YEAR. ST ANO.LATD. ALATM. 

 1LOND. ALONM 



100 FORMAT (3A4.F8.1.5X.I2»I3»I3.F8.1.5X,I4,F6.2.5X.I4.F6.2) 

 READ 115. FwmR, WIREAN. NOFBOT 



115 FORMATU0X.2F8.2.I4) 

 PUNCH 101.SIANO 



101 FORMAT (20X.19H*»«« STATION NUMBER.F6. 1 .5H *••»./> 

 PUNCH 116.LATD.ALATM.L0ND. ALONM 



1)6 FORMAT (lSX.bHLATIIUDE.U. F6. 2. 2H N, 10X.9HLONGITUDE . I4.F6.2. 2H W) 

 PUNCH 1 02. SHIP. SI, S2» CRUISE .IMONTH. IDAY. I YEAR 



102 F0RMAT(1X,6HSHIP -,3A4 , 1 OX, 10HCRUISE B -,F8. 1 , 10X.6HDATE -, 

 113.13. 13) 



PUNCH 103 

 PUNCH 104 

 PUNCH 105 



103 FORMA! (lX.luHWlRE DEPTH, 8X, 4HTRUE. 7X, 12HTHERMOMETRIC.6X .5HDEPTH, 

 17X,8HACCEPTED) 



10« FORMAI (2X,8H(METERS) ,5X, 1 1HTEMPERATURE.7X .5HDEPTH.8X. 



U0HOIFFERENCE.5X.5HDEPTH) 

 105 FORMAT (19X, JH(C> » 1 0X.8H (METERS) . 7X »8H (METERS) .5X.BH (METERS) ) 



WlREDalOO. 



WIREAN=3.U16*wIREAN/180. 



Z=100.»COSF(WIREAN) 



DIFF=«IRED-Z 



PUNCH 109. WIRED. Z.DIFF 

 109 FORMAT (F9.2»22X,F8.2»6X.F8.2> 



DO 10 I«"1.NUFB0T 

 C COMPUTE CORRECTED PROTECTED THERMOMETER READING 



READ 106.FwrEaD,TmAIN,TIC.TAUX,CAUXT.VO 

 lf>6 F0RMAT(6X,5F8.2»F8.1> 



TAUXsTAUX+CAUXT 



WIRED=1.828b»(FwMR-FwREAD)*0.005 



C=(TMAlN*VO)*(TMAIN-TAUX)/ (6100.-1 00.) 



Twl ■ TMAIN*C*TIC 



READ 1 08. IMA IN. TIC. TAUX. CAUXT. VO.Q 



IF(Q)3.2.3 

 3 Tw»TWi 



GO TO 4 



2 TAUX=TAUX*CAUXT 

 C»(TMaIN*VO)*(TMAIN-TAUX)/(6100.-100.) 

 Tw2 * TMAIN+C+TIC 

 Tw*(Twl*TW2)/2. 



90 



