41 |
C volume of 0.001*drF(1)*[dx*dy] of brine. Thus SPbrineSalt |
C volume of 0.001*drF(1)*[dx*dy] of brine. Thus SPbrineSalt |
42 |
C can be calc as adding SaltPlumeFlux into this fractional vol. |
C can be calc as adding SaltPlumeFlux into this fractional vol. |
43 |
C Default: 0.008 -> SPbrineSalt ~37 if SSS is ~32. |
C Default: 0.008 -> SPbrineSalt ~37 if SSS is ~32. |
44 |
|
C SPbrineSconst :: salinity of brine pocket [psu] |
45 |
|
|
46 |
_RL SPsalFRAC, SaltPlumeCriterion, SPovershoot |
_RL SPsalFRAC, SaltPlumeCriterion, SPovershoot |
47 |
#ifdef SALT_PLUME_IN_LEADS |
#ifdef SALT_PLUME_IN_LEADS |
48 |
& , SPinflectionPoint |
& , SPinflectionPoint |
49 |
#endif |
#endif |
50 |
#ifdef SALT_PLUME_VOLUME |
#ifdef SALT_PLUME_VOLUME |
51 |
& , SPalpha, SPbrineSaltmax |
& , SPbrineSconst, SPbrineSaltmax |
52 |
#endif |
#endif |
53 |
COMMON /SALT_PLUME_PARAMS_R/ |
COMMON /SALT_PLUME_PARAMS_R/ |
54 |
& SPsalFRAC, SaltPlumeCriterion, SPovershoot |
& SPsalFRAC, SaltPlumeCriterion, SPovershoot |
56 |
& , SPinflectionPoint |
& , SPinflectionPoint |
57 |
#endif |
#endif |
58 |
#ifdef SALT_PLUME_VOLUME |
#ifdef SALT_PLUME_VOLUME |
59 |
& , SPalpha, SPbrineSaltmax |
& , SPbrineSconst, SPbrineSaltmax |
60 |
#endif |
#endif |
61 |
C-- SALT_PLUME 2-dim. fields |
C-- SALT_PLUME 2-dim. fields |
62 |
C SaltPlumeDepth :: depth of penetration of salt plumes |
C SaltPlumeDepth :: depth of penetration of salt plumes |