123 |
C deltaTtracer - Timestep for tracer equations ( s ) |
C deltaTtracer - Timestep for tracer equations ( s ) |
124 |
C tauCD - CD scheme coupling timescale ( 1/s ) |
C tauCD - CD scheme coupling timescale ( 1/s ) |
125 |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
126 |
|
C GMmaxslope - max. slope allowed in GM/Redi tensor |
127 |
|
C GMlength - Length to use in Visbeck et al. formula for K |
128 |
|
C GMalpha - alpha to use in Visbeck et al. formula for K |
129 |
|
C GMdepth - Depth over which to integrate Richardson # (Visbeck et al.) |
130 |
|
C GMbackground - background value of GM/Redi coefficient |
131 |
C startTime - Starting time for this integration ( s ). |
C startTime - Starting time for this integration ( s ). |
132 |
C endTime - Ending time for this integration ( s ). |
C endTime - Ending time for this integration ( s ). |
133 |
C chkPtFreq - Frequency of check pointing ( s ). |
C chkPtFreq - Frequency of check pointing ( s ). |
137 |
& deltaTmom, deltaTtracer, abeps, startTime, phiMin, thetaMin, |
& deltaTmom, deltaTtracer, abeps, startTime, phiMin, thetaMin, |
138 |
& rSphere, f0, fCori, beta, viscAh, viscAz, viscA4, diffKhT, diffKzT, |
& rSphere, f0, fCori, beta, viscAh, viscAz, viscA4, diffKhT, diffKzT, |
139 |
& diffK4T, diffKhS, diffKzS, diffK4S, delT, tauCD, rCD, |
& diffK4T, diffKhS, diffKzS, diffK4S, delT, tauCD, rCD, |
140 |
|
& GMmaxslope,GMlength,GMalpha,GMdepth,GMkbackground, |
141 |
& gravity, rhonil, tRef, sRef, |
& gravity, rhonil, tRef, sRef, |
142 |
& endTime, chkPtFreq, dumpFreq |
& endTime, chkPtFreq, dumpFreq |
143 |
REAL cg2dTargetResidual |
_RL cg2dTargetResidual |
144 |
REAL delZ(Nz) |
_RL delZ(Nz) |
145 |
REAL delX(Nx) |
_RL delX(Nx) |
146 |
REAL delY(Ny) |
_RL delY(Ny) |
147 |
REAL deltaT |
_RL deltaT |
148 |
REAL deltaTmom |
_RL deltaTmom |
149 |
REAL deltaTtracer |
_RL deltaTtracer |
150 |
REAL abeps |
_RL abeps |
151 |
REAL phiMin |
_RL phiMin |
152 |
REAL thetaMin |
_RL thetaMin |
153 |
REAL rSphere |
_RL rSphere |
154 |
REAL f0 |
_RL f0 |
155 |
_RL beta |
_RL beta |
156 |
REAL viscAh |
_RL viscAh |
157 |
REAL viscAz |
_RL viscAz |
158 |
REAL viscA4 |
_RL viscA4 |
159 |
REAL diffKhT |
_RL diffKhT |
160 |
REAL diffKzT |
_RL diffKzT |
161 |
REAL diffK4T |
_RL diffK4T |
162 |
REAL diffKhS |
_RL diffKhS |
163 |
REAL diffKzS |
_RL diffKzS |
164 |
REAL diffK4S |
_RL diffK4S |
165 |
REAL delt |
_RL delt |
166 |
REAL tauCD |
_RL tauCD |
167 |
REAL rCD |
_RL rCD |
168 |
REAL gravity |
_RL GMmaxslope |
169 |
REAL rhonil |
_RL GMlength |
170 |
REAL tRef(Nz) |
_RL GMalpha |
171 |
REAL sRef(Nz) |
_RL GMdepth |
172 |
real Fcori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL GMkbackground |
173 |
REAL startTime |
_RL gravity |
174 |
REAL endTime |
_RL rhonil |
175 |
REAL chkPtFreq |
_RL tRef(Nz) |
176 |
REAL dumpFreq |
_RL sRef(Nz) |
177 |
|
_RL Fcori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
178 |
|
_RL startTime |
179 |
|
_RL endTime |
180 |
|
_RL chkPtFreq |
181 |
|
_RL dumpFreq |
182 |
|
|
183 |
COMMON /PARM_A/ HeatCapacity_Cp, |
COMMON /PARM_A/ HeatCapacity_Cp, |
184 |
& Lamba_theta |
& Lamba_theta |
185 |
REAL HeatCapacity_Cp |
_RL HeatCapacity_Cp |
186 |
REAL Lamba_theta |
_RL Lamba_theta |
187 |
|
|
188 |
C Equation of State (polynomial coeffients) |
C Equation of State (polynomial coeffients) |
189 |
COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS |
COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS |
190 |
REAL eosC(Nz+1,9),eosSig0(Nz+1),eosRefT(Nz+1),eosRefS(Nz+1) |
_RL eosC(Nz+1,9),eosSig0(Nz+1),eosRefT(Nz+1),eosRefS(Nz+1) |
191 |
C Linear equation of state |
C Linear equation of state |
192 |
C tAlpha - Linear EOS thermal expansion coefficient ( 1/degree ). |
C tAlpha - Linear EOS thermal expansion coefficient ( 1/degree ). |
193 |
C sBeta - Linear EOS haline contraction coefficient. |
C sBeta - Linear EOS haline contraction coefficient. |
194 |
COMMON /PARM_EOS_LIN/ tAlpha,sBeta |
COMMON /PARM_EOS_LIN/ tAlpha,sBeta |
195 |
REAL tAlpha |
_RL tAlpha |
196 |
REAL sBeta |
_RL sBeta |