|
39
|
1 |
#======================================================================
|
|
|
2 |
# . I S O P Y C N A L _ T S . T H E T A 2
|
|
|
3 |
# doc: Mon Dec 19 09:43:02 2005
|
|
|
4 |
# dlm: Mon Dec 19 13:43:18 2005
|
|
|
5 |
# (c) 2005 A.M. Thurnherr
|
|
|
6 |
# uE-Info: 21 32 NIL 0 0 72 0 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 = 'theta2';
|
|
|
17 |
|
|
|
18 |
sub temperature($$)
|
|
|
19 |
{
|
|
|
20 |
my($salin,$potemp) = @_;
|
|
|
21 |
return &temp($salin,$potemp,$P{press},2000);
|
|
|
22 |
}
|