1 #======================================================================

     2 #                    . I S O P Y C N A L _ T S . T H E T A 0 

     3 #                    doc: Mon Dec 19 09:43:02 2005

     4 #                    dlm: Mon Dec 19 13:38:50 2005

     5 #                    (c) 2005 A.M. Thurnherr

     6 #                    uE-Info: 21 42 NIL 0 0 72 2 2 4 NIL ofnI

     7 #======================================================================

     8 

     9 # calculate in-situ temperature at surface given theta2

    10 

    11 # HISTORY:

    12 #	Dec 19, 2005: - created

    13 

    14 require "$ANTS/libEOS83.pl";				# load equation of state

    15 

    16 $temperature_fname = 'theta0';

    17 

    18 sub temperature($$)

    19 {

    20 	my($salin,$potemp) = @_;

    21 	return &temp($salin,$potemp,$P{press},0);

    22 }