Function PRESS(D,LAT) 'CALCULATON ASSUMES STD OCEAN: T = 0 DEG C; S = 35 (IPSS-78) ' Computes pressure given the depth at some latitude ' press(D,LAT) gives the pressure P (dbars) at a depth D (m) ' at some latitude LAT (degrees). ' ' This probably works best in mid-latitude oceans, if anywhere! ' ' Ref: Saunders, "Practical Conversion of Pressure to Depth", ' J. Phys. Oceanog., April 1981. ' ' Notes: RP (WHOI) 2/Dec/91 ' I copied this directly from the UNESCO algorithms. ' ' CHECK VALUE 1: PRESS = 7500.000 DBARS; FOR LAT=30 DEG., DEPTH=7321.444 M 'Define PI for converting Lat in degrees to radians PI = 4 * Atn(1) 'Calculate pressure from depth at a specific latitude LATR=abs(LAT*PI/180) X=sin(LATR) CL=5.92E-3+((X*X)*5.25E-3) PRESS=((1-CL)-sqr(((1-CL)^2)-(8.84E-6*D)))/4.42E-6 End Function