function p = press(z)

%function p = press(z)

%C-------------------------------------------------------------------------------

%C

%C                            Function = PRESS

%C

%C     This computes pressure in decibars, given the depth in meters.           *

%C     Formula is from the GEOSECS operation group (See computer routine

%C     listings in the El Nino Watch Data Reports).

%C

%C-------------------------------------------------------------------------------

C1=  2.398599584e05;

C2=  5.753279964e10;

C3=  4.833657881e05;

ARG = C2 -  C3 * z;

p = C1 - sqrt( ARG );