33 |
|
|
34 |
C-- COMMON /PARM_C/ Character valued parameters used by the model. |
C-- COMMON /PARM_C/ Character valued parameters used by the model. |
35 |
C checkPtSuff - List of checkpoint file suffices |
C checkPtSuff - List of checkpoint file suffices |
36 |
COMMON /PARM_C/ checkPtSuff |
C bathyFile - File containing bathymetry. If not defined bathymetry |
37 |
|
C is taken from inline function. |
38 |
|
C hydrogThetaFile - File containing initial hydrographic data for potential |
39 |
|
C temperature. |
40 |
|
C hydrogSaltFile - File containing initial hydrographic data for salinity. |
41 |
|
C zonalWindFile - File containing zonal wind data |
42 |
|
C meridWindFile - File containing meridional wind data |
43 |
|
COMMON /PARM_C/ checkPtSuff, |
44 |
|
& bathyFile, hydrogThetaFile, hydrogSaltFile, |
45 |
|
& zonalWindFile, meridWindFile |
46 |
CHARACTER*(5) checkPtSuff(maxNoChkptLev) |
CHARACTER*(5) checkPtSuff(maxNoChkptLev) |
47 |
|
CHARACTER*(MAX_LEN_FNAM) bathyFile |
48 |
|
CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile |
49 |
|
CHARACTER*(MAX_LEN_FNAM) hydrogSaltFile |
50 |
|
CHARACTER*(MAX_LEN_FNAM) zonalWindFile |
51 |
|
CHARACTER*(MAX_LEN_FNAM) meridWindFile |
52 |
|
|
53 |
C-- COMMON /PARM_I/ Integer valued parameters used by the model. |
C-- COMMON /PARM_I/ Integer valued parameters used by the model. |
54 |
C cg2dMaxIters - Maximum number of iterations in the |
C cg2dMaxIters - Maximum number of iterations in the |
110 |
C rigidLid - Set to true to use rigid lid |
C rigidLid - Set to true to use rigid lid |
111 |
C momStepping - Turns momentum equation time-stepping off |
C momStepping - Turns momentum equation time-stepping off |
112 |
C tempStepping - Turns temperature equation time-stepping off |
C tempStepping - Turns temperature equation time-stepping off |
113 |
|
C saltStepping - Turns salinity equation time-stepping off |
114 |
C useConstantF - Coriolis parameter set to f0 |
C useConstantF - Coriolis parameter set to f0 |
115 |
C useBetaPlaneF - Coriolis parameter set to f0 + beta.y |
C useBetaPlaneF - Coriolis parameter set to f0 + beta.y |
116 |
C useSphereF - Coriolis parameter set to 2.omega.sin(phi) |
C useSphereF - Coriolis parameter set to 2.omega.sin(phi) |
119 |
& momViscosity, momAdvection, momForcing, useCoriolis, momPressureForcing, |
& momViscosity, momAdvection, momForcing, useCoriolis, momPressureForcing, |
120 |
& tempDiffusion, tempAdvection, tempForcing, |
& tempDiffusion, tempAdvection, tempForcing, |
121 |
& saltDiffusion, saltAdvection, saltForcing, |
& saltDiffusion, saltAdvection, saltForcing, |
122 |
& implicitFreeSurface, rigidLid, momStepping, tempStepping, |
& implicitFreeSurface, rigidLid, |
123 |
|
& momStepping, tempStepping, saltStepping, |
124 |
& metricTerms, usingSphericalPolarMTerms, |
& metricTerms, usingSphericalPolarMTerms, |
125 |
& useConstantF, useBetaPlaneF, useSphereF, |
& useConstantF, useBetaPlaneF, useSphereF, |
126 |
& implicitDiffusion |
& implicitDiffusion |
142 |
LOGICAL rigidLid |
LOGICAL rigidLid |
143 |
LOGICAL momStepping |
LOGICAL momStepping |
144 |
LOGICAL tempStepping |
LOGICAL tempStepping |
145 |
|
LOGICAL saltStepping |
146 |
LOGICAL metricTerms |
LOGICAL metricTerms |
147 |
LOGICAL useConstantF |
LOGICAL useConstantF |
148 |
LOGICAL useBetaPlaneF |
LOGICAL useBetaPlaneF |