/[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.2.1 by jmc, Fri Mar 30 22:45:06 2001 UTC revision 1.5 by heimbach, Thu Nov 8 20:57:51 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3  C  C
4  C     /==========================================================\  CBOP
5  C     | SURFACE.h                                                |  C    !ROUTINE: SURFACE.h
6  C     | o Header file defining surface-related model varaibles   |  C    !INTERFACE:
7  C     |==========================================================|  C    include SURFACE.h
8  C     | Contains variables relative to the surface position      |  C    !DESCRIPTION: \bv
9  C     | that are held fixed in linear free-surface formulation   |  C     *==========================================================*
10  C     | but can vary with time with a non-linear free-surface.   |  C     | SURFACE.h                                                
11  C     \==========================================================/  C     | o Header file defining surface-related model varaibles    
12    C     *==========================================================*
13    C     | Contains variables relative to the surface position      
14    C     | that are held fixed in linear free-surface formulation    
15    C     | but can vary with time with a non-linear free-surface.    
16    C     *==========================================================*
17    C     \ev
18    CEOP
19    
20  C--   COMMON /SOLVE_BAROT/  Barotropic variables common block  C--   COMMON /SOLVE_BAROT/  Barotropic variables common block
21  C     Bo_surf  -Boyancy|1/rho [ocean|atmos] at surface level [= g | alpha(p_o)]  C     Bo_surf  :: Boyancy|1/rho [ocean|atmos] at surface level [= g | alpha(p_o)]
22  C     recip_Bo     = 1/Bo_surf  C     recip_Bo     ::  1/Bo_surf
23        COMMON /SOLVE_BAROT/ Bo_surf, recip_Bo        COMMON /SOLVE_BAROT/ Bo_surf, recip_Bo
24        _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)
25        _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)
26    
27  C--   COMMON /SURF_INDEX/ Common block for surface related index  C--   COMMON /SURF_INDEX/ Common block for surface related index
28  C     k_surf - vertical index of the surface tracer cell  C     ksurfC ::  vertical index of the surface tracer cell
29        COMMON /SURF_INDEX/ k_surf  C     ksurfW ::  vertical index of the surface U point
30        INTEGER k_surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  C     ksurfS ::  vertical index of the surface V point
31    C IMPORTANT:  ksurfC,W,S = Nr+1  where the fluid column is empty (continent)
32          COMMON /SURF_INDEX/ ksurfC, ksurfW, ksurfS
33          INTEGER ksurfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
34          INTEGER ksurfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
35          INTEGER ksurfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
36    
37    #ifdef EXACT_CONSERV
38    C     hDivFlow :: Div. Barotropic Flow at current time [transport unit m3/s]
39          COMMON /EXACT_ETA_LOCAL/ hDivFlow
40          _RL hDivFlow(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
41    #endif
42    
43    #ifdef NONLIN_FRSURF
44    C--   COMMON /SURF_CHANGE/ transient varariable used for Non-Lin Free-Surf
45    C     hFac_surfC ::  New thickness factor of the surface level
46    C                        center (Tracer point)
47    C     hFac_surfW ::  idem, West  interface (U point)
48    C     hFac_surfS ::  idem, South interface (V point)
49          COMMON /SURF_CHANGE/
50         &     hFac_surfC, hFac_surfW, hFac_surfS
51          _RS  hFac_surfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
52          _RS  hFac_surfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
53          _RS  hFac_surfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
54    #endif /* NONLIN_FRSURF */
Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22