next up previous contents
Next: rho_from_theta Up: Fortran: Module Interface eqstate Previous: do_eqstate   Contents

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