INTERFACE:
subroutine rho_from_theta_unesco80(T,S,rho)DESCRIPTION:
Here, the equation of state is calculated using the UNESCO 1980 code. USES:
IMPLICIT NONEINPUT PARAMETERS:
REALTYPE, intent(in) :: T ! potential temperature degC REALTYPE, intent(in) :: S ! salinity PSUOUTPUT PARAMETERS:
REALTYPE, intent(out) :: rho ! density [kg/m3]REVISION HISTORY:
LOCAL VARIABLES:
REALTYPE :: x,T1,T2,T3,T4,T5,S1,S2,S3