UTILIZES OUTPUT FROM PROGRAM 'CARDS' TO CALCULATE DYNAMIC HEIGHTS, 

 GEOSTROPHIC VELOCITIES. TRANSPORTS. ANU DELTA VALUES INTERPOLATED AT 

 STANDARD DEPTHS. AS WELL AS POTENTIAL UElTA, AND SIGMA-T AT ObSERVED 

 DEPTHS. CAN ALSO YIELD PUNCHED OUTPUT FOR INPUT TO A PLOTTER ROUTINE. 

 SUBROUTINES NEEDED— SPEWIT. VEL, MSTRCD, VTR. PDEN, EXTIME. SIGMA, 

 LAINT. DYNHT. HOLES. 



ROBERT K. SEXTON 



NARRAGANSETT MARINE LABORATORY 

 UNIVERSITY OF RHODE ISLAND 

 KINGSTON. RHODE ISLAND 02881 



INTEST LANGUAGE - FORTRAN IV-E 



COMPUTER - IBM 360/50 



GIVEN SERIAL OBSERVATIONS OF TEMPERATURE, SALINITY AND DEPTH, IT COM- 

 PUTES DELTA AT OBSERVED DEPTHS AND CREATES AN ARRAY 'ZSTD' OF STANDARD 

 DEPTHS EVERY 20 M TO 100 M, EVERY 100 M TO 800 M, AND EVERY 200 M 

 THEREAFTER, AND A CORRESPONDING ARRAY • SUMDEl • CONTAINING A NUMERICAL 

 INTEGRATION OF DELTA WITH DEPTH, IN DYNAMIC CENTIMETERS. 

 SUBROUTINES — SIGMAD, DELINT. 



ROBERT K. SEXTON 



NARRAGANSETT MARINE LABORATORY 

 UNIVERSITY OF RHODE ISLAND 

 KINGSTON, RHODE ISLAND 02881 



AZIZ LANGUAGE - FORTRAN IV-E 



COMPUTER - IBM 360/50 



SUBROUTINE COMPUTES THERMOMETRIC DEPTH FROM CORRECTED PROTECTED AND 

 UNPROTECTED THERMOMETER READINGS. AN ESTIMATE OF DEPTH IS OBTAINED BY 

 TAKING 100 TIMES THE DIFFERENCE IN UNPROTECTED AND PROTECTED THERMOM- 

 ETER READINGS. THIS ESTIMATE IS USED TO CALCULATE A FIRST VALUE FOR 

 MEAN DENSITY, RHO. USING AN EQUATION FROM A POLYNOMIAL FIT OF WUST'S 

 DATA OF MEAN DENSITY WITH DEPTH IN THE NORTH ATLANTIC ('THERMOMETRIC 

 MEASUREMENT OF DEPTH' BY 6. WUST, IN THE HYDROGRAPHIC REVIEW lO, 1933, 

 TABLE 1, PAGE 3^). THIS DENSITY IS USED IN THE EXPRESSION (METERS) 

 EQUALS (TU-TW/Q * RHO) TO CALCULATE DEPTH. THIS DEPTH IS USED TO RE- 

 CALCULATE THE MEAN DENSITY, RHO, AND THE lAST TWO STEPS ITERATED UNTIL 

 SUCCESSIVE CALCULATIONS AGREE TO WITHIN 0.25 METERS. 



ROBERT K. SEXTON 



NARRAGANSETT MARINE LABORATORY 

 UNIVERSITY OF RHODE ISLAND 

 KINGSTON, RHODE ISLAND 02881 



LINT LANGUAGE - FORTRAN IV-E 



COMPUTER - IBM 360/50 



SUBROUTINE PROVIDES LINEAR INTERPOLATION OF AN X VALUE FOR THE GIVEN Y 

 VALUE. IF Y IS OUTSIDE THE LIMITS OF THE Y AXIS, THE CORRESPONDING X 

 END POINT VALUE IS USED, AND THE MESSAGE INDICATOR IS SET TO SHOW 

 THI S. 



ROBERT K. SEXTON 



NARRAGANSETT MARINE LABORATORY 

 UNIVERSITY OF RHODE ISLAND 

 KINGSTON, RHODE ISLAND 02881 



DELINT LANGUAGE - FORTRAN IV-E 



COMPUTER - IBM 360/50 



GIVEN OBSERVED DEPTH, TEMPERATURE AND SALINITY, STANDARD DEPTHS ARE 

 GENERATED AND PLACED IN THE ARRAY BETWEEN THE OBSERVED DEPTHS. IT 

 CALCULATES DELTA FOR OBSERVED DEPTHS AND INTERPOLATES DELTAS FqR 



PAGE 088 



