.
#======================================================================
# . I S O P Y C N A L _ T S . T H E T A 0
# doc: Mon Dec 19 09:43:02 2005
# dlm: Mon Dec 19 13:38:50 2005
# (c) 2005 A.M. Thurnherr
# uE-Info: 21 42 NIL 0 0 72 2 2 4 NIL ofnI
#======================================================================
# calculate in-situ temperature at surface given theta2
# HISTORY:
# Dec 19, 2005: - created
require "$ANTS/libEOS83.pl"; # load equation of state
$temperature_fname = 'theta0';
sub temperature($$)
{
my($salin,$potemp) = @_;
return &temp($salin,$potemp,$P{press},0);
}