85 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
86 |
C cg2dTargetResidual |
C cg2dTargetResidual |
87 |
C - Target residual for cg2d solver. |
C - Target residual for cg2d solver. |
88 |
C delZ - Vertical grid spacing (Pa) - delZ is the distance |
C delZ - Vertical grid spacing ( m ) - delZ is the distance |
89 |
C between "w" surfaces. |
C between "w" surfaces. |
90 |
C delX - Separation between cell faces (m) or (deg), depending |
C delX - Separation between cell faces (m) or (deg), depending |
91 |
C delY on input flags. |
C delY on input flags. |
92 |
C gravity - Accel. due to gravity ( m/s^2 ) |
C gravity - Accel. due to gravity ( m/s^2 ) |
93 |
C ronil - Reference density |
C ronil - Reference density |
94 |
C startTime - Start time for model |
C startTime - Start time for model ( s ) |
|
C oBandBeg - Offline bands start and end times. |
|
|
C oBandEnd |
|
|
C oPeriodLength - Lenght of offline period. |
|
95 |
C phiMin - Latitude of southern most cell face. |
C phiMin - Latitude of southern most cell face. |
96 |
C thetaMin - Longitude of western most cell face (this |
C thetaMin - Longitude of western most cell face (this |
97 |
C is an "inert" parameter but it is included |
C is an "inert" parameter but it is included |
98 |
C to make geographical references simple.) |
C to make geographical references simple.) |
99 |
C rSphere - Radius of sphere for a spherical polar grid. |
C rSphere - Radius of sphere for a spherical polar grid ( m ). |
100 |
C f0 - Reference coriolis parameter ( 1/s ) |
C f0 - Reference coriolis parameter ( 1/s ) |
101 |
C ( Southern edge f for beta plane ) |
C ( Southern edge f for beta plane ) |
102 |
C beta - df/dy ( s^-1.m^-1 ) |
C beta - df/dy ( s^-1.m^-1 ) |
118 |
C salt vertically ( m^2/s ) |
C salt vertically ( m^2/s ) |
119 |
C diffK4S - Biharmonic diffusion coeff. for mixing of |
C diffK4S - Biharmonic diffusion coeff. for mixing of |
120 |
C salt laterally ( m^4/s ) |
C salt laterally ( m^4/s ) |
121 |
C delt - Timestep ( s ) |
C deltaT - Default timestep ( s ) |
122 |
|
C deltaTMom - Timestep for momemtum equations ( s ) |
123 |
|
C deltaTtracer - Timestep for tracer equations ( s ) |
124 |
C tauCD - CD scheme coupling timescale ( 1/s ) |
C tauCD - CD scheme coupling timescale ( 1/s ) |
125 |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
126 |
C startTime - Starting time for this integration ( s ). |
C startTime - Starting time for this integration ( s ). |
128 |
C chkPtFreq - Frequency of check pointing ( s ). |
C chkPtFreq - Frequency of check pointing ( s ). |
129 |
C dumpFreq - Frequency with which model state is written to |
C dumpFreq - Frequency with which model state is written to |
130 |
C post-processing files ( s ). |
C post-processing files ( s ). |
131 |
COMMON /PARM_R/ cg2dTargetResidual, delZ, delX, delY, |
COMMON /PARM_R/ cg2dTargetResidual, delZ, delX, delY, deltaT, |
132 |
& deltaTmom, deltaTtracer, abeps, startTime, oBandBeg, oBandEnd, |
& deltaTmom, deltaTtracer, abeps, startTime, phiMin, thetaMin, |
133 |
& oPeriodLength, phiMin, thetaMin, rSphere, f0, fCori, beta, |
& rSphere, f0, fCori, beta, viscAh, viscAz, viscA4, diffKhT, diffKzT, |
134 |
& viscAh, viscAz, viscA4, diffKhT, diffKzT, diffK4T, |
& diffK4T, diffKhS, diffKzS, diffK4S, delT, tauCD, rCD, |
|
& diffKhS, diffKzS, diffK4S, delT, tauCD, rCD, |
|
135 |
& tAlpha, sBeta, gravity, rhonil, tRef, sRef, |
& tAlpha, sBeta, gravity, rhonil, tRef, sRef, |
136 |
& endTime, chkPtFreq, dumpFreq |
& endTime, chkPtFreq, dumpFreq |
137 |
REAL cg2dTargetResidual |
REAL cg2dTargetResidual |
138 |
REAL delZ(Nz) |
REAL delZ(Nz) |
139 |
REAL delX(Nx) |
REAL delX(Nx) |
140 |
REAL delY(Ny) |
REAL delY(Ny) |
141 |
|
REAL deltaT |
142 |
REAL deltaTmom |
REAL deltaTmom |
143 |
REAL deltaTtracer |
REAL deltaTtracer |
144 |
REAL abeps |
REAL abeps |
|
REAL oBandBeg(nOBands),oBandEnd(nOBands) |
|
|
REAL oPeriodLength |
|
145 |
REAL phiMin |
REAL phiMin |
146 |
REAL thetaMin |
REAL thetaMin |
147 |
REAL rSphere |
REAL rSphere |