/[MITgcm]/MITgcm/model/inc/PARAMS.h
ViewVC logotype

Annotation of /MITgcm/model/inc/PARAMS.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.51 - (hide annotations) (download)
Tue Apr 10 22:35:25 2001 UTC (23 years, 1 month ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint38, checkpoint39
Changes since 1.50: +5 -3 lines
File MIME type: text/plain
See doc/tag-index and doc/notes_c37_adj.txt
Preparation for stand-alone autodifferentiability.

1 heimbach 1.51 C $Header: /u/gcmpack/models/MITgcmUV/model/inc/PARAMS.h,v 1.50 2001/03/25 22:33:52 heimbach Exp $
2     C $Name: $
3 cnh 1.1 C
4     C /==========================================================\
5     C | PARAMS.h |
6     C | o Header file defining model "parameters". |
7     C |==========================================================|
8 cnh 1.33 C | The values from the model standard input file are |
9 cnh 1.1 C | stored into the variables held here. Notes describing |
10     C | the parameters can also be found here. |
11     C \==========================================================/
12 cnh 1.13
13     C Macros for special grid options
14     #include "PARAMS_MACROS.h"
15 cnh 1.1
16     C-- Contants
17     C Useful physical values
18     Real*8 PI
19     PARAMETER ( PI = 3.14159265358979323844D0 )
20     Real*8 deg2rad
21     PARAMETER ( deg2rad = 2.D0*PI/360.D0 )
22    
23 cnh 1.7 C Symbolic values
24     C precXXXX - Used to indicate what precision to use for
25     C dumping model state.
26     INTEGER precFloat32
27 adcroft 1.36 PARAMETER ( precFloat32 = 32 )
28 cnh 1.7 INTEGER precFloat64
29 adcroft 1.36 PARAMETER ( precFloat64 = 64 )
30 cnh 1.28 C UNSET_xxx - Used to indicate variables that have not been given a value
31     Real*8 UNSET_FLOAT8
32     PARAMETER ( UNSET_FLOAT8 = 1.234567D5 )
33     Real*4 UNSET_FLOAT4
34     PARAMETER ( UNSET_FLOAT4 = 1.234567E5 )
35     _RL UNSET_RL
36     PARAMETER ( UNSET_RL = 1.234567D5 )
37     _RS UNSET_RS
38     PARAMETER ( UNSET_RS = 1.234567E5 )
39     INTEGER UNSET_I
40     PARAMETER ( UNSET_I = 123456789 )
41 cnh 1.7
42     C Checkpoint data
43     INTEGER maxNoChkptLev
44     PARAMETER ( maxNoChkptLev = 2 )
45    
46 cnh 1.1 C-- COMMON /PARM_C/ Character valued parameters used by the model.
47 cnh 1.7 C checkPtSuff - List of checkpoint file suffices
48 cnh 1.16 C bathyFile - File containing bathymetry. If not defined bathymetry
49     C is taken from inline function.
50     C hydrogThetaFile - File containing initial hydrographic data for potential
51     C temperature.
52     C hydrogSaltFile - File containing initial hydrographic data for salinity.
53     C zonalWindFile - File containing zonal wind data
54     C meridWindFile - File containing meridional wind data
55 cnh 1.18 C thetaClimFile - File containing theta climataology used
56     C in relaxation term -lambda(theta-theta*)
57     C saltClimFile - File containing salt climataology used
58     C in relaxation term -lambda(salt-salt*)
59 adcroft 1.37 C surfQfile - File containing surface heat flux
60 heimbach 1.45 C surfQswfile - File containing surface shortwave radiation
61 heimbach 1.50 C dQdTfile - File containing thermal relaxation coefficient
62 adcroft 1.37 C EmPmRfile - File containing surface fresh water flux
63 cnh 1.26 C buoyancyRelation - Flag used to indicate which relation to use to
64     C get buoyancy.
65 cnh 1.16 COMMON /PARM_C/ checkPtSuff,
66     & bathyFile, hydrogThetaFile, hydrogSaltFile,
67 cnh 1.18 & zonalWindFile, meridWindFile, thetaClimFile,
68 adcroft 1.37 & saltClimFile, buoyancyRelation,
69 heimbach 1.45 & EmPmRfile, surfQfile, surfQswfile,
70 heimbach 1.50 & uVelInitFile, vVelInitFile, pSurfInitFile,
71     & dQdTfile
72 cnh 1.7 CHARACTER*(5) checkPtSuff(maxNoChkptLev)
73 cnh 1.16 CHARACTER*(MAX_LEN_FNAM) bathyFile
74     CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile
75     CHARACTER*(MAX_LEN_FNAM) hydrogSaltFile
76     CHARACTER*(MAX_LEN_FNAM) zonalWindFile
77     CHARACTER*(MAX_LEN_FNAM) meridWindFile
78 cnh 1.18 CHARACTER*(MAX_LEN_FNAM) thetaClimFile
79     CHARACTER*(MAX_LEN_FNAM) saltClimFile
80 adcroft 1.37 CHARACTER*(MAX_LEN_FNAM) surfQfile
81 heimbach 1.45 CHARACTER*(MAX_LEN_FNAM) surfQswfile
82 adcroft 1.37 CHARACTER*(MAX_LEN_FNAM) EmPmRfile
83 cnh 1.26 CHARACTER*(MAX_LEN_FNAM) buoyancyRelation
84 adcroft 1.42 CHARACTER*(MAX_LEN_FNAM) uVelInitFile
85     CHARACTER*(MAX_LEN_FNAM) vVelInitFile
86 adcroft 1.43 CHARACTER*(MAX_LEN_FNAM) pSurfInitFile
87 heimbach 1.50 CHARACTER*(MAX_LEN_FNAM) dQdTfile
88 cnh 1.7
89 cnh 1.1 C-- COMMON /PARM_I/ Integer valued parameters used by the model.
90     C cg2dMaxIters - Maximum number of iterations in the
91     C two-dimensional con. grad solver.
92     C cg2dChkResFreq - Frequency with which to check residual
93     C in con. grad solver.
94 cnh 1.33 C cg3dMaxIters - Maximum number of iterations in the
95     C three-dimensional con. grad solver.
96     C cg3dChkResFreq - Frequency with which to check residual
97     C in con. grad solver.
98 cnh 1.1 C nIter0 - Start time-step number of for this run
99     C nTimeSteps - Number of timesteps to execute
100     C numStepsPerPickup - For offline setup. Frequency of pickup
101     C of flow fields.
102 cnh 1.7 C writeStatePrec - Precision used for writing model state.
103     C writeBinaryPrec - Precision used for writing binary files
104     C readBinaryPrec - Precision used for reading binary files
105     C nCheckLev - Holds current checkpoint level
106 cnh 1.34 C nShap - "Order" of shapiro filter to apply to
107     C model prognositic fields.
108     C nShap == 1 => del2
109     C nShap == 2 => del4
110     C nShap == 3 => del6
111     C etc...
112    
113 cnh 1.1 COMMON /PARM_I/
114     & cg2dMaxIters,
115     & cg2dChkResFreq,
116 cnh 1.33 & cg3dMaxIters,
117     & cg3dChkResFreq,
118 adcroft 1.41 & nIter0, nTimeSteps, nEndIter,
119 cnh 1.7 & numStepsPerPickup,
120     & writeStatePrec, nCheckLev,
121 cnh 1.34 & writeBinaryPrec, readBinaryPrec,
122 adcroft 1.46 & nShap, zonal_filt_sinpow, zonal_filt_cospow
123 cnh 1.1 INTEGER cg2dMaxIters
124     INTEGER cg2dChkResFreq
125 cnh 1.33 INTEGER cg3dMaxIters
126     INTEGER cg3dChkResFreq
127 cnh 1.1 INTEGER nIter0
128     INTEGER nTimeSteps
129 adcroft 1.41 INTEGER nEndIter
130 cnh 1.1 INTEGER numStepsPerPickup
131 cnh 1.7 INTEGER writeStatePrec
132     INTEGER writeBinaryPrec
133     INTEGER readBinaryPrec
134     INTEGER nCheckLev
135 cnh 1.34 INTEGER nShap
136 adcroft 1.46 INTEGER zonal_filt_sinpow
137     INTEGER zonal_filt_cospow
138 cnh 1.1
139     C-- COMMON /PARM_L/ Logical valued parameters used by the model.
140     C usingCartesianGrid - If TRUE grid generation will be in a cartesian
141     C coordinate frame.
142     C usingSphericalPolarGrid - If TRUE grid generation will be in a
143     C spherical polar frame.
144 adcroft 1.36 C no_slip_sides - Impose "no-slip" at lateral boundaries.
145     C no_slip_bottom- Impose "no-slip" at bottom boundary.
146 adcroft 1.46 C staggerTimeStep - enable a Stagger time stepping T,S Rho then U,V
147 cnh 1.1 C momViscosity - Flag which turns momentum friction terms on and off.
148     C momAdvection - Flag which turns advection of momentum on and off.
149     C momForcing - Flag which turns external forcing of momentum on
150     C and off.
151 cnh 1.9 C momPressureForcing - Flag which turns pressure term in momentum equation
152     C on and off.
153 cnh 1.15 C metricTerms - Flag which turns metric terms on or off.
154     C usingSphericalPolarMTerms - If TRUE use spherical polar metric terms.
155 cnh 1.1 C useCoriolis - Flag which turns the coriolis terms on and off.
156     C tempDiffusion - Flag which turns diffusion of temperature on
157     C and off.
158     C tempAdvection - Flag which turns advection of temperature on
159     C and off.
160     C tempForcing - Flag which turns external forcing of temperature on
161     C and off.
162     C saltDiffusion - Flag which turns diffusion of salinit on
163     C and off.
164     C saltAdvection - Flag which turns advection of salinit on
165     C and off.
166     C saltForcing - Flag which turns external forcing of salinit on
167     C and off.
168 cnh 1.8 C implicitFreeSurface - Set to true to use implcit free surface
169     C rigidLid - Set to true to use rigid lid
170 cnh 1.10 C momStepping - Turns momentum equation time-stepping off
171 cnh 1.15 C tempStepping - Turns temperature equation time-stepping off
172 adcroft 1.17 C saltStepping - Turns salinity equation time-stepping off
173 cnh 1.15 C useConstantF - Coriolis parameter set to f0
174     C useBetaPlaneF - Coriolis parameter set to f0 + beta.y
175     C useSphereF - Coriolis parameter set to 2.omega.sin(phi)
176 adcroft 1.14 C implicitDiffusion - Turns implicit vertical diffusion on
177 adcroft 1.40 C implicitViscosity - Turns implicit vertical viscosity on
178 cnh 1.18 C doThetaClimRelax - Set true if relaxation to temperature
179     C climatology is required.
180     C doSaltClimRelax - Set true if relaxation to salinity
181     C climatology is required.
182 adcroft 1.19 C periodicExternalForcing - Set true if forcing is time-dependant
183 cnh 1.29 C usingPCoords - Set to indicate that we are working in pressure
184     C coords.
185     C usingZCoords - Set to indicate that we are working in height
186     C coords.
187 adcroft 1.37 C nonHydrostatic - Using non-hydrostatic terms
188 adcroft 1.38 C globalFiles - Selects between "global" and "tiled" files
189     C allowFreezing - Allows water to freeze and form ice
190 adcroft 1.46 C groundAtK1 - put the surface(k=1) at the Lower Boundary (=ground)
191 cnh 1.1 COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid,
192 adcroft 1.36 & no_slip_sides,no_slip_bottom,
193 adcroft 1.46 & staggerTimeStep,
194 cnh 1.33 & momViscosity, momAdvection, momForcing, useCoriolis,
195     & momPressureForcing,tempDiffusion, tempAdvection, tempForcing,
196 cnh 1.8 & saltDiffusion, saltAdvection, saltForcing,
197 adcroft 1.17 & implicitFreeSurface, rigidLid,
198     & momStepping, tempStepping, saltStepping,
199 cnh 1.15 & metricTerms, usingSphericalPolarMTerms,
200     & useConstantF, useBetaPlaneF, useSphereF,
201 adcroft 1.40 & implicitDiffusion, implicitViscosity,
202     & doThetaClimRelax, doSaltClimRelax,
203 adcroft 1.35 & periodicExternalForcing, usingPCoords, usingZCoords,
204 adcroft 1.46 & nonHydrostatic, globalFiles,
205 heimbach 1.51 & allowFreezing, groundAtK1,
206     & usePickupBeforeC35
207 cnh 1.1 LOGICAL usingCartesianGrid
208     LOGICAL usingSphericalPolarGrid
209 cnh 1.15 LOGICAL usingSphericalPolarMTerms
210 adcroft 1.36 LOGICAL no_slip_sides
211     LOGICAL no_slip_bottom
212 adcroft 1.46 LOGICAL staggerTimeStep
213 cnh 1.1 LOGICAL momViscosity
214     LOGICAL momAdvection
215     LOGICAL momForcing
216 cnh 1.9 LOGICAL momPressureForcing
217 cnh 1.1 LOGICAL useCoriolis
218     LOGICAL tempDiffusion
219     LOGICAL tempAdvection
220     LOGICAL tempForcing
221     LOGICAL saltDiffusion
222     LOGICAL saltAdvection
223     LOGICAL saltForcing
224 cnh 1.8 LOGICAL implicitFreeSurface
225     LOGICAL rigidLid
226 cnh 1.10 LOGICAL momStepping
227     LOGICAL tempStepping
228 adcroft 1.17 LOGICAL saltStepping
229 cnh 1.15 LOGICAL metricTerms
230     LOGICAL useConstantF
231     LOGICAL useBetaPlaneF
232     LOGICAL useSphereF
233 adcroft 1.14 LOGICAL implicitDiffusion
234 adcroft 1.40 LOGICAL implicitViscosity
235 cnh 1.18 LOGICAL doThetaClimRelax
236     LOGICAL doSaltClimRelax
237 adcroft 1.19 LOGICAL periodicExternalForcing
238 cnh 1.29 LOGICAL usingPCoords
239     LOGICAL usingZCoords
240 adcroft 1.37 LOGICAL nonHydrostatic
241 adcroft 1.38 LOGICAL globalFiles
242     LOGICAL allowFreezing
243 adcroft 1.46 LOGICAL groundAtK1
244 heimbach 1.51 LOGICAL usePickupBeforeC35
245 cnh 1.1
246     C-- COMMON /PARM_R/ "Real" valued parameters used by the model.
247     C cg2dTargetResidual
248     C - Target residual for cg2d solver.
249 cnh 1.33 C cg3dTargetResidual
250     C - Target residual for cg3d solver.
251 cnh 1.7 C cg2dpcOffDFac - Averaging weight for preconditioner off-diagonal.
252     C Note. 20th May 1998
253     C I made a weird discovery! In the model paper we argue
254     C for the form of the preconditioner used here ( see
255     C A Finite-volume, Incompressible Navier-Stokes Model
256     C ...., Marshall et. al ). The algebra gives a simple
257     C 0.5 factor for the averaging of ac and aCw to get a
258     C symmettric pre-conditioner. By using a factor of 0.51
259     C i.e. scaling the off-diagonal terms in the
260     C preconditioner down slightly I managed to get the
261     C number of iterations for convergence in a test case to
262     C drop form 192 -> 134! Need to investigate this further!
263     C For now I have introduced a parameter cg2dpcOffDFac which
264     C defaults to 0.51 but can be set at runtime.
265 cnh 1.24 C delP - Vertical grid spacing ( Pa ).
266     C delZ - Vertical grid spacing ( m ).
267 cnh 1.23 C delR - Vertical grid spacing ( units of r ).
268 cnh 1.1 C delX - Separation between cell faces (m) or (deg), depending
269     C delY on input flags.
270     C gravity - Accel. due to gravity ( m/s^2 )
271 cnh 1.32 C recip_gravity and its inverse
272 cnh 1.8 C gBaro - Accel. due to gravity used in barotropic equation ( m/s^2 )
273 cnh 1.1 C ronil - Reference density
274 cnh 1.24 C rhoConst - Vertically constant reference density
275 cnh 1.3 C startTime - Start time for model ( s )
276 cnh 1.1 C phiMin - Latitude of southern most cell face.
277     C thetaMin - Longitude of western most cell face (this
278     C is an "inert" parameter but it is included
279     C to make geographical references simple.)
280 cnh 1.3 C rSphere - Radius of sphere for a spherical polar grid ( m ).
281 cnh 1.25 C recip_RSphere - Reciprocal radius of sphere ( m ).
282 cnh 1.1 C f0 - Reference coriolis parameter ( 1/s )
283     C ( Southern edge f for beta plane )
284     C beta - df/dy ( s^-1.m^-1 )
285 cnh 1.15 C omega - Angular velocity ( rad/s )
286 cnh 1.1 C viscAh - Eddy viscosity coeff. for mixing of
287     C momentum laterally ( m^2/s )
288     C viscAz - Eddy viscosity coeff. for mixing of
289     C momentum vertically ( m^2/s )
290 cnh 1.27 C viscAp - Eddy viscosity coeff. for mixing of
291     C momentum vertically ( Pa^2/s )
292 cnh 1.24 C viscAr - Eddy viscosity coeff. for mixing of
293     C momentum vertically ( units of r^2/s )
294 cnh 1.1 C viscA4 - Biharmonic viscosity coeff. for mixing of
295     C momentum laterally ( m^4/s )
296     C diffKhT - Laplacian diffusion coeff. for mixing of
297     C heat laterally ( m^2/s )
298     C diffKzT - Laplacian diffusion coeff. for mixing of
299     C heat vertically ( m^2/s )
300 cnh 1.27 C diffKpT - Laplacian diffusion coeff. for mixing of
301     C heat vertically ( Pa^2/s )
302 cnh 1.24 C diffKrT - Laplacian diffusion coeff. for mixing of
303     C heat vertically ( units of r^2/s )
304 cnh 1.1 C diffK4T - Biharmonic diffusion coeff. for mixing of
305     C heat laterally ( m^4/s )
306     C diffKhS - Laplacian diffusion coeff. for mixing of
307     C salt laterally ( m^2/s )
308     C diffKzS - Laplacian diffusion coeff. for mixing of
309     C salt vertically ( m^2/s )
310 cnh 1.27 C diffKpS - Laplacian diffusion coeff. for mixing of
311     C salt vertically ( Pa^2/s )
312 cnh 1.24 C diffKrS - Laplacian diffusion coeff. for mixing of
313     C salt vertically ( units of r^2/s )
314 cnh 1.1 C diffK4S - Biharmonic diffusion coeff. for mixing of
315     C salt laterally ( m^4/s )
316 cnh 1.3 C deltaT - Default timestep ( s )
317 cnh 1.7 C deltaTClock - Timestep used as model "clock". This determines the
318     C IO frequencies and is used in tagging output. It can
319     C be totally different to the dynamical time. Typically
320     C it will be the deep-water timestep for accelerated runs.
321     C Frequency of checkpointing and dumping of the model state
322     C are referenced to this clock. ( s )
323 cnh 1.3 C deltaTMom - Timestep for momemtum equations ( s )
324     C deltaTtracer - Timestep for tracer equations ( s )
325 cnh 1.8 C freesurfFac - Parameter to turn implicit free surface term on or off
326     C freesurfac = 1. uses implicit free surface
327     C freesurfac = 0. uses rigid lid
328 jmc 1.48 C implicSurfPress - parameter of the Crank-Nickelson time stepping :
329     C Implicit part of Surface Pressure Gradient ( 0-1 )
330     C implicDiv2Dflow - parameter of the Crank-Nickelson time stepping :
331     C Implicit part of barotropic flow Divergence ( 0-1 )
332 cnh 1.24 C hFacMin - Minimum fraction size of a cell (affects hFacC etc...)
333     C hFacMinDz - Minimum dimesional size of a cell (affects hFacC etc..., m)
334 cnh 1.28 C hFacMinDp - Minimum dimesional size of a cell (affects hFacC etc..., Pa)
335 cnh 1.24 C hFacMinDr - Minimum dimesional size of a cell (affects hFacC etc..., units of r)
336     C tauCD - CD scheme coupling timescale ( 1/s )
337     C rCD - CD scheme normalised coupling parameter ( 0-1 )
338     C startTime - Starting time for this integration ( s ).
339     C endTime - Ending time for this integration ( s ).
340     C chkPtFreq - Frequency of rolling check pointing ( s ).
341     C pChkPtFreq - Frequency of permanent check pointing ( s ).
342     C dumpFreq - Frequency with which model state is written to
343     C post-processing files ( s ).
344     C afFacMom - Advection of momentum term tracer parameter
345     C vfFacMom - Momentum viscosity tracer parameter
346     C pfFacMom - Momentum pressure forcing tracer parameter
347     C cfFacMom - Coriolis term tracer parameter
348     C foFacMom - Momentum forcing tracer parameter
349     C mtFacMom - Metric terms tracer parameter
350 adcroft 1.39 C cosPower - Power of cosine of latitude to multiply viscosity
351 cnh 1.24 C cAdjFreq - Frequency of convective adjustment
352     C
353 cnh 1.27 C taveFreq - Frequency with which time-averaged model state is written to
354     C post-processing files ( s ).
355 cnh 1.18 C tauThetaClimRelax - Relaxation to climatology time scale ( s ).
356     C lambdaThetaClimRelax - Inverse time scale for relaxation ( 1/s ).
357     C tauSaltClimRelax - Relaxation to climatology time scale ( s ).
358     C lambdaSaltClimRelax - Inverse time scale for relaxation ( 1/s ).
359 adcroft 1.19 C externForcingPeriod - Is the period of which forcing varies (eg. 1 month)
360     C externForcingCycle - Is the repeat time of the forcing (eg. 1 year)
361     C (note: externForcingCycle must be an integer
362     C number times externForcingPeriod)
363 cnh 1.30 C horiVertRatio - Ratio on units in vertical to units in horizontal.
364 cnh 1.31 C recip_horiVertRatio ( 1 if horiz in m and vertical in m ).
365 cnh 1.30 C ( g*rho if horiz in m and vertical in Pa ).
366 cnh 1.34 C latFFTFiltLo - Low latitude for FFT filtering of latitude
367     C circles ( see filter*.F )
368 adcroft 1.46 C Ro_SeaLevel - standard position of Sea-Level in "R" coordinate, used as
369     C starting value (k=1) for vertical coordinate (rf(1)=Ro_SeaLevel)
370     C bottomDragLinear - Drag coefficient built in to core dynamics
371     C " Quadratic ( linear: 1/s, quadratic: 1/m )
372 cnh 1.24 COMMON /PARM_R/ cg2dTargetResidual, cg2dpcOffDFac,
373 cnh 1.33 & cg3dTargetResidual,
374 cnh 1.24 & delP, delZ, delR, delX, delY,
375 cnh 1.33 & deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime,
376     & phiMin, thetaMin, rSphere, recip_RSphere, f0, fCori, beta,
377 cnh 1.24 & viscAh, viscAz, viscA4, viscAr,
378     & diffKhT, diffKzT, diffK4T, diffKrT,
379 cnh 1.25 & diffKhS, diffKzS, diffK4S, diffKrS,
380 jmc 1.48 & delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow,
381     & hFacMin, hFacMinDz,
382 cnh 1.32 & gravity, recip_Gravity, gBaro, rhonil, recip_rhonil,
383 cnh 1.27 & recip_rhoConst, rhoConst, tRef, sRef,
384 adcroft 1.20 & endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq,
385 cnh 1.15 & afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom,
386 adcroft 1.39 & cosPower,
387 cnh 1.18 & cAdjFreq, omega, tauThetaClimRelax, lambdaThetaClimRelax,
388 adcroft 1.19 & tauSaltClimRelax, lambdaSaltClimRelax,
389 cnh 1.27 & externForcingCycle, externForcingPeriod,
390 cnh 1.28 & viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp,
391 cnh 1.34 & theta_S, specVol_S, horiVertRatio, recip_horiVertRatio,
392 adcroft 1.46 & latFFTFiltLo, ivdc_kappa, Ro_SeaLevel, zonal_filt_lat,
393     & bottomDragLinear,bottomDragQuadratic
394 cnh 1.27
395 adcroft 1.6 _RL cg2dTargetResidual
396 cnh 1.33 _RL cg3dTargetResidual
397 cnh 1.7 _RL cg2dpcOffDFac
398 cnh 1.25 _RL delZ(Nr)
399     _RL delP(Nr)
400     _RL delR(Nr)
401 adcroft 1.6 _RL delX(Nx)
402     _RL delY(Ny)
403     _RL deltaT
404 cnh 1.7 _RL deltaTClock
405 adcroft 1.6 _RL deltaTmom
406     _RL deltaTtracer
407     _RL abeps
408     _RL phiMin
409     _RL thetaMin
410     _RL rSphere
411 cnh 1.25 _RL recip_RSphere
412 adcroft 1.6 _RL f0
413 cnh 1.8 _RL freeSurfFac
414 jmc 1.48 _RL implicSurfPress
415     _RL implicDiv2Dflow
416 adcroft 1.22 _RL hFacMin
417     _RL hFacMinDz
418 cnh 1.28 _RL hFacMinDp
419 cnh 1.27 _RL hFacMinDr
420 adcroft 1.6 _RL beta
421     _RL viscAh
422     _RL viscAz
423 cnh 1.27 _RL viscAp
424 cnh 1.25 _RL viscAr
425 adcroft 1.6 _RL viscA4
426     _RL diffKhT
427 cnh 1.25 _RL diffKrT
428 adcroft 1.6 _RL diffKzT
429 cnh 1.27 _RL diffKpT
430 adcroft 1.6 _RL diffK4T
431     _RL diffKhS
432 cnh 1.25 _RL diffKrS
433 adcroft 1.6 _RL diffKzS
434 cnh 1.27 _RL diffKpS
435 adcroft 1.6 _RL diffK4S
436     _RL delt
437     _RL tauCD
438     _RL rCD
439     _RL gravity
440 cnh 1.32 _RL recip_gravity
441 cnh 1.8 _RL gBaro
442 adcroft 1.6 _RL rhonil
443 cnh 1.25 _RL recip_rhonil
444     _RL rhoConst
445 cnh 1.26 _RL recip_rhoConst
446     _RL specVol_S(Nr)
447 cnh 1.25 _RL tRef(Nr)
448 cnh 1.26 _RL theta_S(Nr)
449 cnh 1.25 _RL sRef(Nr)
450 cnh 1.11 _RS Fcori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
451 adcroft 1.6 _RL startTime
452     _RL endTime
453     _RL chkPtFreq
454 cnh 1.7 _RL pChkPtFreq
455 adcroft 1.6 _RL dumpFreq
456 adcroft 1.20 _RL taveFreq
457 cnh 1.9 _RL afFacMom
458     _RL vfFacMom
459     _RL pfFacMom
460     _RL cfFacMom
461     _RL foFacMom
462 cnh 1.15 _RL mTFacMom
463 adcroft 1.39 _RL cosPower
464 cnh 1.9 _RL cAdjFreq
465 cnh 1.15 _RL omega
466 cnh 1.18 _RL tauThetaClimRelax
467     _RL lambdaThetaClimRelax
468     _RL tauSaltClimRelax
469     _RL lambdaSaltClimRelax
470 adcroft 1.19 _RL externForcingCycle
471     _RL externForcingPeriod
472 cnh 1.30 _RL horiVertRatio
473 cnh 1.31 _RL recip_horiVertRatio
474 cnh 1.34 _RL latFFTFiltLo
475 adcroft 1.41 _RL ivdc_kappa
476 adcroft 1.46 _RL Ro_SeaLevel
477     _RL zonal_filt_lat
478     _RL bottomDragLinear
479     _RL bottomDragQuadratic
480 adcroft 1.6
481 adcroft 1.36 COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp,
482 cnh 1.1 & Lamba_theta
483 adcroft 1.6 _RL HeatCapacity_Cp
484     _RL Lamba_theta
485 adcroft 1.36 _RL recip_Cp
486 adcroft 1.5
487     C Equation of State (polynomial coeffients)
488     COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS
489 cnh 1.25 _RL eosC(9,Nr+1),eosSig0(Nr+1),eosRefT(Nr+1),eosRefS(Nr+1)
490 adcroft 1.5 C Linear equation of state
491     C tAlpha - Linear EOS thermal expansion coefficient ( 1/degree ).
492     C sBeta - Linear EOS haline contraction coefficient.
493 adcroft 1.12 COMMON /PARM_EOS_LIN/ tAlpha,sBeta,eosType
494 adcroft 1.6 _RL tAlpha
495     _RL sBeta
496 adcroft 1.12 character*(6) eosType
497 cnh 1.7
498 adcroft 1.44 C Logical flags for selecting packages
499 heimbach 1.45 LOGICAL useKPP
500     LOGICAL useGMRedi
501 adcroft 1.46 LOGICAL useOBCS
502 jmc 1.49 LOGICAL useAIM
503 heimbach 1.45 LOGICAL useECCO
504 adcroft 1.44 COMMON /PARM_PACKAGES/
505 jmc 1.49 & useKPP, useGMRedi, useOBCS, useAIM, useECCO
506    

  ViewVC Help
Powered by ViewVC 1.1.22