63 |
& bathyFile, hydrogThetaFile, hydrogSaltFile, |
& bathyFile, hydrogThetaFile, hydrogSaltFile, |
64 |
& zonalWindFile, meridWindFile, thetaClimFile, |
& zonalWindFile, meridWindFile, thetaClimFile, |
65 |
& saltClimFile, buoyancyRelation, |
& saltClimFile, buoyancyRelation, |
66 |
& EmPmRfile,surfQfile |
& EmPmRfile, surfQfile, |
67 |
|
& uVelInitFile, vVelInitFile, pSurfInitFile |
68 |
CHARACTER*(5) checkPtSuff(maxNoChkptLev) |
CHARACTER*(5) checkPtSuff(maxNoChkptLev) |
69 |
CHARACTER*(MAX_LEN_FNAM) bathyFile |
CHARACTER*(MAX_LEN_FNAM) bathyFile |
70 |
CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile |
CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile |
76 |
CHARACTER*(MAX_LEN_FNAM) surfQfile |
CHARACTER*(MAX_LEN_FNAM) surfQfile |
77 |
CHARACTER*(MAX_LEN_FNAM) EmPmRfile |
CHARACTER*(MAX_LEN_FNAM) EmPmRfile |
78 |
CHARACTER*(MAX_LEN_FNAM) buoyancyRelation |
CHARACTER*(MAX_LEN_FNAM) buoyancyRelation |
79 |
|
CHARACTER*(MAX_LEN_FNAM) uVelInitFile |
80 |
|
CHARACTER*(MAX_LEN_FNAM) vVelInitFile |
81 |
|
CHARACTER*(MAX_LEN_FNAM) pSurfInitFile |
82 |
|
|
83 |
C-- COMMON /PARM_I/ Integer valued parameters used by the model. |
C-- COMMON /PARM_I/ Integer valued parameters used by the model. |
84 |
C cg2dMaxIters - Maximum number of iterations in the |
C cg2dMaxIters - Maximum number of iterations in the |
318 |
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) |
319 |
C tauCD - CD scheme coupling timescale ( 1/s ) |
C tauCD - CD scheme coupling timescale ( 1/s ) |
320 |
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 ) |
|
321 |
C startTime - Starting time for this integration ( s ). |
C startTime - Starting time for this integration ( s ). |
322 |
C endTime - Ending time for this integration ( s ). |
C endTime - Ending time for this integration ( s ). |
323 |
C chkPtFreq - Frequency of rolling check pointing ( s ). |
C chkPtFreq - Frequency of rolling check pointing ( s ). |
357 |
& diffKhT, diffKzT, diffK4T, diffKrT, |
& diffKhT, diffKzT, diffK4T, diffKrT, |
358 |
& diffKhS, diffKzS, diffK4S, diffKrS, |
& diffKhS, diffKzS, diffK4S, diffKrS, |
359 |
& delT, tauCD, rCD, freeSurfFac, hFacMin, hFacMinDz, |
& delT, tauCD, rCD, freeSurfFac, hFacMin, hFacMinDz, |
|
& GMmaxslope,GMlength,GMalpha,GMdepth,GMkbackground,GMmaxval, |
|
360 |
& gravity, recip_Gravity, gBaro, rhonil, recip_rhonil, |
& gravity, recip_Gravity, gBaro, rhonil, recip_rhonil, |
361 |
& recip_rhoConst, rhoConst, tRef, sRef, |
& recip_rhoConst, rhoConst, tRef, sRef, |
362 |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq, |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq, |
411 |
_RL delt |
_RL delt |
412 |
_RL tauCD |
_RL tauCD |
413 |
_RL rCD |
_RL rCD |
|
_RL GMmaxslope |
|
|
_RL GMlength |
|
|
_RL GMalpha |
|
|
_RL GMdepth |
|
|
_RL GMkbackground |
|
|
_RL GMmaxval |
|
414 |
_RL gravity |
_RL gravity |
415 |
_RL recip_gravity |
_RL recip_gravity |
416 |
_RL gBaro |
_RL gBaro |
493 |
INTEGER OB_Jsouth(Nx) |
INTEGER OB_Jsouth(Nx) |
494 |
INTEGER OB_Ieast(Ny) |
INTEGER OB_Ieast(Ny) |
495 |
INTEGER OB_Iwest(Ny) |
INTEGER OB_Iwest(Ny) |
496 |
|
|
497 |
|
C Logical flags for selecting packages |
498 |
|
LOGICAL use_KPPmixing |
499 |
|
LOGICAL use_GMRedi |
500 |
|
COMMON /PARM_PACKAGES/ |
501 |
|
& use_KPPmixing,use_GMRedi |