33 |
C and read pickup files with this suffix (max 10 Char.) |
C and read pickup files with this suffix (max 10 Char.) |
34 |
C mdsioLocalDir :: read-write tiled file from/to this directory name |
C mdsioLocalDir :: read-write tiled file from/to this directory name |
35 |
C (+ 4 digits Processor-Rank) instead of current dir. |
C (+ 4 digits Processor-Rank) instead of current dir. |
36 |
|
C adTapeDir :: read-write checkpointing tape files from/to this |
37 |
|
C directory name instead of current dir. Conflicts |
38 |
|
C mdsioLocalDir, so only one of the two can be set. |
39 |
|
C In contrast to mdsioLocalDir, if specified adTapeDir |
40 |
|
C must exist before the model starts. |
41 |
C tRefFile :: File containing reference Potential Temperat. tRef (1.D) |
C tRefFile :: File containing reference Potential Temperat. tRef (1.D) |
42 |
C sRefFile :: File containing reference salinity/spec.humid. sRef (1.D) |
C sRefFile :: File containing reference salinity/spec.humid. sRef (1.D) |
43 |
C rhoRefFile :: File containing reference density profile rhoRef (1.D) |
C rhoRefFile :: File containing reference density profile rhoRef (1.D) |
44 |
C delRFile :: File containing vertical grid spacing delR (1.D array) |
C delRFile :: File containing vertical grid spacing delR (1.D array) |
45 |
C delRcFile :: File containing vertical grid spacing delRc (1.D array) |
C delRcFile :: File containing vertical grid spacing delRc (1.D array) |
46 |
|
C hybSigmFile :: File containing hybrid-sigma vertical coord. coeff. (2x 1.D) |
47 |
C delXFile :: File containing X-spacing grid definition (1.D array) |
C delXFile :: File containing X-spacing grid definition (1.D array) |
48 |
C delYFile :: File containing Y-spacing grid definition (1.D array) |
C delYFile :: File containing Y-spacing grid definition (1.D array) |
49 |
C horizGridFile :: File containing horizontal-grid definition |
C horizGridFile :: File containing horizontal-grid definition |
83 |
C the_run_name :: string identifying the name of the model "run" |
C the_run_name :: string identifying the name of the model "run" |
84 |
COMMON /PARM_C/ |
COMMON /PARM_C/ |
85 |
& buoyancyRelation, eosType, |
& buoyancyRelation, eosType, |
86 |
& pickupSuff, mdsioLocalDir, |
& pickupSuff, mdsioLocalDir, adTapeDir, |
87 |
& tRefFile, sRefFile, rhoRefFile, |
& tRefFile, sRefFile, rhoRefFile, |
88 |
& delRFile, delRcFile, |
& delRFile, delRcFile, hybSigmFile, |
89 |
& delXFile, delYFile, horizGridFile, |
& delXFile, delYFile, horizGridFile, |
90 |
& bathyFile, topoFile, |
& bathyFile, topoFile, |
91 |
& viscAhDfile, viscAhZfile, |
& viscAhDfile, viscAhZfile, |
104 |
CHARACTER*(6) eosType |
CHARACTER*(6) eosType |
105 |
CHARACTER*(10) pickupSuff |
CHARACTER*(10) pickupSuff |
106 |
CHARACTER*(MAX_LEN_FNAM) mdsioLocalDir |
CHARACTER*(MAX_LEN_FNAM) mdsioLocalDir |
107 |
|
CHARACTER*(MAX_LEN_FNAM) adTapeDir |
108 |
CHARACTER*(MAX_LEN_FNAM) tRefFile |
CHARACTER*(MAX_LEN_FNAM) tRefFile |
109 |
CHARACTER*(MAX_LEN_FNAM) sRefFile |
CHARACTER*(MAX_LEN_FNAM) sRefFile |
110 |
CHARACTER*(MAX_LEN_FNAM) rhoRefFile |
CHARACTER*(MAX_LEN_FNAM) rhoRefFile |
111 |
CHARACTER*(MAX_LEN_FNAM) delRFile |
CHARACTER*(MAX_LEN_FNAM) delRFile |
112 |
CHARACTER*(MAX_LEN_FNAM) delRcFile |
CHARACTER*(MAX_LEN_FNAM) delRcFile |
113 |
|
CHARACTER*(MAX_LEN_FNAM) hybSigmFile |
114 |
CHARACTER*(MAX_LEN_FNAM) delXFile |
CHARACTER*(MAX_LEN_FNAM) delXFile |
115 |
CHARACTER*(MAX_LEN_FNAM) delYFile |
CHARACTER*(MAX_LEN_FNAM) delYFile |
116 |
CHARACTER*(MAX_LEN_FNAM) horizGridFile |
CHARACTER*(MAX_LEN_FNAM) horizGridFile |
157 |
C writeStatePrec :: Precision used for writing model state. |
C writeStatePrec :: Precision used for writing model state. |
158 |
C writeBinaryPrec :: Precision used for writing binary files |
C writeBinaryPrec :: Precision used for writing binary files |
159 |
C readBinaryPrec :: Precision used for reading binary files |
C readBinaryPrec :: Precision used for reading binary files |
160 |
|
C selectCoriMap :: select setting of Coriolis parameter map: |
161 |
|
C =0 f-Plane (Constant Coriolis, = f0) |
162 |
|
C =1 Beta-Plane Coriolis (= f0 + beta.y) |
163 |
|
C =2 Spherical Coriolis (= 2.omega.sin(phi)) |
164 |
|
C =3 Read Coriolis 2-d fields from files. |
165 |
|
C selectSigmaCoord :: option related to sigma vertical coordinate |
166 |
C nonlinFreeSurf :: option related to non-linear free surface |
C nonlinFreeSurf :: option related to non-linear free surface |
167 |
C =0 Linear free surface ; >0 Non-linear |
C =0 Linear free surface ; >0 Non-linear |
168 |
C select_rStar :: option related to r* vertical coordinate |
C select_rStar :: option related to r* vertical coordinate |
184 |
C selectVortScheme :: Scheme selector for Vorticity term (Vector Inv.) |
C selectVortScheme :: Scheme selector for Vorticity term (Vector Inv.) |
185 |
C monitorSelect :: select group of variables to monitor |
C monitorSelect :: select group of variables to monitor |
186 |
C =1 : dynvars ; =2 : + vort ; =3 : + surface |
C =1 : dynvars ; =2 : + vort ; =3 : + surface |
187 |
C debugLevel :: debug level selector: higher -> more writing |
C- debugLevel :: controls printing of algorithm intermediate results |
188 |
|
C and statistics ; higher -> more writing |
189 |
|
|
190 |
COMMON /PARM_I/ |
COMMON /PARM_I/ |
191 |
& cg2dMaxIters, |
& cg2dMaxIters, |
195 |
& nIter0, nTimeSteps, nEndIter, |
& nIter0, nTimeSteps, nEndIter, |
196 |
& writeStatePrec, |
& writeStatePrec, |
197 |
& writeBinaryPrec, readBinaryPrec, |
& writeBinaryPrec, readBinaryPrec, |
198 |
|
& selectCoriMap, |
199 |
|
& selectSigmaCoord, |
200 |
& nonlinFreeSurf, select_rStar, |
& nonlinFreeSurf, select_rStar, |
201 |
& selectNHfreeSurf, |
& selectNHfreeSurf, |
202 |
& selectAddFluid, |
& selectAddFluid, |
216 |
INTEGER writeStatePrec |
INTEGER writeStatePrec |
217 |
INTEGER writeBinaryPrec |
INTEGER writeBinaryPrec |
218 |
INTEGER readBinaryPrec |
INTEGER readBinaryPrec |
219 |
|
INTEGER selectCoriMap |
220 |
|
INTEGER selectSigmaCoord |
221 |
INTEGER nonlinFreeSurf |
INTEGER nonlinFreeSurf |
222 |
INTEGER select_rStar |
INTEGER select_rStar |
223 |
INTEGER selectNHfreeSurf |
INTEGER selectNHfreeSurf |
271 |
C useNHMTerms :: If TRUE use non-hydrostatic metric terms. |
C useNHMTerms :: If TRUE use non-hydrostatic metric terms. |
272 |
C useCoriolis :: Flag which turns the coriolis terms on and off. |
C useCoriolis :: Flag which turns the coriolis terms on and off. |
273 |
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) |
|
274 |
C useCDscheme :: use CD-scheme to calculate Coriolis terms. |
C useCDscheme :: use CD-scheme to calculate Coriolis terms. |
275 |
C vectorInvariantMomentum :: use Vector-Invariant form (mom_vecinv package) |
C vectorInvariantMomentum :: use Vector-Invariant form (mom_vecinv package) |
276 |
C (default = F = use mom_fluxform package) |
C (default = F = use mom_fluxform package) |
356 |
C monitor_stdio :: use stdio for monitor output |
C monitor_stdio :: use stdio for monitor output |
357 |
C dumpInitAndLast :: dumps model state to files at Initial (nIter0) |
C dumpInitAndLast :: dumps model state to files at Initial (nIter0) |
358 |
C & Last iteration, in addition multiple of dumpFreq iter. |
C & Last iteration, in addition multiple of dumpFreq iter. |
359 |
|
C debugMode :: controls printing of debug msg (sequence of S/R calls). |
360 |
|
C printDomain :: controls printing of domain fields (bathy, hFac ...). |
361 |
|
|
362 |
COMMON /PARM_L/ |
COMMON /PARM_L/ |
363 |
& fluidIsAir, fluidIsWater, |
& fluidIsAir, fluidIsWater, |
370 |
& momViscosity, momAdvection, momForcing, |
& momViscosity, momAdvection, momForcing, |
371 |
& momPressureForcing, metricTerms, useNHMTerms, |
& momPressureForcing, metricTerms, useNHMTerms, |
372 |
& useCoriolis, use3dCoriolis, |
& useCoriolis, use3dCoriolis, |
|
& useConstantF, useBetaPlaneF, useSphereF, |
|
373 |
& useCDscheme, vectorInvariantMomentum, |
& useCDscheme, vectorInvariantMomentum, |
374 |
& useEnergyConservingCoriolis, useJamartWetPoints, useJamartMomAdv, |
& useEnergyConservingCoriolis, useJamartWetPoints, useJamartMomAdv, |
375 |
& upwindVorticity, highOrderVorticity, |
& upwindVorticity, highOrderVorticity, |
378 |
& tempAdvection, tempIsActiveTr, tempForcing, |
& tempAdvection, tempIsActiveTr, tempForcing, |
379 |
& saltAdvection, saltIsActiveTr, saltForcing, |
& saltAdvection, saltIsActiveTr, saltForcing, |
380 |
& maskIniTemp, maskIniSalt, checkIniTemp, checkIniSalt, |
& maskIniTemp, maskIniSalt, checkIniTemp, checkIniSalt, |
381 |
& useRealFreshWaterFlux, |
& useRealFreshWaterFlux, useSRCGSolver, |
382 |
& rigidLid, implicitFreeSurface, exactConserv, linFSConserveTr, |
& rigidLid, implicitFreeSurface, exactConserv, linFSConserveTr, |
383 |
& uniformLin_PhiSurf, |
& uniformLin_PhiSurf, |
384 |
& quasiHydrostatic, nonHydrostatic, |
& quasiHydrostatic, nonHydrostatic, |
396 |
& pickup_read_mdsio, pickup_write_mdsio, pickup_write_immed, |
& pickup_read_mdsio, pickup_write_mdsio, pickup_write_immed, |
397 |
& writePickupAtEnd, |
& writePickupAtEnd, |
398 |
& timeave_mdsio, snapshot_mdsio, monitor_stdio, |
& timeave_mdsio, snapshot_mdsio, monitor_stdio, |
399 |
& outputTypesInclusive, dumpInitAndLast, debugMode, |
& outputTypesInclusive, dumpInitAndLast, |
400 |
& inAdMode, inAdTrue, inAdFalse, inAdExact, |
& debugMode, printDomain, |
401 |
& useSRCGSolver |
& inAdMode, inAdTrue, inAdFalse, inAdExact |
402 |
|
|
403 |
LOGICAL fluidIsAir |
LOGICAL fluidIsAir |
404 |
LOGICAL fluidIsWater |
LOGICAL fluidIsWater |
415 |
LOGICAL useNHMTerms |
LOGICAL useNHMTerms |
416 |
LOGICAL no_slip_sides |
LOGICAL no_slip_sides |
417 |
LOGICAL no_slip_bottom |
LOGICAL no_slip_bottom |
418 |
|
LOGICAL useFullLeith |
419 |
|
LOGICAL useStrainTensionVisc |
420 |
|
LOGICAL useAreaViscLength |
421 |
LOGICAL momViscosity |
LOGICAL momViscosity |
422 |
LOGICAL momAdvection |
LOGICAL momAdvection |
423 |
LOGICAL momForcing |
LOGICAL momForcing |
435 |
LOGICAL checkIniTemp |
LOGICAL checkIniTemp |
436 |
LOGICAL checkIniSalt |
LOGICAL checkIniSalt |
437 |
LOGICAL useRealFreshWaterFlux |
LOGICAL useRealFreshWaterFlux |
438 |
LOGICAL useFullLeith |
LOGICAL useSRCGSolver |
|
LOGICAL useStrainTensionVisc |
|
|
LOGICAL useAreaViscLength |
|
439 |
LOGICAL rigidLid |
LOGICAL rigidLid |
440 |
LOGICAL implicitFreeSurface |
LOGICAL implicitFreeSurface |
441 |
LOGICAL exactConserv |
LOGICAL exactConserv |
450 |
LOGICAL tempStepping |
LOGICAL tempStepping |
451 |
LOGICAL saltStepping |
LOGICAL saltStepping |
452 |
LOGICAL metricTerms |
LOGICAL metricTerms |
|
LOGICAL useConstantF |
|
|
LOGICAL useBetaPlaneF |
|
|
LOGICAL useSphereF |
|
453 |
LOGICAL use3dCoriolis |
LOGICAL use3dCoriolis |
454 |
LOGICAL useCDscheme |
LOGICAL useCDscheme |
455 |
LOGICAL useEnergyConservingCoriolis |
LOGICAL useEnergyConservingCoriolis |
485 |
LOGICAL timeave_mdsio, snapshot_mdsio, monitor_stdio |
LOGICAL timeave_mdsio, snapshot_mdsio, monitor_stdio |
486 |
LOGICAL outputTypesInclusive |
LOGICAL outputTypesInclusive |
487 |
LOGICAL dumpInitAndLast |
LOGICAL dumpInitAndLast |
488 |
LOGICAL debugMode |
LOGICAL debugMode, printDomain |
489 |
LOGICAL inAdMode, inAdTrue, inAdFalse, inAdExact |
LOGICAL inAdMode, inAdTrue, inAdFalse, inAdExact |
|
LOGICAL useSRCGSolver |
|
490 |
|
|
491 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
492 |
C cg2dTargetResidual |
C cg2dTargetResidual |
513 |
C delRc :: Vertical grid spacing between cell centers (r unit). |
C delRc :: Vertical grid spacing between cell centers (r unit). |
514 |
C delX :: Separation between cell faces (m) or (deg), depending |
C delX :: Separation between cell faces (m) or (deg), depending |
515 |
C delY on input flags. |
C delY on input flags. |
516 |
|
C xgOrigin :: Origin of the X-axis (Cartesian Grid) / Longitude of Western |
517 |
|
C :: most cell face (Lat-Lon grid) (Note: this is an "inert" |
518 |
|
C :: parameter but it makes geographical references simple.) |
519 |
|
C ygOrigin :: Origin of the Y-axis (Cartesian Grid) / Latitude of Southern |
520 |
|
C :: most face (Lat-Lon grid). |
521 |
C gravity :: Accel. due to gravity ( m/s^2 ) |
C gravity :: Accel. due to gravity ( m/s^2 ) |
522 |
C recip_gravity and its inverse |
C recip_gravity and its inverse |
523 |
C gBaro :: Accel. due to gravity used in barotropic equation ( m/s^2 ) |
C gBaro :: Accel. due to gravity used in barotropic equation ( m/s^2 ) |
547 |
C :: from vertical r-coordinate unit to mass per unit area [kg/m2]. |
C :: from vertical r-coordinate unit to mass per unit area [kg/m2]. |
548 |
C :: z-coord: = rhoConst ( [m] * rho = [kg/m2] ) ; |
C :: z-coord: = rhoConst ( [m] * rho = [kg/m2] ) ; |
549 |
C :: p-coord: = 1/gravity ( [Pa] / g = [kg/m2] ) ; |
C :: p-coord: = 1/gravity ( [Pa] / g = [kg/m2] ) ; |
|
C xgOrigin :: Origin of the X-axis (Cartesian Grid) / Longitude of Western |
|
|
C :: most cell face (Lat-Lon grid) (Note: this is an "inert" |
|
|
C :: parameter but it makes geographical references simple.) |
|
|
C ygOrigin :: Origin of the Y-axis (Cartesian Grid) / Latitude of Southern |
|
|
C :: most face (Lat-Lon grid). |
|
550 |
C rSphere :: Radius of sphere for a spherical polar grid ( m ). |
C rSphere :: Radius of sphere for a spherical polar grid ( m ). |
551 |
C recip_rSphere :: Reciprocal radius of sphere ( m ). |
C recip_rSphere :: Reciprocal radius of sphere ( m ). |
552 |
|
C radius_fromHorizGrid :: sphere Radius of input horiz. grid (Curvilinear Grid) |
553 |
C f0 :: Reference coriolis parameter ( 1/s ) |
C f0 :: Reference coriolis parameter ( 1/s ) |
554 |
C ( Southern edge f for beta plane ) |
C ( Southern edge f for beta plane ) |
555 |
C beta :: df/dy ( s^-1.m^-1 ) |
C beta :: df/dy ( s^-1.m^-1 ) |
556 |
|
C fPrime :: Second Coriolis parameter ( 1/s ), related to Y-component |
557 |
|
C of rotation (reference value = 2.Omega.Cos(Phi)) |
558 |
C omega :: Angular velocity ( rad/s ) |
C omega :: Angular velocity ( rad/s ) |
559 |
C rotationPeriod :: Rotation period (s) (= 2.pi/omega) |
C rotationPeriod :: Rotation period (s) (= 2.pi/omega) |
560 |
C viscArNr :: vertical profile of Eddy viscosity coeff. |
C viscArNr :: vertical profile of Eddy viscosity coeff. |
698 |
C ivdc_kappa :: implicit vertical diffusivity for convection [m^2/s] |
C ivdc_kappa :: implicit vertical diffusivity for convection [m^2/s] |
699 |
C Ro_SeaLevel :: standard position of Sea-Level in "R" coordinate, used as |
C Ro_SeaLevel :: standard position of Sea-Level in "R" coordinate, used as |
700 |
C starting value (k=1) for vertical coordinate (rf(1)=Ro_SeaLevel) |
C starting value (k=1) for vertical coordinate (rf(1)=Ro_SeaLevel) |
701 |
|
C rSigmaBnd :: vertical position (in r-unit) of r/sigma transition (Hybrid-Sigma) |
702 |
C sideDragFactor :: side-drag scaling factor (used only if no_slip_sides) |
C sideDragFactor :: side-drag scaling factor (used only if no_slip_sides) |
703 |
C (default=2: full drag ; =1: gives half-slip BC) |
C (default=2: full drag ; =1: gives half-slip BC) |
704 |
C bottomDragLinear :: Linear bottom-drag coefficient (units of [r]/s) |
C bottomDragLinear :: Linear bottom-drag coefficient (units of [r]/s) |
714 |
C psiEuler :: Euler angle, rotation about new z-axis |
C psiEuler :: Euler angle, rotation about new z-axis |
715 |
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit, |
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit, |
716 |
& cg2dpcOffDFac, cg3dTargetResidual, |
& cg2dpcOffDFac, cg3dTargetResidual, |
717 |
& delR, delRc, delX, delY, |
& delR, delRc, delX, delY, xgOrigin, ygOrigin, |
718 |
& deltaT, deltaTmom, dTtracerLev, deltaTfreesurf, deltaTClock, |
& deltaT, deltaTmom, dTtracerLev, deltaTfreesurf, deltaTClock, |
719 |
& abEps, alph_AB, beta_AB, |
& abEps, alph_AB, beta_AB, |
720 |
& xgOrigin, ygOrigin, rSphere, recip_RSphere, f0, beta, |
& rSphere, recip_rSphere, radius_fromHorizGrid, |
721 |
& viscAh, viscAhW, viscAhMax, |
& f0, beta, fPrime, omega, rotationPeriod, |
722 |
|
& viscFacAdj, viscAh, viscAhW, viscAhMax, |
723 |
& viscAhGrid, viscAhGridMax, viscAhGridMin, |
& viscAhGrid, viscAhGridMax, viscAhGridMin, |
724 |
& viscC2leith, viscC2leithD, |
& viscC2leith, viscC2leithD, |
725 |
& viscC2smag, viscC4smag, |
& viscC2smag, viscC4smag, |
745 |
& chkPtFreq, pChkPtFreq, dumpFreq, adjDumpFreq, |
& chkPtFreq, pChkPtFreq, dumpFreq, adjDumpFreq, |
746 |
& diagFreq, taveFreq, tave_lastIter, monitorFreq, adjMonitorFreq, |
& diagFreq, taveFreq, tave_lastIter, monitorFreq, adjMonitorFreq, |
747 |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
748 |
& cosPower, cAdjFreq, omega, rotationPeriod, |
& cosPower, cAdjFreq, |
749 |
& tauThetaClimRelax, tauSaltClimRelax, latBandClimRelax, |
& tauThetaClimRelax, tauSaltClimRelax, latBandClimRelax, |
750 |
& externForcingCycle, externForcingPeriod, |
& externForcingCycle, externForcingPeriod, |
751 |
& convertFW2Salt, temp_EvPrRn, salt_EvPrRn, |
& convertFW2Salt, temp_EvPrRn, salt_EvPrRn, |
752 |
& temp_addMass, salt_addMass, hFacMinDr, hFacMinDp, |
& temp_addMass, salt_addMass, hFacMinDr, hFacMinDp, |
753 |
& ivdc_kappa, hMixCriteria, dRhoSmall, hMixSmooth, Ro_SeaLevel, |
& ivdc_kappa, hMixCriteria, dRhoSmall, hMixSmooth, |
754 |
|
& Ro_SeaLevel, rSigmaBnd, |
755 |
& sideDragFactor, bottomDragLinear, bottomDragQuadratic, nh_Am2, |
& sideDragFactor, bottomDragLinear, bottomDragQuadratic, nh_Am2, |
756 |
& smoothAbsFuncRange, |
& smoothAbsFuncRange, |
757 |
& tCylIn, tCylOut, |
& tCylIn, tCylOut, |
765 |
_RL delRc(Nr+1) |
_RL delRc(Nr+1) |
766 |
_RL delX(Nx) |
_RL delX(Nx) |
767 |
_RL delY(Ny) |
_RL delY(Ny) |
768 |
|
_RL xgOrigin |
769 |
|
_RL ygOrigin |
770 |
_RL deltaT |
_RL deltaT |
771 |
_RL deltaTClock |
_RL deltaTClock |
772 |
_RL deltaTmom |
_RL deltaTmom |
773 |
_RL dTtracerLev(Nr) |
_RL dTtracerLev(Nr) |
774 |
_RL deltaTfreesurf |
_RL deltaTfreesurf |
775 |
_RL abEps, alph_AB, beta_AB |
_RL abEps, alph_AB, beta_AB |
|
_RL xgOrigin |
|
|
_RL ygOrigin |
|
776 |
_RL rSphere |
_RL rSphere |
777 |
_RL recip_rSphere |
_RL recip_rSphere |
778 |
|
_RL radius_fromHorizGrid |
779 |
_RL f0 |
_RL f0 |
780 |
|
_RL beta |
781 |
|
_RL fPrime |
782 |
|
_RL omega |
783 |
|
_RL rotationPeriod |
784 |
_RL freeSurfFac |
_RL freeSurfFac |
785 |
_RL implicSurfPress |
_RL implicSurfPress |
786 |
_RL implicDiv2Dflow |
_RL implicDiv2Dflow |
791 |
_RL hFacMinDr |
_RL hFacMinDr |
792 |
_RL hFacInf |
_RL hFacInf |
793 |
_RL hFacSup |
_RL hFacSup |
|
_RL beta |
|
794 |
_RL viscArNr(Nr) |
_RL viscArNr(Nr) |
795 |
|
_RL viscFacAdj |
796 |
_RL viscAh |
_RL viscAh |
797 |
_RL viscAhW |
_RL viscAhW |
798 |
_RL viscAhD |
_RL viscAhD |
864 |
_RL mtFacMom |
_RL mtFacMom |
865 |
_RL cosPower |
_RL cosPower |
866 |
_RL cAdjFreq |
_RL cAdjFreq |
|
_RL omega |
|
|
_RL rotationPeriod |
|
867 |
_RL tauThetaClimRelax |
_RL tauThetaClimRelax |
868 |
_RL tauSaltClimRelax |
_RL tauSaltClimRelax |
869 |
_RL latBandClimRelax |
_RL latBandClimRelax |
879 |
_RL dRhoSmall |
_RL dRhoSmall |
880 |
_RL hMixSmooth |
_RL hMixSmooth |
881 |
_RL Ro_SeaLevel |
_RL Ro_SeaLevel |
882 |
|
_RL rSigmaBnd |
883 |
_RL sideDragFactor |
_RL sideDragFactor |
884 |
_RL bottomDragLinear |
_RL bottomDragLinear |
885 |
_RL bottomDragQuadratic |
_RL bottomDragQuadratic |
971 |
& useDiagnostics, useREGRID, useLayers, useMNC, |
& useDiagnostics, useREGRID, useLayers, useMNC, |
972 |
& useRunClock, useEMBED_FILES, |
& useRunClock, useEMBED_FILES, |
973 |
& useMYPACKAGE |
& useMYPACKAGE |
974 |
|
|
975 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
976 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |
977 |
CEH3 ;;; End: *** |
CEH3 ;;; End: *** |