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 |
299 |
& readPickupWithTracer, writePickupWithTracer, |
& readPickupWithTracer, writePickupWithTracer, |
300 |
& pickup_read_mdsio, pickup_write_mdsio, pickup_write_immed, |
& pickup_read_mdsio, pickup_write_mdsio, pickup_write_immed, |
301 |
& timeave_mdsio, snapshot_mdsio, monitor_stdio, |
& timeave_mdsio, snapshot_mdsio, monitor_stdio, |
302 |
& outputTypesInclusive |
& outputTypesInclusive, |
303 |
|
& inAdMode, inAdTrue, inAdFalse, inAdExact |
304 |
|
|
305 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
306 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
375 |
LOGICAL pickup_write_immed |
LOGICAL pickup_write_immed |
376 |
LOGICAL timeave_mdsio, snapshot_mdsio, monitor_stdio |
LOGICAL timeave_mdsio, snapshot_mdsio, monitor_stdio |
377 |
LOGICAL outputTypesInclusive |
LOGICAL outputTypesInclusive |
378 |
|
LOGICAL inAdMode, inAdTrue, inAdFalse, inAdExact |
379 |
|
|
380 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
381 |
C cg2dTargetResidual |
C cg2dTargetResidual |
431 |
C momentum vertically ( units of r^2/s ) |
C momentum vertically ( units of r^2/s ) |
432 |
C viscA4 :: Biharmonic viscosity coeff. for mixing of |
C viscA4 :: Biharmonic viscosity coeff. for mixing of |
433 |
C momentum laterally ( m^4/s ) |
C momentum laterally ( m^4/s ) |
434 |
|
C viscA4W :: Biharmonic viscosity coeff. for mixing of vertical |
435 |
|
C momentum laterally, no effect for hydrostatic |
436 |
|
C model, defaults to viscA4 if unset ( m^2/s ) |
437 |
C viscAhD :: Eddy viscosity coeff. for mixing of momentum laterally |
C viscAhD :: Eddy viscosity coeff. for mixing of momentum laterally |
438 |
C (act on Divergence part) ( m^2/s ) |
C (act on Divergence part) ( m^2/s ) |
439 |
C viscAhZ :: Eddy viscosity coeff. for mixing of momentum laterally |
C viscAhZ :: Eddy viscosity coeff. for mixing of momentum laterally |
548 |
& fCori, fCoriG, fCoriCos, |
& fCori, fCoriG, fCoriCos, |
549 |
& viscAh, viscAhW, viscAhMax, viscAhGrid, viscC2leith, |
& viscAh, viscAhW, viscAhMax, viscAhGrid, viscC2leith, |
550 |
& viscAhD, viscAhZ, viscA4D, viscA4Z, |
& viscAhD, viscAhZ, viscA4D, viscA4Z, |
551 |
& viscA4, viscA4Max, viscA4Grid, viscA4GridMax, viscA4GridMin, |
& viscA4, viscA4W, |
552 |
|
& viscA4Max, viscA4Grid, viscA4GridMax, viscA4GridMin, |
553 |
& viscC4leith, viscAr, viscAstrain, viscAtension, |
& viscC4leith, viscAr, viscAstrain, viscAtension, |
554 |
& diffKhT, diffK4T, diffKrNrT, |
& diffKhT, diffK4T, diffKrNrT, |
555 |
& diffKhS, diffK4S, diffKrNrS, |
& diffKhS, diffK4S, diffKrNrS, |
560 |
& recip_rhoConst, rhoConst, |
& recip_rhoConst, rhoConst, |
561 |
& rhoConstFresh, convertEmP2rUnit, tRef, sRef, |
& rhoConstFresh, convertEmP2rUnit, tRef, sRef, |
562 |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, adjDumpFreq, |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, adjDumpFreq, |
563 |
& diagFreq, taveFreq, tave_lastIter, monitorFreq, |
& diagFreq, taveFreq, tave_lastIter, monitorFreq, adjMonitorFreq, |
564 |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
565 |
& cosPower, cAdjFreq, omega, rotationPeriod, |
& cosPower, cAdjFreq, omega, rotationPeriod, |
566 |
& tauThetaClimRelax, lambdaThetaClimRelax, |
& tauThetaClimRelax, lambdaThetaClimRelax, |
572 |
& horiVertRatio, recip_horiVertRatio, |
& horiVertRatio, recip_horiVertRatio, |
573 |
& ivdc_kappa, Ro_SeaLevel, |
& ivdc_kappa, Ro_SeaLevel, |
574 |
& bottomDragLinear,bottomDragQuadratic, |
& bottomDragLinear,bottomDragQuadratic, |
575 |
& tCyl |
& tCylIn, tCylOut |
576 |
|
|
577 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
578 |
_RL cg2dTargetResWunit |
_RL cg2dTargetResWunit |
614 |
_RL viscAtension |
_RL viscAtension |
615 |
_RL viscAr |
_RL viscAr |
616 |
_RL viscA4 |
_RL viscA4 |
617 |
|
_RL viscA4W |
618 |
_RL viscA4D |
_RL viscA4D |
619 |
_RL viscA4Z |
_RL viscA4Z |
620 |
_RL viscA4Max |
_RL viscA4Max |
657 |
_RL taveFreq |
_RL taveFreq |
658 |
_RL tave_lastIter |
_RL tave_lastIter |
659 |
_RL monitorFreq |
_RL monitorFreq |
660 |
|
_RL adjMonitorFreq |
661 |
_RL afFacMom |
_RL afFacMom |
662 |
_RL vfFacMom |
_RL vfFacMom |
663 |
_RL pfFacMom |
_RL pfFacMom |
686 |
_RL Ro_SeaLevel |
_RL Ro_SeaLevel |
687 |
_RL bottomDragLinear |
_RL bottomDragLinear |
688 |
_RL bottomDragQuadratic |
_RL bottomDragQuadratic |
689 |
_RL tCyl |
_RL tCylIn |
690 |
|
_RL tCylOut |
691 |
|
|
692 |
C-- COMMON /PARM_A/ Thermodynamics constants ? |
C-- COMMON /PARM_A/ Thermodynamics constants ? |
693 |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp |