67 |
C dSPvolfromBelow:: upward volume frac from grid below |
C dSPvolfromBelow:: upward volume frac from grid below |
68 |
C dSPvol2Above :: upward volume frac to grid above |
C dSPvol2Above :: upward volume frac to grid above |
69 |
C SPbrineSalt :: salinity of brine, read in or a function of SPalpha |
C SPbrineSalt :: salinity of brine, read in or a function of SPalpha |
70 |
|
C SPkBottom :: bottom kLev associated with SaltPlumeDepth |
71 |
|
|
72 |
_RL SaltPlumeDepth (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL SaltPlumeDepth (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
73 |
_RL saltPlumeFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL saltPlumeFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
74 |
#ifdef SALT_PLUME_VOLUME |
#ifdef SALT_PLUME_VOLUME |
75 |
_RL SPbrineSalt (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL SPbrineSalt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
76 |
_RL dSPvolSurfDown (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
& ,SPkBottom (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
77 |
& ,dSPvolfromBelow(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
_RL dSPvolSurfDown (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
78 |
& ,dSPvol2Above (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
& ,dSPvolfromBelow(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
79 |
#endif |
& ,dSPvol2Above (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1,nSx,nSy) |
80 |
|
& ,SPplumek (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1,nSx,nSy) |
81 |
|
#endif /* SALT_PLUME_VOLUME */ |
82 |
COMMON /DYNVARS_SALT_PLUME/ SaltPlumeDepth |
COMMON /DYNVARS_SALT_PLUME/ SaltPlumeDepth |
83 |
COMMON /FFIELDS_saltPlumeFlux/ saltPlumeFlux |
#ifdef SALT_PLUME_VOLUME |
84 |
|
& ,SPbrineSalt,SPkBottom |
85 |
COMMON /FFIELDS_SaltPlumeVol/ |
COMMON /FFIELDS_SaltPlumeVol/ |
86 |
& SPbrineSalt,dSPvolSurfDown,dSPvolfromBelow,dSPvol2Above |
& dSPvolSurfDown,dSPvolfromBelow,dSPvol2Above,SPplumek |
87 |
|
#endif /* SALT_PLUME_VOLUME */ |
88 |
|
COMMON /FFIELDS_saltPlumeFlux/ saltPlumeFlux |
89 |
#endif /* ALLOW_SALT_PLUME */ |
#endif /* ALLOW_SALT_PLUME */ |