38 |
INTEGER ksurfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
INTEGER ksurfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
39 |
INTEGER ksurfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
INTEGER ksurfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
40 |
|
|
41 |
|
C-- COMMON /SURF_CORREC/ Common block for correction of source/sink of |
42 |
|
C-- Tracer due to W at the surface with Linear |
43 |
|
C-- Free Surface |
44 |
|
C TsurfCor :: Pot.Temp Linear-Free-Surface correction term [K.r_Unit/s] |
45 |
|
C SsurfCor :: Salinity Linear-Free-Surface correction term [psu.r_Unit/s] |
46 |
|
COMMON /SURF_CORREC/ TsurfCor, SsurfCor |
47 |
|
_RL TsurfCor |
48 |
|
_RL SsurfCor |
49 |
|
|
50 |
#ifdef EXACT_CONSERV |
#ifdef EXACT_CONSERV |
51 |
C etaHnm1 :: surface r-anomaly, etaH, at previous time level |
C etaHnm1 :: surface r-anomaly, etaH, at previous time level |
52 |
C dEtaHdt :: time derivative of total column height [r_unit/s = w unit] |
C dEtaHdt :: time derivative of total column height [r_unit/s = w unit] |