/[MITgcm]/MITgcm/model/inc/SURFACE.h
ViewVC logotype

Diff of /MITgcm/model/inc/SURFACE.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.13 by heimbach, Thu Dec 8 15:44:33 2005 UTC revision 1.14 by dfer, Tue Jan 2 20:52:07 2007 UTC
# Line 38  C IMPORTANT:  ksurfC,W,S = Nr+1  where t Line 38  C IMPORTANT:  ksurfC,W,S = Nr+1  where t
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]
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22