9 |
C | the parameters can also be found here. | |
C | the parameters can also be found here. | |
10 |
C \==========================================================/ |
C \==========================================================/ |
11 |
|
|
12 |
|
C Macros for special grid options |
13 |
|
#include "PARAMS_MACROS.h" |
14 |
|
|
15 |
C-- Contants |
C-- Contants |
16 |
C Useful physical values |
C Useful physical values |
17 |
Real*8 PI |
Real*8 PI |
94 |
C rigidLid - Set to true to use rigid lid |
C rigidLid - Set to true to use rigid lid |
95 |
C momStepping - Turns momentum equation time-stepping off |
C momStepping - Turns momentum equation time-stepping off |
96 |
C momStepping - Turns temperature equation time-stepping off |
C momStepping - Turns temperature equation time-stepping off |
97 |
|
C implicitDiffusion - Turns implicit vertical diffusion on |
98 |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
99 |
& momViscosity, momAdvection, momForcing, useCoriolis, momPressureForcing, |
& momViscosity, momAdvection, momForcing, useCoriolis, momPressureForcing, |
100 |
& tempDiffusion, tempAdvection, tempForcing, |
& tempDiffusion, tempAdvection, tempForcing, |
101 |
& saltDiffusion, saltAdvection, saltForcing, |
& saltDiffusion, saltAdvection, saltForcing, |
102 |
& implicitFreeSurface, rigidLid, momStepping, tempStepping |
& implicitFreeSurface, rigidLid, momStepping, tempStepping, |
103 |
|
& implicitDiffusion |
104 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
105 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
106 |
LOGICAL momViscosity |
LOGICAL momViscosity |
118 |
LOGICAL rigidLid |
LOGICAL rigidLid |
119 |
LOGICAL momStepping |
LOGICAL momStepping |
120 |
LOGICAL tempStepping |
LOGICAL tempStepping |
121 |
|
LOGICAL implicitDiffusion |
122 |
|
|
123 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
124 |
C cg2dTargetResidual |
C cg2dTargetResidual |
270 |
|
|
271 |
C Equation of State (polynomial coeffients) |
C Equation of State (polynomial coeffients) |
272 |
COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS |
COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS |
273 |
_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) |
274 |
C Linear equation of state |
C Linear equation of state |
275 |
C tAlpha - Linear EOS thermal expansion coefficient ( 1/degree ). |
C tAlpha - Linear EOS thermal expansion coefficient ( 1/degree ). |
276 |
C sBeta - Linear EOS haline contraction coefficient. |
C sBeta - Linear EOS haline contraction coefficient. |
277 |
COMMON /PARM_EOS_LIN/ tAlpha,sBeta |
COMMON /PARM_EOS_LIN/ tAlpha,sBeta,eosType |
278 |
_RL tAlpha |
_RL tAlpha |
279 |
_RL sBeta |
_RL sBeta |
280 |
|
character*(6) eosType |
281 |
|
|