103 |
C writeBinaryPrec - Precision used for writing binary files |
C writeBinaryPrec - Precision used for writing binary files |
104 |
C readBinaryPrec - Precision used for reading binary files |
C readBinaryPrec - Precision used for reading binary files |
105 |
C nCheckLev - Holds current checkpoint level |
C nCheckLev - Holds current checkpoint level |
|
C nShap - "Order" of shapiro filter to apply to |
|
|
C model prognositic fields. |
|
|
C nShap == 1 => del2 |
|
|
C nShap == 2 => del4 |
|
|
C nShap == 3 => del6 |
|
|
C etc... |
|
106 |
|
|
107 |
COMMON /PARM_I/ |
COMMON /PARM_I/ |
108 |
& cg2dMaxIters, |
& cg2dMaxIters, |
113 |
& numStepsPerPickup, |
& numStepsPerPickup, |
114 |
& writeStatePrec, nCheckLev, |
& writeStatePrec, nCheckLev, |
115 |
& writeBinaryPrec, readBinaryPrec, |
& writeBinaryPrec, readBinaryPrec, |
116 |
& nShap, zonal_filt_sinpow, zonal_filt_cospow |
& zonal_filt_sinpow, zonal_filt_cospow |
117 |
INTEGER cg2dMaxIters |
INTEGER cg2dMaxIters |
118 |
INTEGER cg2dChkResFreq |
INTEGER cg2dChkResFreq |
119 |
INTEGER cg3dMaxIters |
INTEGER cg3dMaxIters |
126 |
INTEGER writeBinaryPrec |
INTEGER writeBinaryPrec |
127 |
INTEGER readBinaryPrec |
INTEGER readBinaryPrec |
128 |
INTEGER nCheckLev |
INTEGER nCheckLev |
|
INTEGER nShap |
|
129 |
INTEGER zonal_filt_sinpow |
INTEGER zonal_filt_sinpow |
130 |
INTEGER zonal_filt_cospow |
INTEGER zonal_filt_cospow |
131 |
|
|
158 |
C and off. |
C and off. |
159 |
C saltForcing - Flag which turns external forcing of salinit on |
C saltForcing - Flag which turns external forcing of salinit on |
160 |
C and off. |
C and off. |
|
C implicitFreeSurface - Set to true to use implcit free surface |
|
161 |
C rigidLid - Set to true to use rigid lid |
C rigidLid - Set to true to use rigid lid |
162 |
|
C implicitFreeSurface - Set to true to use implcit free surface |
163 |
|
C exactConserv - Set to true to conserve exactly the total Volume |
164 |
|
C nonlinFreeSurf - Set to true to use non-linear free surface |
165 |
C momStepping - Turns momentum equation time-stepping off |
C momStepping - Turns momentum equation time-stepping off |
166 |
C tempStepping - Turns temperature equation time-stepping off |
C tempStepping - Turns temperature equation time-stepping off |
167 |
C saltStepping - Turns salinity equation time-stepping off |
C saltStepping - Turns salinity equation time-stepping off |
184 |
C allowFreezing - Allows water to freeze and form ice |
C allowFreezing - Allows water to freeze and form ice |
185 |
C groundAtK1 - put the surface(k=1) at the Lower Boundary (=ground) |
C groundAtK1 - put the surface(k=1) at the Lower Boundary (=ground) |
186 |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
187 |
|
& usingCurvilinearGrid, |
188 |
& no_slip_sides,no_slip_bottom, |
& no_slip_sides,no_slip_bottom, |
189 |
& staggerTimeStep, |
& staggerTimeStep, |
190 |
& momViscosity, momAdvection, momForcing, useCoriolis, |
& momViscosity, momAdvection, momForcing, useCoriolis, |
191 |
& momPressureForcing,tempDiffusion, tempAdvection, tempForcing, |
& momPressureForcing,tempDiffusion, tempAdvection, tempForcing, |
192 |
& saltDiffusion, saltAdvection, saltForcing, |
& saltDiffusion, saltAdvection, saltForcing, |
193 |
& implicitFreeSurface, rigidLid, |
& rigidLid, implicitFreeSurface, exactConserv, nonlinFreeSurf, |
194 |
& momStepping, tempStepping, saltStepping, |
& momStepping, tempStepping, saltStepping, |
195 |
& metricTerms, usingSphericalPolarMTerms, |
& metricTerms, usingSphericalPolarMTerms, |
196 |
& useConstantF, useBetaPlaneF, useSphereF, |
& useConstantF, useBetaPlaneF, useSphereF, |
202 |
& usePickupBeforeC35 |
& usePickupBeforeC35 |
203 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
204 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
205 |
|
LOGICAL usingCurvilinearGrid |
206 |
LOGICAL usingSphericalPolarMTerms |
LOGICAL usingSphericalPolarMTerms |
207 |
LOGICAL no_slip_sides |
LOGICAL no_slip_sides |
208 |
LOGICAL no_slip_bottom |
LOGICAL no_slip_bottom |
218 |
LOGICAL saltDiffusion |
LOGICAL saltDiffusion |
219 |
LOGICAL saltAdvection |
LOGICAL saltAdvection |
220 |
LOGICAL saltForcing |
LOGICAL saltForcing |
|
LOGICAL implicitFreeSurface |
|
221 |
LOGICAL rigidLid |
LOGICAL rigidLid |
222 |
|
LOGICAL implicitFreeSurface |
223 |
|
LOGICAL exactConserv |
224 |
|
LOGICAL nonlinFreeSurf |
225 |
LOGICAL momStepping |
LOGICAL momStepping |
226 |
LOGICAL tempStepping |
LOGICAL tempStepping |
227 |
LOGICAL saltStepping |
LOGICAL saltStepping |
243 |
LOGICAL usePickupBeforeC35 |
LOGICAL usePickupBeforeC35 |
244 |
|
|
245 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
246 |
C cg2dTargetResidual |
C gg2dTargetResidual |
247 |
C - Target residual for cg2d solver. |
C - Target residual for cg2d solver; no unit (RHS normalisation) |
248 |
|
C cg2dTargetResWunit |
249 |
|
C - Target residual for cg2d solver; W unit (No RHS normalisation) |
250 |
C cg3dTargetResidual |
C cg3dTargetResidual |
251 |
C - Target residual for cg3d solver. |
C - Target residual for cg3d solver. |
252 |
C cg2dpcOffDFac - Averaging weight for preconditioner off-diagonal. |
C cg2dpcOffDFac - Averaging weight for preconditioner off-diagonal. |
334 |
C hFacMinDz - Minimum dimesional size of a cell (affects hFacC etc..., m) |
C hFacMinDz - Minimum dimesional size of a cell (affects hFacC etc..., m) |
335 |
C hFacMinDp - Minimum dimesional size of a cell (affects hFacC etc..., Pa) |
C hFacMinDp - Minimum dimesional size of a cell (affects hFacC etc..., Pa) |
336 |
C hFacMinDr - Minimum dimesional size of a cell (affects hFacC etc..., units of r) |
C hFacMinDr - Minimum dimesional size of a cell (affects hFacC etc..., units of r) |
337 |
|
C hFacInf - Threshold (inf and sup) for fraction size of surface cell |
338 |
|
C hFacSup that control vanishing and creating levels |
339 |
C tauCD - CD scheme coupling timescale ( 1/s ) |
C tauCD - CD scheme coupling timescale ( 1/s ) |
340 |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
341 |
C startTime - Starting time for this integration ( s ). |
C startTime - Starting time for this integration ( s ). |
372 |
C starting value (k=1) for vertical coordinate (rf(1)=Ro_SeaLevel) |
C starting value (k=1) for vertical coordinate (rf(1)=Ro_SeaLevel) |
373 |
C bottomDragLinear - Drag coefficient built in to core dynamics |
C bottomDragLinear - Drag coefficient built in to core dynamics |
374 |
C " Quadratic ( linear: 1/s, quadratic: 1/m ) |
C " Quadratic ( linear: 1/s, quadratic: 1/m ) |
375 |
COMMON /PARM_R/ cg2dTargetResidual, cg2dpcOffDFac, |
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit, |
376 |
& cg3dTargetResidual, |
& cg2dpcOffDFac, cg3dTargetResidual, |
377 |
& delP, delZ, delR, delX, delY, |
& delP, delZ, delR, delX, delY, |
378 |
& deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime, |
& deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime, |
379 |
& phiMin, thetaMin, rSphere, recip_RSphere, f0, fCori, beta, |
& phiMin, thetaMin, rSphere, recip_RSphere, f0, beta, |
380 |
|
& fCori, fCoriG, |
381 |
& viscAh, viscAz, viscA4, viscAr, |
& viscAh, viscAz, viscA4, viscAr, |
382 |
& diffKhT, diffKzT, diffK4T, diffKrT, |
& diffKhT, diffKzT, diffK4T, diffKrT, |
383 |
& diffKhS, diffKzS, diffK4S, diffKrS, |
& diffKhS, diffKzS, diffK4S, diffKrS, |
384 |
& delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow, |
& delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow, |
385 |
& hFacMin, hFacMinDz, |
& hFacMin, hFacMinDz, hFacInf, hFacSup, |
386 |
& gravity, recip_Gravity, gBaro, rhonil, recip_rhonil, |
& gravity, recip_Gravity, gBaro, rhonil, recip_rhonil, |
387 |
& recip_rhoConst, rhoConst, tRef, sRef, |
& recip_rhoConst, rhoConst, tRef, sRef, |
388 |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq, |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq, |
397 |
& bottomDragLinear,bottomDragQuadratic |
& bottomDragLinear,bottomDragQuadratic |
398 |
|
|
399 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
400 |
|
_RL cg2dTargetResWunit |
401 |
_RL cg3dTargetResidual |
_RL cg3dTargetResidual |
402 |
_RL cg2dpcOffDFac |
_RL cg2dpcOffDFac |
403 |
_RL delZ(Nr) |
_RL delZ(Nr) |
422 |
_RL hFacMinDz |
_RL hFacMinDz |
423 |
_RL hFacMinDp |
_RL hFacMinDp |
424 |
_RL hFacMinDr |
_RL hFacMinDr |
425 |
|
_RL hFacInf |
426 |
|
_RL hFacSup |
427 |
_RL beta |
_RL beta |
428 |
_RL viscAh |
_RL viscAh |
429 |
_RL viscAz |
_RL viscAz |
454 |
_RL tRef(Nr) |
_RL tRef(Nr) |
455 |
_RL theta_S(Nr) |
_RL theta_S(Nr) |
456 |
_RL sRef(Nr) |
_RL sRef(Nr) |
457 |
_RS Fcori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS fCori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
458 |
|
_RS fCoriG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
459 |
_RL startTime |
_RL startTime |
460 |
_RL endTime |
_RL endTime |
461 |
_RL chkPtFreq |
_RL chkPtFreq |
509 |
LOGICAL useOBCS |
LOGICAL useOBCS |
510 |
LOGICAL useAIM |
LOGICAL useAIM |
511 |
LOGICAL useECCO |
LOGICAL useECCO |
512 |
|
LOGICAL useSHAP_FILT |
513 |
COMMON /PARM_PACKAGES/ |
COMMON /PARM_PACKAGES/ |
514 |
& useKPP, useGMRedi, useOBCS, useAIM, useECCO |
& useKPP, useGMRedi, useOBCS, useAIM, useECCO, useSHAP_FILT |
515 |
|
|