FV3 Bundle
gsw_sigma1.f90
Go to the documentation of this file.
1 !==========================================================================
2 elemental function gsw_sigma1 (sa, ct)
3 !==========================================================================
4 !
5 ! Calculates potential density anomaly with reference pressure of 1000 dbar,
6 ! this being this particular potential density minus 1000 kg/m^3. This
7 ! function has inputs of Absolute Salinity and Conservative Temperature.
8 !
9 ! sa : Absolute Salinity [g/kg]
10 ! ct : Conservative Temperature [deg C]
11 !
12 ! gsw_sigma1 : potential density anomaly with reference pressure of 1000
13 !--------------------------------------------------------------------------
14 
15 use gsw_mod_toolbox, only : gsw_rho
16 
17 use gsw_mod_kinds
18 
19 implicit none
20 
21 real (r8), intent(in) :: sa, ct
22 
23 real (r8) :: gsw_sigma1
24 
25 gsw_sigma1 = gsw_rho(sa,ct,1e3_r8) - 1e3_r8
26 
27 return
28 end function
29 
30 !--------------------------------------------------------------------------
elemental real(r8) function gsw_sigma1(sa, ct)
Definition: gsw_sigma1.f90:3