1 |
dimitri |
1.3 |
C $Header: /u/gcmpack/MITgcm/pkg/salt_plume/SALT_PLUME.h,v 1.2 2007/11/28 09:26:16 dimitri Exp $ |
2 |
dimitri |
1.1 |
C $Name: $ |
3 |
|
|
|
4 |
dimitri |
1.3 |
#ifdef ALLOW_SALT_PLUME |
5 |
|
|
|
6 |
dimitri |
1.2 |
C-- SALT_PLUME parameters |
7 |
dimitri |
1.3 |
C Find surface where the potential density (ref.lev=surface) is |
8 |
dimitri |
1.2 |
C larger than surface density plus SaltPlumeCriterion. Initially |
9 |
|
|
C use the default value 0.4 kg/m^3 of Duffy et al, 1999. |
10 |
|
|
_RL SaltPlumeCriterion |
11 |
|
|
COMMON /SALT_PLUME_PARAMS_R/ SaltPlumeCriterion |
12 |
|
|
|
13 |
|
|
C-- SALT_PLUME 2-dim. fields |
14 |
dimitri |
1.1 |
C SaltPlumeDepth :: depth of penetration of salt plumes |
15 |
|
|
C rejected during sea ice growth |
16 |
dimitri |
1.3 |
C saltPlumeFlux :: Net downward salt flux in psu.kg/m^2/s |
17 |
|
|
C Note: a) only used when salty sea-ice forms. |
18 |
dimitri |
1.1 |
C b) units: when salinity (unit= psu) is expressed |
19 |
|
|
C in g/kg, saltPlumeFlux unit becomes g/m^2/s. |
20 |
|
|
C > 0 for increasing in SSS. |
21 |
|
|
C Southwest C-grid tracer point |
22 |
dimitri |
1.3 |
_RL SaltPlumeDepth (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
23 |
|
|
_RL saltPlumeFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
24 |
|
|
COMMON /DYNVARS_SALT_PLUME/ SaltPlumeDepth |
25 |
dimitri |
1.1 |
COMMON /FFIELDS_saltPlumeFlux/ saltPlumeFlux |
26 |
dimitri |
1.3 |
|
27 |
|
|
#endif /* ALLOW_SALT_PLUME */ |