The UNESCO equation of state

INTERFACE:

    REALTYPE function unesco(S,T,p,UNPress)

DESCRIPTION:

Computes the in-situ density in (242) according to the UNESCO equation of state for sea water (see Fofonoff and Millard (1983)). The pressure dependence can be switched on (UNPress=.true.) or off (UNPress=.false.). S is salinity $S$ in psu, T is potential temperature $\theta$ in $^{\circ}$C (ITS-90), p is gauge pressure (absolute pressure - 10.1325 bar) and unesco is the in-situ density in kgm$^{-3}$. The check value is unesco(35,25,1000) = 1062.53817 .

USES:

    IMPLICIT NONE

INPUT PARAMETERS:

    REALTYPE, intent(in)                :: S,T,p
    LOGICAL, intent(in)                 :: UNPress

REVISION HISTORY:

    Original author(s): Hans Burchard & Karsten Bolding