1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
|
C-- SALT_PLUME parameters |
5 |
|
|
6 |
|
C find surface where the potential density (ref.lev=surface) is |
7 |
|
C larger than surface density plus SaltPlumeCriterion. Initially |
8 |
|
C use the default value 0.4 kg/m^3 of Duffy et al, 1999. |
9 |
|
_RL SaltPlumeCriterion |
10 |
|
COMMON /SALT_PLUME_PARAMS_R/ SaltPlumeCriterion |
11 |
|
|
12 |
|
C-- SALT_PLUME 2-dim. fields |
13 |
|
|
14 |
C SaltPlumeDepth :: depth of penetration of salt plumes |
C SaltPlumeDepth :: depth of penetration of salt plumes |
15 |
C rejected during sea ice growth |
C rejected during sea ice growth |
16 |
COMMON /DYNVARS_SALT_PLUME/ SaltPlumeDepth |
COMMON /DYNVARS_SALT_PLUME/ SaltPlumeDepth |