-
Notifications
You must be signed in to change notification settings - Fork 0
/
gsw_Abs_Pressure_from_p.m
executable file
·43 lines (38 loc) · 1.34 KB
/
gsw_Abs_Pressure_from_p.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
function Absolute_Pressure = gsw_Abs_Pressure_from_p(p)
% gsw_Abs_Pressure_from_p Absolute Pressure
%==========================================================================
%
% USAGE:
% Absolute_Pressure = gsw_Abs_Pressure_from_p(p)
%
% DESCRIPTION:
% Calculates Absolute Pressure from sea pressure. Note that Absolute
% Pressure is in Pa NOT dbar.
%
% INPUT:
% p = sea pressure [ dbar ]
%
% OUTPUT:
% Absolute_Pressure = Absolute Pressure [ Pa ]
%
% AUTHOR:
% Trevor McDougall and Paul Barker [ [email protected] ]
%
% VERSION NUMBER: 3.05 (27th January 2015)
%
% REFERENCES:
% IOC, SCOR and IAPSO, 2010: The international thermodynamic equation of
% seawater - 2010: Calculation and use of thermodynamic properties.
% Intergovernmental Oceanographic Commission, Manuals and Guides No. 56,
% UNESCO (English), 196 pp. Available from http://www.TEOS-10.org.
% See Eqn. (2.2.1) of this TEOS-10 Manual.
%
% The software is available from http://www.TEOS-10.org
%
%==========================================================================
if ~(nargin == 1)
error('gsw_Abs_Pressure_from_p: Requires one input')
end
db2Pa = 1e4;
Absolute_Pressure = p*db2Pa + gsw_P0;
end