*INTERFACE:*

REALTYPE function eos_alpha(S,T,p,g,rho_0)

Computes the thermal expansion coefficient defined by

where denotes the in-situ buoyancy. The computation is carried out by a finite difference approximation of (244), requiring two evaluations of the equation of state. Note, that comparing (244) with (243) it follows that

*USES:*

IMPLICIT NONE

REALTYPE,intent(in) :: S,T,p REALTYPE,optional,intent(in) :: g,rho_0

Original author(s): Lars Umlauf

Karsten Bolding 2012-01-24