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 |
92 |
C and off. |
C and off. |
93 |
C implicitFreeSurface - Set to true to use implcit free surface |
C implicitFreeSurface - Set to true to use implcit free surface |
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 |
96 |
|
C momStepping - Turns temperature equation time-stepping off |
97 |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
98 |
& momViscosity, momAdvection, momForcing, useCoriolis, momPressureForcing, |
& momViscosity, momAdvection, momForcing, useCoriolis, momPressureForcing, |
99 |
& tempDiffusion, tempAdvection, tempForcing, |
& tempDiffusion, tempAdvection, tempForcing, |
100 |
& saltDiffusion, saltAdvection, saltForcing, |
& saltDiffusion, saltAdvection, saltForcing, |
101 |
& implicitFreeSurface, rigidLid |
& implicitFreeSurface, rigidLid, momStepping, tempStepping |
102 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
103 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
104 |
LOGICAL momViscosity |
LOGICAL momViscosity |
114 |
LOGICAL saltForcing |
LOGICAL saltForcing |
115 |
LOGICAL implicitFreeSurface |
LOGICAL implicitFreeSurface |
116 |
LOGICAL rigidLid |
LOGICAL rigidLid |
117 |
|
LOGICAL momStepping |
118 |
|
LOGICAL tempStepping |
119 |
|
|
120 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
121 |
C cg2dTargetResidual |
C cg2dTargetResidual |
247 |
_RL rhonil |
_RL rhonil |
248 |
_RL tRef(Nz) |
_RL tRef(Nz) |
249 |
_RL sRef(Nz) |
_RL sRef(Nz) |
250 |
_RL Fcori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS Fcori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
251 |
_RL startTime |
_RL startTime |
252 |
_RL endTime |
_RL endTime |
253 |
_RL chkPtFreq |
_RL chkPtFreq |
267 |
|
|
268 |
C Equation of State (polynomial coeffients) |
C Equation of State (polynomial coeffients) |
269 |
COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS |
COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS |
270 |
_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) |
271 |
C Linear equation of state |
C Linear equation of state |
272 |
C tAlpha - Linear EOS thermal expansion coefficient ( 1/degree ). |
C tAlpha - Linear EOS thermal expansion coefficient ( 1/degree ). |
273 |
C sBeta - Linear EOS haline contraction coefficient. |
C sBeta - Linear EOS haline contraction coefficient. |
274 |
COMMON /PARM_EOS_LIN/ tAlpha,sBeta |
COMMON /PARM_EOS_LIN/ tAlpha,sBeta,eosType |
275 |
_RL tAlpha |
_RL tAlpha |
276 |
_RL sBeta |
_RL sBeta |
277 |
|
character*(6) eosType |
278 |
|
|