151 |
C writeStatePrec :: Precision used for writing model state. |
C writeStatePrec :: Precision used for writing model state. |
152 |
C writeBinaryPrec :: Precision used for writing binary files |
C writeBinaryPrec :: Precision used for writing binary files |
153 |
C readBinaryPrec :: Precision used for reading binary files |
C readBinaryPrec :: Precision used for reading binary files |
154 |
|
C selectCoriMap :: select setting of Coriolis parameter map: |
155 |
|
C =0 f-Plane (Constant Coriolis, = f0) |
156 |
|
C =1 Beta-Plane Coriolis (= f0 + beta.y) |
157 |
|
C =2 Spherical Coriolis (= 2.omega.sin(phi)) |
158 |
|
C =3 Read Coriolis 2-d fields from files. |
159 |
|
C selectSigmaCoord :: option related to sigma vertical coordinate |
160 |
C nonlinFreeSurf :: option related to non-linear free surface |
C nonlinFreeSurf :: option related to non-linear free surface |
161 |
C =0 Linear free surface ; >0 Non-linear |
C =0 Linear free surface ; >0 Non-linear |
162 |
C select_rStar :: option related to r* vertical coordinate |
C select_rStar :: option related to r* vertical coordinate |
163 |
C =0 (default) use r coord. ; > 0 use r* |
C =0 (default) use r coord. ; > 0 use r* |
164 |
C selectNHfreeSurf :: option for Non-Hydrostatic (free-)Surface formulation: |
C selectNHfreeSurf :: option for Non-Hydrostatic (free-)Surface formulation: |
165 |
C =0 (default) hydrostatic surf. ; > 0 add NH effects. |
C =0 (default) hydrostatic surf. ; > 0 add NH effects. |
|
C selectSigmaCoord :: option related to sigma vertical coordinate |
|
166 |
C selectAddFluid :: option to add mass source/sink of fluid in the interior |
C selectAddFluid :: option to add mass source/sink of fluid in the interior |
167 |
C (3-D generalisation of oceanic real-fresh water flux) |
C (3-D generalisation of oceanic real-fresh water flux) |
168 |
C =0 off ; =1 add fluid ; =-1 virtual flux (no mass added) |
C =0 off ; =1 add fluid ; =-1 virtual flux (no mass added) |
188 |
& nIter0, nTimeSteps, nEndIter, |
& nIter0, nTimeSteps, nEndIter, |
189 |
& writeStatePrec, |
& writeStatePrec, |
190 |
& writeBinaryPrec, readBinaryPrec, |
& writeBinaryPrec, readBinaryPrec, |
191 |
|
& selectCoriMap, |
192 |
|
& selectSigmaCoord, |
193 |
& nonlinFreeSurf, select_rStar, |
& nonlinFreeSurf, select_rStar, |
194 |
& selectNHfreeSurf, |
& selectNHfreeSurf, |
|
& selectSigmaCoord, |
|
195 |
& selectAddFluid, |
& selectAddFluid, |
196 |
& momForcingOutAB, tracForcingOutAB, |
& momForcingOutAB, tracForcingOutAB, |
197 |
& tempAdvScheme, tempVertAdvScheme, |
& tempAdvScheme, tempVertAdvScheme, |
209 |
INTEGER writeStatePrec |
INTEGER writeStatePrec |
210 |
INTEGER writeBinaryPrec |
INTEGER writeBinaryPrec |
211 |
INTEGER readBinaryPrec |
INTEGER readBinaryPrec |
212 |
|
INTEGER selectCoriMap |
213 |
|
INTEGER selectSigmaCoord |
214 |
INTEGER nonlinFreeSurf |
INTEGER nonlinFreeSurf |
215 |
INTEGER select_rStar |
INTEGER select_rStar |
216 |
INTEGER selectNHfreeSurf |
INTEGER selectNHfreeSurf |
|
INTEGER selectSigmaCoord |
|
217 |
INTEGER selectAddFluid |
INTEGER selectAddFluid |
218 |
INTEGER momForcingOutAB, tracForcingOutAB |
INTEGER momForcingOutAB, tracForcingOutAB |
219 |
INTEGER tempAdvScheme, tempVertAdvScheme |
INTEGER tempAdvScheme, tempVertAdvScheme |
264 |
C useNHMTerms :: If TRUE use non-hydrostatic metric terms. |
C useNHMTerms :: If TRUE use non-hydrostatic metric terms. |
265 |
C useCoriolis :: Flag which turns the coriolis terms on and off. |
C useCoriolis :: Flag which turns the coriolis terms on and off. |
266 |
C use3dCoriolis :: Turns the 3-D coriolis terms (in Omega.cos Phi) on - off |
C use3dCoriolis :: Turns the 3-D coriolis terms (in Omega.cos Phi) on - off |
|
C useConstantF :: Coriolis parameter set to f0 |
|
|
C useBetaPlaneF :: Coriolis parameter set to f0 + beta.y |
|
|
C useSphereF :: Coriolis parameter set to 2.omega.sin(phi) |
|
267 |
C useCDscheme :: use CD-scheme to calculate Coriolis terms. |
C useCDscheme :: use CD-scheme to calculate Coriolis terms. |
268 |
C vectorInvariantMomentum :: use Vector-Invariant form (mom_vecinv package) |
C vectorInvariantMomentum :: use Vector-Invariant form (mom_vecinv package) |
269 |
C (default = F = use mom_fluxform package) |
C (default = F = use mom_fluxform package) |
361 |
& momViscosity, momAdvection, momForcing, |
& momViscosity, momAdvection, momForcing, |
362 |
& momPressureForcing, metricTerms, useNHMTerms, |
& momPressureForcing, metricTerms, useNHMTerms, |
363 |
& useCoriolis, use3dCoriolis, |
& useCoriolis, use3dCoriolis, |
|
& useConstantF, useBetaPlaneF, useSphereF, |
|
364 |
& useCDscheme, vectorInvariantMomentum, |
& useCDscheme, vectorInvariantMomentum, |
365 |
& useEnergyConservingCoriolis, useJamartWetPoints, useJamartMomAdv, |
& useEnergyConservingCoriolis, useJamartWetPoints, useJamartMomAdv, |
366 |
& upwindVorticity, highOrderVorticity, |
& upwindVorticity, highOrderVorticity, |
440 |
LOGICAL tempStepping |
LOGICAL tempStepping |
441 |
LOGICAL saltStepping |
LOGICAL saltStepping |
442 |
LOGICAL metricTerms |
LOGICAL metricTerms |
|
LOGICAL useConstantF |
|
|
LOGICAL useBetaPlaneF |
|
|
LOGICAL useSphereF |
|
443 |
LOGICAL use3dCoriolis |
LOGICAL use3dCoriolis |
444 |
LOGICAL useCDscheme |
LOGICAL useCDscheme |
445 |
LOGICAL useEnergyConservingCoriolis |
LOGICAL useEnergyConservingCoriolis |
543 |
C f0 :: Reference coriolis parameter ( 1/s ) |
C f0 :: Reference coriolis parameter ( 1/s ) |
544 |
C ( Southern edge f for beta plane ) |
C ( Southern edge f for beta plane ) |
545 |
C beta :: df/dy ( s^-1.m^-1 ) |
C beta :: df/dy ( s^-1.m^-1 ) |
546 |
|
C fPrime :: Second Coriolis parameter ( 1/s ), related to Y-component |
547 |
|
C of rotation (reference value = 2.Omega.Cos(Phi)) |
548 |
C omega :: Angular velocity ( rad/s ) |
C omega :: Angular velocity ( rad/s ) |
549 |
C rotationPeriod :: Rotation period (s) (= 2.pi/omega) |
C rotationPeriod :: Rotation period (s) (= 2.pi/omega) |
550 |
C viscArNr :: vertical profile of Eddy viscosity coeff. |
C viscArNr :: vertical profile of Eddy viscosity coeff. |
707 |
& delR, delRc, delX, delY, |
& delR, delRc, delX, delY, |
708 |
& deltaT, deltaTmom, dTtracerLev, deltaTfreesurf, deltaTClock, |
& deltaT, deltaTmom, dTtracerLev, deltaTfreesurf, deltaTClock, |
709 |
& abEps, alph_AB, beta_AB, |
& abEps, alph_AB, beta_AB, |
710 |
& xgOrigin, ygOrigin, rSphere, recip_RSphere, f0, beta, |
& xgOrigin, ygOrigin, rSphere, recip_rSphere, |
711 |
|
& f0, beta, fPrime, omega, rotationPeriod, |
712 |
& viscFacAdj, viscAh, viscAhW, viscAhMax, |
& viscFacAdj, viscAh, viscAhW, viscAhMax, |
713 |
& viscAhGrid, viscAhGridMax, viscAhGridMin, |
& viscAhGrid, viscAhGridMax, viscAhGridMin, |
714 |
& viscC2leith, viscC2leithD, |
& viscC2leith, viscC2leithD, |
735 |
& chkPtFreq, pChkPtFreq, dumpFreq, adjDumpFreq, |
& chkPtFreq, pChkPtFreq, dumpFreq, adjDumpFreq, |
736 |
& diagFreq, taveFreq, tave_lastIter, monitorFreq, adjMonitorFreq, |
& diagFreq, taveFreq, tave_lastIter, monitorFreq, adjMonitorFreq, |
737 |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
738 |
& cosPower, cAdjFreq, omega, rotationPeriod, |
& cosPower, cAdjFreq, |
739 |
& tauThetaClimRelax, tauSaltClimRelax, latBandClimRelax, |
& tauThetaClimRelax, tauSaltClimRelax, latBandClimRelax, |
740 |
& externForcingCycle, externForcingPeriod, |
& externForcingCycle, externForcingPeriod, |
741 |
& convertFW2Salt, temp_EvPrRn, salt_EvPrRn, |
& convertFW2Salt, temp_EvPrRn, salt_EvPrRn, |
766 |
_RL rSphere |
_RL rSphere |
767 |
_RL recip_rSphere |
_RL recip_rSphere |
768 |
_RL f0 |
_RL f0 |
769 |
|
_RL beta |
770 |
|
_RL fPrime |
771 |
|
_RL omega |
772 |
|
_RL rotationPeriod |
773 |
_RL freeSurfFac |
_RL freeSurfFac |
774 |
_RL implicSurfPress |
_RL implicSurfPress |
775 |
_RL implicDiv2Dflow |
_RL implicDiv2Dflow |
780 |
_RL hFacMinDr |
_RL hFacMinDr |
781 |
_RL hFacInf |
_RL hFacInf |
782 |
_RL hFacSup |
_RL hFacSup |
|
_RL beta |
|
783 |
_RL viscArNr(Nr) |
_RL viscArNr(Nr) |
784 |
_RL viscFacAdj |
_RL viscFacAdj |
785 |
_RL viscAh |
_RL viscAh |
853 |
_RL mtFacMom |
_RL mtFacMom |
854 |
_RL cosPower |
_RL cosPower |
855 |
_RL cAdjFreq |
_RL cAdjFreq |
|
_RL omega |
|
|
_RL rotationPeriod |
|
856 |
_RL tauThetaClimRelax |
_RL tauThetaClimRelax |
857 |
_RL tauSaltClimRelax |
_RL tauSaltClimRelax |
858 |
_RL latBandClimRelax |
_RL latBandClimRelax |