89 |
C and off. |
C and off. |
90 |
C implicitFreeSurface - Set to true to use implcit free surface |
C implicitFreeSurface - Set to true to use implcit free surface |
91 |
C rigidLid - Set to true to use rigid lid |
C rigidLid - Set to true to use rigid lid |
92 |
|
C momStepping - Turns momentum equation time-stepping off |
93 |
|
C momStepping - Turns temperature equation time-stepping off |
94 |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
95 |
& momViscosity, momAdvection, momForcing, useCoriolis, momPressureForcing, |
& momViscosity, momAdvection, momForcing, useCoriolis, momPressureForcing, |
96 |
& tempDiffusion, tempAdvection, tempForcing, |
& tempDiffusion, tempAdvection, tempForcing, |
97 |
& saltDiffusion, saltAdvection, saltForcing, |
& saltDiffusion, saltAdvection, saltForcing, |
98 |
& implicitFreeSurface, rigidLid |
& implicitFreeSurface, rigidLid, momStepping, tempStepping |
99 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
100 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
101 |
LOGICAL momViscosity |
LOGICAL momViscosity |
111 |
LOGICAL saltForcing |
LOGICAL saltForcing |
112 |
LOGICAL implicitFreeSurface |
LOGICAL implicitFreeSurface |
113 |
LOGICAL rigidLid |
LOGICAL rigidLid |
114 |
|
LOGICAL momStepping |
115 |
|
LOGICAL tempStepping |
116 |
|
|
117 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
118 |
C cg2dTargetResidual |
C cg2dTargetResidual |
244 |
_RL rhonil |
_RL rhonil |
245 |
_RL tRef(Nz) |
_RL tRef(Nz) |
246 |
_RL sRef(Nz) |
_RL sRef(Nz) |
247 |
_RL Fcori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS Fcori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
248 |
_RL startTime |
_RL startTime |
249 |
_RL endTime |
_RL endTime |
250 |
_RL chkPtFreq |
_RL chkPtFreq |
264 |
|
|
265 |
C Equation of State (polynomial coeffients) |
C Equation of State (polynomial coeffients) |
266 |
COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS |
COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS |
267 |
_RL eosC(Nz+1,9),eosSig0(Nz+1),eosRefT(Nz+1),eosRefS(Nz+1) |
_RL eosC(9,Nz+1),eosSig0(Nz+1),eosRefT(Nz+1),eosRefS(Nz+1) |
268 |
C Linear equation of state |
C Linear equation of state |
269 |
C tAlpha - Linear EOS thermal expansion coefficient ( 1/degree ). |
C tAlpha - Linear EOS thermal expansion coefficient ( 1/degree ). |
270 |
C sBeta - Linear EOS haline contraction coefficient. |
C sBeta - Linear EOS haline contraction coefficient. |
271 |
COMMON /PARM_EOS_LIN/ tAlpha,sBeta |
COMMON /PARM_EOS_LIN/ tAlpha,sBeta,eosType |
272 |
_RL tAlpha |
_RL tAlpha |
273 |
_RL sBeta |
_RL sBeta |
274 |
|
character*(6) eosType |
275 |
|
|