68 |
C surfQswFile :: File containing surface shortwave radiation |
C surfQswFile :: File containing surface shortwave radiation |
69 |
C dQdTfile :: File containing thermal relaxation coefficient |
C dQdTfile :: File containing thermal relaxation coefficient |
70 |
C EmPmRfile :: File containing surface fresh water flux |
C EmPmRfile :: File containing surface fresh water flux |
71 |
|
C saltFluxFile :: File containing surface salt flux |
72 |
C pLoadFile :: File containing pressure loading |
C pLoadFile :: File containing pressure loading |
73 |
C buoyancyRelation :: Flag used to indicate which relation to use to |
C buoyancyRelation :: Flag used to indicate which relation to use to |
74 |
C get buoyancy. |
C get buoyancy. |
80 |
& hydrogThetaFile, hydrogSaltFile, |
& hydrogThetaFile, hydrogSaltFile, |
81 |
& zonalWindFile, meridWindFile, thetaClimFile, |
& zonalWindFile, meridWindFile, thetaClimFile, |
82 |
& saltClimFile, buoyancyRelation, |
& saltClimFile, buoyancyRelation, |
83 |
& EmPmRfile, surfQfile, surfQnetFile, surfQswFile, |
& EmPmRfile, saltFluxFile, |
84 |
|
& surfQfile, surfQnetFile, surfQswFile, |
85 |
& uVelInitFile, vVelInitFile, pSurfInitFile, |
& uVelInitFile, vVelInitFile, pSurfInitFile, |
86 |
& dQdTfile, ploadFile, |
& dQdTfile, ploadFile, |
87 |
& eosType, pickupSuff, |
& eosType, pickupSuff, |
99 |
CHARACTER*(MAX_LEN_FNAM) surfQnetFile |
CHARACTER*(MAX_LEN_FNAM) surfQnetFile |
100 |
CHARACTER*(MAX_LEN_FNAM) surfQswFile |
CHARACTER*(MAX_LEN_FNAM) surfQswFile |
101 |
CHARACTER*(MAX_LEN_FNAM) EmPmRfile |
CHARACTER*(MAX_LEN_FNAM) EmPmRfile |
102 |
|
CHARACTER*(MAX_LEN_FNAM) saltFluxFile |
103 |
CHARACTER*(MAX_LEN_FNAM) buoyancyRelation |
CHARACTER*(MAX_LEN_FNAM) buoyancyRelation |
104 |
CHARACTER*(MAX_LEN_FNAM) uVelInitFile |
CHARACTER*(MAX_LEN_FNAM) uVelInitFile |
105 |
CHARACTER*(MAX_LEN_FNAM) vVelInitFile |
CHARACTER*(MAX_LEN_FNAM) vVelInitFile |
429 |
C momentum vertically ( units of r^2/s ) |
C momentum vertically ( units of r^2/s ) |
430 |
C viscA4 :: Biharmonic viscosity coeff. for mixing of |
C viscA4 :: Biharmonic viscosity coeff. for mixing of |
431 |
C momentum laterally ( m^4/s ) |
C momentum laterally ( m^4/s ) |
432 |
|
C viscA4W :: Biharmonic viscosity coeff. for mixing of vertical |
433 |
|
C momentum laterally, no effect for hydrostatic |
434 |
|
C model, defaults to viscA4 if unset ( m^2/s ) |
435 |
C viscAhD :: Eddy viscosity coeff. for mixing of momentum laterally |
C viscAhD :: Eddy viscosity coeff. for mixing of momentum laterally |
436 |
C (act on Divergence part) ( m^2/s ) |
C (act on Divergence part) ( m^2/s ) |
437 |
C viscAhZ :: Eddy viscosity coeff. for mixing of momentum laterally |
C viscAhZ :: Eddy viscosity coeff. for mixing of momentum laterally |
474 |
C Frequency of checkpointing and dumping of the model state |
C Frequency of checkpointing and dumping of the model state |
475 |
C are referenced to this clock. ( s ) |
C are referenced to this clock. ( s ) |
476 |
C deltaTMom :: Timestep for momemtum equations ( s ) |
C deltaTMom :: Timestep for momemtum equations ( s ) |
477 |
C deltaTtracer :: Timestep for tracer equations ( s ) |
C dTtracerLev :: Timestep for tracer equations ( s ), function of level k |
478 |
C deltaTfreesurf :: Timestep for free-surface equation ( s ) |
C deltaTfreesurf :: Timestep for free-surface equation ( s ) |
479 |
C freesurfFac :: Parameter to turn implicit free surface term on or off |
C freesurfFac :: Parameter to turn implicit free surface term on or off |
480 |
C freesurfac = 1. uses implicit free surface |
C freesurfac = 1. uses implicit free surface |
540 |
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit, |
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit, |
541 |
& cg2dpcOffDFac, cg3dTargetResidual, |
& cg2dpcOffDFac, cg3dTargetResidual, |
542 |
& delR, delRc, delX, delY, |
& delR, delRc, delX, delY, |
543 |
& deltaT, deltaTmom, deltaTtracer, deltaTfreesurf, deltaTClock, |
& deltaT, deltaTmom, dTtracerLev, deltaTfreesurf, deltaTClock, |
544 |
& abeps, startTime, |
& abeps, startTime, |
545 |
& phiMin, thetaMin, rSphere, recip_RSphere, f0, beta, |
& phiMin, thetaMin, rSphere, recip_RSphere, f0, beta, |
546 |
& fCori, fCoriG, fCoriCos, |
& fCori, fCoriG, fCoriCos, |
547 |
& viscAh, viscAhW, viscAhMax, viscAhGrid, viscC2leith, |
& viscAh, viscAhW, viscAhMax, viscAhGrid, viscC2leith, |
548 |
& viscAhD, viscAhZ, viscA4D, viscA4Z, |
& viscAhD, viscAhZ, viscA4D, viscA4Z, |
549 |
& viscA4, viscA4Max, viscA4Grid, viscA4GridMax, viscA4GridMin, |
& viscA4, viscA4W, |
550 |
|
& viscA4Max, viscA4Grid, viscA4GridMax, viscA4GridMin, |
551 |
& viscC4leith, viscAr, viscAstrain, viscAtension, |
& viscC4leith, viscAr, viscAstrain, viscAtension, |
552 |
& diffKhT, diffK4T, diffKrNrT, |
& diffKhT, diffK4T, diffKrNrT, |
553 |
& diffKhS, diffK4S, diffKrNrS, |
& diffKhS, diffK4S, diffKrNrS, |
583 |
_RL deltaT |
_RL deltaT |
584 |
_RL deltaTClock |
_RL deltaTClock |
585 |
_RL deltaTmom |
_RL deltaTmom |
586 |
_RL deltaTtracer |
_RL dTtracerLev(Nr) |
587 |
_RL deltaTfreesurf |
_RL deltaTfreesurf |
588 |
_RL abeps |
_RL abeps |
589 |
_RL phiMin |
_RL phiMin |
612 |
_RL viscAtension |
_RL viscAtension |
613 |
_RL viscAr |
_RL viscAr |
614 |
_RL viscA4 |
_RL viscA4 |
615 |
|
_RL viscA4W |
616 |
_RL viscA4D |
_RL viscA4D |
617 |
_RL viscA4Z |
_RL viscA4Z |
618 |
_RL viscA4Max |
_RL viscA4Max |