67 |
C hydrogThetaFile :: File containing initial hydrographic data for potential |
C hydrogThetaFile :: File containing initial hydrographic data for potential |
68 |
C temperature. |
C temperature. |
69 |
C hydrogSaltFile :: File containing initial hydrographic data for salinity. |
C hydrogSaltFile :: File containing initial hydrographic data for salinity. |
70 |
|
C diffKr3dSfile :: File containing 3D specification of vertical salt diffusivity |
71 |
|
C diffKr3dTfile :: File containing 3D specification of vertical heat diffusivity |
72 |
C zonalWindFile :: File containing zonal wind data |
C zonalWindFile :: File containing zonal wind data |
73 |
C meridWindFile :: File containing meridional wind data |
C meridWindFile :: File containing meridional wind data |
74 |
C thetaClimFile :: File containing theta climataology used |
C thetaClimFile :: File containing theta climataology used |
96 |
& delXFile, delYFile, horizGridFile, |
& delXFile, delYFile, horizGridFile, |
97 |
& bathyFile, topoFile, shelfIceFile, |
& bathyFile, topoFile, shelfIceFile, |
98 |
& hydrogThetaFile, hydrogSaltFile, |
& hydrogThetaFile, hydrogSaltFile, |
99 |
|
& diffKr3dSfile, diffKr3dTfile, |
100 |
& zonalWindFile, meridWindFile, thetaClimFile, |
& zonalWindFile, meridWindFile, thetaClimFile, |
101 |
& saltClimFile, buoyancyRelation, |
& saltClimFile, buoyancyRelation, |
102 |
& EmPmRfile, saltFluxFile, |
& EmPmRfile, saltFluxFile, |
118 |
CHARACTER*(MAX_LEN_FNAM) delYFile |
CHARACTER*(MAX_LEN_FNAM) delYFile |
119 |
CHARACTER*(MAX_LEN_FNAM) horizGridFile |
CHARACTER*(MAX_LEN_FNAM) horizGridFile |
120 |
CHARACTER*(MAX_LEN_FNAM) bathyFile, topoFile, shelfIceFile |
CHARACTER*(MAX_LEN_FNAM) bathyFile, topoFile, shelfIceFile |
121 |
CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile |
CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile, hydrogSaltFile |
122 |
CHARACTER*(MAX_LEN_FNAM) hydrogSaltFile |
CHARACTER*(MAX_LEN_FNAM) diffKr3dSfile, diffKr3dTfile |
123 |
CHARACTER*(MAX_LEN_FNAM) zonalWindFile |
CHARACTER*(MAX_LEN_FNAM) zonalWindFile |
124 |
CHARACTER*(MAX_LEN_FNAM) meridWindFile |
CHARACTER*(MAX_LEN_FNAM) meridWindFile |
125 |
CHARACTER*(MAX_LEN_FNAM) thetaClimFile |
CHARACTER*(MAX_LEN_FNAM) thetaClimFile |
498 |
C dBdrRef :: vertical gradient of reference boyancy [(m/s/r)^2)]: |
C dBdrRef :: vertical gradient of reference boyancy [(m/s/r)^2)]: |
499 |
C :: z-coord: = N^2_ref = Brunt-Vaissala frequency [s^-2] |
C :: z-coord: = N^2_ref = Brunt-Vaissala frequency [s^-2] |
500 |
C :: p-coord: = -(d.alpha/dp)_ref [(m^2.s/kg)^2] |
C :: p-coord: = -(d.alpha/dp)_ref [(m^2.s/kg)^2] |
501 |
|
C rVel2wUnit :: units conversion factor (Non-Hydrostatic code), |
502 |
|
C :: from r-coordinate vertical velocity to vertical velocity [m/s]. |
503 |
|
C :: z-coord: = 1 ; p-coord: wSpeed [m/s] = rVel [Pa/s] * rVel2wUnit |
504 |
|
C wUnit2rVel :: units conversion factor (Non-Hydrostatic code), |
505 |
|
C :: from vertical velocity [m/s] to r-coordinate vertical velocity. |
506 |
|
C :: z-coord: = 1 ; p-coord: rVel [Pa/s] = wSpeed [m/s] * wUnit2rVel |
507 |
C phiMin :: Latitude of southern most cell face. |
C phiMin :: Latitude of southern most cell face. |
508 |
C thetaMin :: Longitude of western most cell face (this |
C thetaMin :: Longitude of western most cell face (this |
509 |
C is an "inert" parameter but it is included |
C is an "inert" parameter but it is included |
561 |
C heat laterally ( m^2/s ) |
C heat laterally ( m^2/s ) |
562 |
C diffKrNrT :: vertical profile of Laplacian diffusion coeff. |
C diffKrNrT :: vertical profile of Laplacian diffusion coeff. |
563 |
C for mixing of heat vertically ( units of r^2/s ) |
C for mixing of heat vertically ( units of r^2/s ) |
564 |
|
C diffKr3dT :: full 3D specification of Laplacian diffusion coeff. |
565 |
|
C for mixing of heat vertically ( units of r^2/s ) |
566 |
C diffK4T :: Biharmonic diffusion coeff. for mixing of |
C diffK4T :: Biharmonic diffusion coeff. for mixing of |
567 |
C heat laterally ( m^4/s ) |
C heat laterally ( m^4/s ) |
568 |
C diffKhS :: Laplacian diffusion coeff. for mixing of |
C diffKhS :: Laplacian diffusion coeff. for mixing of |
569 |
C salt laterally ( m^2/s ) |
C salt laterally ( m^2/s ) |
570 |
C diffKrNrS :: vertical profile of Laplacian diffusion coeff. |
C diffKrNrS :: vertical profile of Laplacian diffusion coeff. |
571 |
C for mixing of salt vertically ( units of r^2/s ), |
C for mixing of salt vertically ( units of r^2/s ), |
572 |
|
C diffKr3dS :: full 3D specification of Laplacian diffusion coeff. |
573 |
|
C for mixing of salt vertically ( units of r^2/s ) |
574 |
C diffK4S :: Biharmonic diffusion coeff. for mixing of |
C diffK4S :: Biharmonic diffusion coeff. for mixing of |
575 |
C salt laterally ( m^4/s ) |
C salt laterally ( m^4/s ) |
576 |
C diffKrBL79surf :: T/S surface diffusivity (m^2/s) Bryan and Lewis, 1979 |
C diffKrBL79surf :: T/S surface diffusivity (m^2/s) Bryan and Lewis, 1979 |
673 |
& viscA4Max, viscA4Grid, viscA4GridMax, viscA4GridMin, |
& viscA4Max, viscA4Grid, viscA4GridMax, viscA4GridMin, |
674 |
& viscAhRemax, viscA4Remax, |
& viscAhRemax, viscA4Remax, |
675 |
& viscC4leith, viscC4leithD, viscAr, |
& viscC4leith, viscC4leithD, viscAr, |
676 |
& diffKhT, diffK4T, diffKrNrT, |
& diffKhT, diffK4T, diffKrNrT, diffKr3dT, |
677 |
& diffKhS, diffK4S, diffKrNrS, |
& diffKhS, diffK4S, diffKrNrS, diffKr3dS, |
678 |
& diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho, |
& diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho, |
679 |
& delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow, |
& delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow, |
680 |
& hFacMin, hFacMinDz, hFacInf, hFacSup, |
& hFacMin, hFacMinDz, hFacInf, hFacSup, |
682 |
& rhonil, recip_rhonil, rhoConst, recip_rhoConst, |
& rhonil, recip_rhonil, rhoConst, recip_rhoConst, |
683 |
& rhoFacC, recip_rhoFacC, rhoFacF, recip_rhoFacF, |
& rhoFacC, recip_rhoFacC, rhoFacF, recip_rhoFacF, |
684 |
& rhoConstFresh, convertEmP2rUnit, tRef, sRef, phiRef, dBdrRef, |
& rhoConstFresh, convertEmP2rUnit, tRef, sRef, phiRef, dBdrRef, |
685 |
|
& rVel2wUnit, wUnit2rVel, |
686 |
& baseTime, startTime, endTime, |
& baseTime, startTime, endTime, |
687 |
& chkPtFreq, pChkPtFreq, dumpFreq, adjDumpFreq, |
& chkPtFreq, pChkPtFreq, dumpFreq, adjDumpFreq, |
688 |
& diagFreq, taveFreq, tave_lastIter, monitorFreq, adjMonitorFreq, |
& diagFreq, taveFreq, tave_lastIter, monitorFreq, adjMonitorFreq, |
753 |
_RL viscC4leithD |
_RL viscC4leithD |
754 |
_RL diffKhT |
_RL diffKhT |
755 |
_RL diffKrNrT(Nr) |
_RL diffKrNrT(Nr) |
756 |
|
_RL diffKr3dT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
757 |
_RL diffK4T |
_RL diffK4T |
758 |
_RL diffKhS |
_RL diffKhS |
759 |
_RL diffKrNrS(Nr) |
_RL diffKrNrS(Nr) |
760 |
|
_RL diffKr3dS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
761 |
_RL diffK4S |
_RL diffK4S |
762 |
_RL diffKrBL79surf |
_RL diffKrBL79surf |
763 |
_RL diffKrBL79deep |
_RL diffKrBL79deep |
779 |
_RL sRef(Nr) |
_RL sRef(Nr) |
780 |
_RL phiRef(2*Nr+1) |
_RL phiRef(2*Nr+1) |
781 |
_RL dBdrRef(Nr) |
_RL dBdrRef(Nr) |
782 |
|
_RL rVel2wUnit(Nr+1), wUnit2rVel(Nr+1) |
783 |
_RL baseTime |
_RL baseTime |
784 |
_RL startTime |
_RL startTime |
785 |
_RL endTime |
_RL endTime |
855 |
LOGICAL useMY82 |
LOGICAL useMY82 |
856 |
LOGICAL useGGL90 |
LOGICAL useGGL90 |
857 |
LOGICAL useKPP |
LOGICAL useKPP |
858 |
|
LOGICAL useGAD |
859 |
LOGICAL useGMRedi |
LOGICAL useGMRedi |
860 |
LOGICAL useOBCS |
LOGICAL useOBCS |
861 |
LOGICAL useAIM |
LOGICAL useAIM |
889 |
LOGICAL useMYPACKAGE |
LOGICAL useMYPACKAGE |
890 |
COMMON /PARM_PACKAGES/ |
COMMON /PARM_PACKAGES/ |
891 |
& useOPPS, usePP81, useMY82, useGGL90, useKPP, |
& useOPPS, usePP81, useMY82, useGGL90, useKPP, |
892 |
& useGMRedi, useOBCS, useAIM, useLand, |
& useGAD, useGMRedi, useOBCS, useAIM, useLand, |
893 |
& useCAL, useEXF, useEBM, useGrdchk, useECCO, |
& useCAL, useEXF, useEBM, useGrdchk, useECCO, |
894 |
& useSHAP_FILT, useZONAL_FILT, useFLT, |
& useSHAP_FILT, useZONAL_FILT, useFLT, |
895 |
& usePTRACERS, useGCHEM, useRBCS, useOffLine, useMATRIX, |
& usePTRACERS, useGCHEM, useRBCS, useOffLine, useMATRIX, |