FV3 Bundle
gsw_mod_sp_coefficients.f90
Go to the documentation of this file.
1 !==========================================================================
3 !==========================================================================
4 !
5 !--------------------------------------------------------------------------
6 
8 
9 implicit none
10 
11 real (r8), parameter :: a0 = 0.0080_r8
12 real (r8), parameter :: a1 = -0.1692_r8
13 real (r8), parameter :: a2 = 25.3851_r8
14 real (r8), parameter :: a3 = 14.0941_r8
15 real (r8), parameter :: a4 = -7.0261_r8
16 real (r8), parameter :: a5 = 2.7081_r8
17 
18 real (r8), parameter :: b0 = 0.0005_r8
19 real (r8), parameter :: b1 = -0.0056_r8
20 real (r8), parameter :: b2 = -0.0066_r8
21 real (r8), parameter :: b3 = -0.0375_r8
22 real (r8), parameter :: b4 = 0.0636_r8
23 real (r8), parameter :: b5 = -0.0144_r8
24 
25 real (r8), parameter :: c0 = 0.6766097_r8
26 real (r8), parameter :: c1 = 2.00564e-2_r8
27 real (r8), parameter :: c2 = 1.104259e-4_r8
28 real (r8), parameter :: c3 = -6.9698e-7_r8
29 real (r8), parameter :: c4 = 1.0031e-9_r8
30 
31 real (r8), parameter :: d1 = 3.426e-2_r8
32 real (r8), parameter :: d2 = 4.464e-4_r8
33 real (r8), parameter :: d3 = 4.215e-1_r8
34 real (r8), parameter :: d4 = -3.107e-3_r8
35 
36 real (r8), parameter :: e1 = 2.070e-5_r8
37 real (r8), parameter :: e2 = -6.370e-10_r8
38 real (r8), parameter :: e3 = 3.989e-15_r8
39 
40 real (r8), parameter :: k = 0.0162_r8
41 
42 end module
43 
44 !--------------------------------------------------------------------------