*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 (246), requiring two evaluations of the equation of state. Note, that comparing (246) with (245) 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-12-28