/[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.14 by dfer, Tue Jan 2 20:52:07 2007 UTC revision 1.15 by jmc, Tue Aug 12 22:24:40 2008 UTC
# Line 28  C     phi0surf :: starting point for int Line 28  C     phi0surf :: starting point for int
28        _RS  topoZ   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  topoZ   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
29        _RS  phi0surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  phi0surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
30    
 C--   COMMON /SURF_INDEX/ Common block for surface related index  
 C     ksurfC ::  vertical index of the surface tracer cell  
 C     ksurfW ::  vertical index of the surface U point  
 C     ksurfS ::  vertical index of the surface V point  
 C IMPORTANT:  ksurfC,W,S = Nr+1  where the fluid column is empty (continent)  
       COMMON /SURF_INDEX/ ksurfC, ksurfW, ksurfS  
       INTEGER ksurfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
       INTEGER ksurfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
       INTEGER ksurfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
   
31  C--   COMMON /SURF_CORREC/ Common block for correction of source/sink of  C--   COMMON /SURF_CORREC/ Common block for correction of source/sink of
32  C--                        Tracer due to W at the surface with Linear  C--                        Tracer due to W at the surface with Linear
33  C--                        Free Surface  C--                        Free Surface
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22