REALTYPE function unesco(S,T,p,UNPress)DESCRIPTION:
Computes the in-situ density in (244) 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 in psu, T is potential temperature in C (ITS-90), p is gauge pressure (absolute pressure - 10.1325 bar) and unesco is the in-situ density in kgm. The check value is unesco(35,25,1000) = 1062.53817 .
IMPLICIT NONEINPUT PARAMETERS:
REALTYPE, intent(in) :: S,T,p LOGICAL, intent(in) :: UNPressREVISION HISTORY:
Original author(s): Hans Burchard & Karsten Bolding