1 |
heimbach |
1.7 |
C $Header: /u/gcmpack/MITgcm/pkg/exf/exf_bulkrhn.F,v 1.6 2007/04/16 23:27:20 jmc Exp $ |
2 |
jmc |
1.6 |
C $Name: $ |
3 |
heimbach |
1.1 |
|
4 |
edhill |
1.5 |
#include "EXF_OPTIONS.h" |
5 |
heimbach |
1.1 |
|
6 |
|
|
|
7 |
|
|
_RL function exf_BulkRhn( |
8 |
|
|
I stab |
9 |
|
|
& ) |
10 |
|
|
|
11 |
|
|
c ================================================================== |
12 |
|
|
c FUNCTION exf_BulkRhn |
13 |
|
|
c ================================================================== |
14 |
|
|
c |
15 |
|
|
c o Compute the Dalton number as a function of stability. |
16 |
|
|
c |
17 |
|
|
c started: Christian Eckert eckert@mit.edu 27-Aug-1999 |
18 |
|
|
c |
19 |
|
|
c changed: Christian Eckert eckert@mit.edu 14-Jan-2000 |
20 |
|
|
c |
21 |
|
|
c - Restructured the code in order to create a package |
22 |
|
|
c for the MITgcmUV. |
23 |
|
|
c |
24 |
|
|
c Patrick Heimbach heimbach@mit.edu 05-May-2000 |
25 |
|
|
c |
26 |
|
|
c - Included appropriate CPP options |
27 |
|
|
c ALLOW_BULKFORMULAE, ALLOW_ATM_TEMP |
28 |
|
|
c |
29 |
|
|
c ================================================================== |
30 |
|
|
c FUNCTION exf_BulkRhn |
31 |
|
|
c ================================================================== |
32 |
|
|
|
33 |
|
|
implicit none |
34 |
|
|
|
35 |
heimbach |
1.4 |
#if (defined (ALLOW_BULKFORMULAE)) |
36 |
heimbach |
1.1 |
|
37 |
|
|
c == global variables == |
38 |
|
|
|
39 |
|
|
#include "SIZE.h" |
40 |
jmc |
1.6 |
#include "EXF_CONSTANTS.h" |
41 |
heimbach |
1.1 |
|
42 |
|
|
c == function arguments == |
43 |
|
|
_RL stab |
44 |
|
|
|
45 |
|
|
c == end of interface == |
46 |
|
|
|
47 |
|
|
exf_BulkRhn = (exf_one - stab)*cstanton_1 + stab*cstanton_2 |
48 |
|
|
|
49 |
|
|
#else |
50 |
|
|
|
51 |
|
|
c == function arguments == |
52 |
|
|
_RL stab |
53 |
|
|
|
54 |
|
|
exf_BulkRhn = 0.0 |
55 |
|
|
|
56 |
|
|
#endif |
57 |
|
|
|
58 |
|
|
end |