gsw_entropy_from_pt.f90

Go to the documentation of this file.

!==========================================================================
elemental function gsw_entropy_from_pt (sa, pt)
!==========================================================================
!
!  Calculates specific entropy of seawater. 
!
!  SA  =  Absolute Salinity                                        [ g/kg ]
!  pt  =  potential temperature (ITS-90)                          [ deg C ]
!
!  entropy  =  specific entropy                                [ J/(kg*K) ]
!--------------------------------------------------------------------------

use gsw_mod_toolbox, only : gsw_gibbs

use gsw_mod_kinds

implicit none

real (r8), intent(in) :: sa, pt

real (r8) :: gsw_entropy_from_pt

integer, parameter :: n0 = 0 
integer, parameter :: n1 = 1

real (r8), parameter :: pr0 = 0.0_r8

gsw_entropy_from_pt = -gsw_gibbs(n0,n1,n0,sa,pt,pr0)

return
end function

!--------------------------------------------------------------------------