56 |
C saltClimFile - File containing salt climataology used |
C saltClimFile - File containing salt climataology used |
57 |
C in relaxation term -lambda(salt-salt*) |
C in relaxation term -lambda(salt-salt*) |
58 |
C surfQfile - File containing surface heat flux |
C surfQfile - File containing surface heat flux |
59 |
|
C surfQswfile - File containing surface shortwave radiation |
60 |
C EmPmRfile - File containing surface fresh water flux |
C EmPmRfile - File containing surface fresh water flux |
61 |
C buoyancyRelation - Flag used to indicate which relation to use to |
C buoyancyRelation - Flag used to indicate which relation to use to |
62 |
C get buoyancy. |
C get buoyancy. |
64 |
& bathyFile, hydrogThetaFile, hydrogSaltFile, |
& bathyFile, hydrogThetaFile, hydrogSaltFile, |
65 |
& zonalWindFile, meridWindFile, thetaClimFile, |
& zonalWindFile, meridWindFile, thetaClimFile, |
66 |
& saltClimFile, buoyancyRelation, |
& saltClimFile, buoyancyRelation, |
67 |
& EmPmRfile, surfQfile, |
& EmPmRfile, surfQfile, surfQswfile, |
68 |
& uVelInitFile, vVelInitFile, pSurfInitFile |
& uVelInitFile, vVelInitFile, pSurfInitFile |
69 |
CHARACTER*(5) checkPtSuff(maxNoChkptLev) |
CHARACTER*(5) checkPtSuff(maxNoChkptLev) |
70 |
CHARACTER*(MAX_LEN_FNAM) bathyFile |
CHARACTER*(MAX_LEN_FNAM) bathyFile |
75 |
CHARACTER*(MAX_LEN_FNAM) thetaClimFile |
CHARACTER*(MAX_LEN_FNAM) thetaClimFile |
76 |
CHARACTER*(MAX_LEN_FNAM) saltClimFile |
CHARACTER*(MAX_LEN_FNAM) saltClimFile |
77 |
CHARACTER*(MAX_LEN_FNAM) surfQfile |
CHARACTER*(MAX_LEN_FNAM) surfQfile |
78 |
|
CHARACTER*(MAX_LEN_FNAM) surfQswfile |
79 |
CHARACTER*(MAX_LEN_FNAM) EmPmRfile |
CHARACTER*(MAX_LEN_FNAM) EmPmRfile |
80 |
CHARACTER*(MAX_LEN_FNAM) buoyancyRelation |
CHARACTER*(MAX_LEN_FNAM) buoyancyRelation |
81 |
CHARACTER*(MAX_LEN_FNAM) uVelInitFile |
CHARACTER*(MAX_LEN_FNAM) uVelInitFile |
320 |
C hFacMinDr - Minimum dimesional size of a cell (affects hFacC etc..., units of r) |
C hFacMinDr - Minimum dimesional size of a cell (affects hFacC etc..., units of r) |
321 |
C tauCD - CD scheme coupling timescale ( 1/s ) |
C tauCD - CD scheme coupling timescale ( 1/s ) |
322 |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
|
C GMmaxslope - max. slope allowed in GM/Redi tensor |
|
|
C GMlength - Length to use in Visbeck et al. formula for K (m) |
|
|
C GMalpha - alpha to use in Visbeck et al. formula for K |
|
|
C GMdepth - Depth over which to integrate Richardson # (Visbeck et al.) |
|
|
C GMkbackground - background value of GM/Redi diffusion coefficient ( m^2/s ) |
|
|
C GMmaxval - max. value of KapGM allowed in GM/Redi scheme ( m^2/s ) |
|
323 |
C startTime - Starting time for this integration ( s ). |
C startTime - Starting time for this integration ( s ). |
324 |
C endTime - Ending time for this integration ( s ). |
C endTime - Ending time for this integration ( s ). |
325 |
C chkPtFreq - Frequency of rolling check pointing ( s ). |
C chkPtFreq - Frequency of rolling check pointing ( s ). |
359 |
& diffKhT, diffKzT, diffK4T, diffKrT, |
& diffKhT, diffKzT, diffK4T, diffKrT, |
360 |
& diffKhS, diffKzS, diffK4S, diffKrS, |
& diffKhS, diffKzS, diffK4S, diffKrS, |
361 |
& delT, tauCD, rCD, freeSurfFac, hFacMin, hFacMinDz, |
& delT, tauCD, rCD, freeSurfFac, hFacMin, hFacMinDz, |
|
& GMmaxslope,GMlength,GMalpha,GMdepth,GMkbackground,GMmaxval, |
|
362 |
& gravity, recip_Gravity, gBaro, rhonil, recip_rhonil, |
& gravity, recip_Gravity, gBaro, rhonil, recip_rhonil, |
363 |
& recip_rhoConst, rhoConst, tRef, sRef, |
& recip_rhoConst, rhoConst, tRef, sRef, |
364 |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq, |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq, |
413 |
_RL delt |
_RL delt |
414 |
_RL tauCD |
_RL tauCD |
415 |
_RL rCD |
_RL rCD |
|
_RL GMmaxslope |
|
|
_RL GMlength |
|
|
_RL GMalpha |
|
|
_RL GMdepth |
|
|
_RL GMkbackground |
|
|
_RL GMmaxval |
|
416 |
_RL gravity |
_RL gravity |
417 |
_RL recip_gravity |
_RL recip_gravity |
418 |
_RL gBaro |
_RL gBaro |
495 |
INTEGER OB_Jsouth(Nx) |
INTEGER OB_Jsouth(Nx) |
496 |
INTEGER OB_Ieast(Ny) |
INTEGER OB_Ieast(Ny) |
497 |
INTEGER OB_Iwest(Ny) |
INTEGER OB_Iwest(Ny) |
498 |
|
|
499 |
|
C Logical flags for selecting packages |
500 |
|
LOGICAL useKPP |
501 |
|
LOGICAL useGMRedi |
502 |
|
LOGICAL useECCO |
503 |
|
COMMON /PARM_PACKAGES/ |
504 |
|
& useKPP, useGMRedi, useECCO |