rho_from_theta_unesco80

INTERFACE:

    subroutine rho_from_theta_unesco80(T,S,rho)
DESCRIPTION:

Here, the equation of state is calculated using the UNESCO 1980 code. USES:

    IMPLICIT NONE
INPUT PARAMETERS:
    REALTYPE, intent(in)      :: T   ! potential temperature degC
    REALTYPE, intent(in)      :: S   ! salinity PSU
OUTPUT PARAMETERS:
    REALTYPE, intent(out)     :: rho ! density [kg/m3]
REVISION HISTORY:
LOCAL VARIABLES:
    REALTYPE                  :: x,T1,T2,T3,T4,T5,S1,S2,S3