/[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.1 by jmc, Tue Mar 6 16:31:04 2001 UTC revision 1.3 by jmc, Mon Aug 27 18:41:44 2001 UTC
# Line 17  C     recip_Bo     = 1/Bo_surf Line 17  C     recip_Bo     = 1/Bo_surf
17        _RL  Bo_surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  Bo_surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
18        _RL  recip_Bo(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  recip_Bo(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
19    
20    C--   COMMON /SURF_INDEX/ Common block for surface related index
21    C     ksurfC - vertical index of the surface tracer cell
22    C     ksurfW - vertical index of the surface U point
23    C     ksurfS - vertical index of the surface V point
24    C IMPORTANT:  ksurfC,W,S = Nr+1  where the fluid column is empty (continent)
25          COMMON /SURF_INDEX/ ksurfC, ksurfW, ksurfS
26          INTEGER ksurfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
27          INTEGER ksurfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
28          INTEGER ksurfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
29    
30    #ifdef NONLIN_FRSURF
31    C--   COMMON /SURF_CHANGE/ transient varariable used for Non-Lin Free-Surf
32    C     hFac_surfC - New thickness factor of the surface level
33    C                        center (Tracer point)
34    C     hFac_surfW - idem, West  interface (U point)
35    C     hFac_surfS - idem, South interface (V point)
36          COMMON /SURF_CHANGE/
37         &     hFac_surfC, hFac_surfW, hFac_surfS
38          _RS  hFac_surfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
39          _RS  hFac_surfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
40          _RS  hFac_surfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
41    #endif /* NONLIN_FRSURF */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22