Loading [MathJax]/extensions/tex2jax.js
FV3 Bundle
Main Page
Related Pages
Modules
+
Namespaces
Namespace List
+
Namespace Members
+
All
_
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
+
Functions
_
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
+
Variables
_
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
+
Typedefs
f
+
Classes
Class List
Class Index
Class Hierarchy
+
Class Members
+
All
_
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
~
+
Functions
_
a
b
c
d
e
f
g
h
i
j
l
m
n
o
p
q
r
s
t
u
v
w
x
z
~
+
Variables
_
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
+
Typedefs
a
b
c
d
e
f
g
h
i
j
l
m
o
p
r
s
t
v
+
Files
File List
+
File Members
+
All
!
$
_
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
z
+
Functions
!
_
a
b
c
d
e
f
g
h
i
j
l
m
n
o
p
q
r
s
t
u
v
w
x
z
+
Variables
!
$
a
b
c
d
e
f
g
i
j
k
l
m
n
o
p
r
s
t
u
w
Typedefs
+
Macros
_
a
b
c
d
e
f
h
i
l
m
n
o
p
q
r
s
t
u
•
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Macros
Modules
Pages
gsw_kappa_ice.f90
Go to the documentation of this file.
1
!==========================================================================
2
elemental function
gsw_kappa_ice
(t, p)
3
!==========================================================================
4
!
5
! Calculates the isentropic compressibility of ice.
6
!
7
! t = in-situ temperature (ITS-90) [ deg C ]
8
! p = sea pressure [ dbar ]
9
! ( i.e. absolute pressure - 10.1325 dbar )
10
!
11
! kappa_ice = isentropic compressibility [ 1/Pa ]
12
! Note. The output units are 1/Pa not 1/dbar.
13
!--------------------------------------------------------------------------
14
15
use
gsw_mod_toolbox
,
only
:
gsw_gibbs_ice
16
17
use
gsw_mod_kinds
18
19
implicit none
20
21
real (r8)
,
intent(in)
:: t, p
22
23
real (r8)
::
gsw_kappa_ice
24
25
real (r8)
:: gi_tp, gi_tt
26
27
gi_tt =
gsw_gibbs_ice
(2,0,t,p)
28
gi_tp =
gsw_gibbs_ice
(1,1,t,p)
29
30
gsw_kappa_ice
= (gi_tp*gi_tp - gi_tt*
gsw_gibbs_ice
(0,2,t,p))/ &
31
(
gsw_gibbs_ice
(0,1,t,p)*gi_tt)
32
33
return
34
end function
35
36
!--------------------------------------------------------------------------
gsw_kappa_ice
elemental real(r8) function gsw_kappa_ice(t, p)
Definition:
gsw_kappa_ice.f90:3
gsw_mod_toolbox
Definition:
gsw_mod_toolbox.f90:1
gsw_mod_toolbox::gsw_kappa_ice
Definition:
gsw_mod_toolbox.f90:734
gsw_mod_toolbox::gsw_gibbs_ice
Definition:
gsw_mod_toolbox.f90:633
gsw_mod_kinds
Definition:
gsw_mod_kinds.f90:2
src
fv3-bundle
gsw
toolbox
gsw_kappa_ice.f90
Generated on Tue Nov 6 2018 11:38:37 for FV3 Bundle by
1.8.14