model/inc/SURFACE.h

C $Header: /u/gcmpack/models/MITgcmUV/model/inc/SURFACE.h,v 1.1 2001/03/06 16:31:04 jmc Exp $
C $Name:  $
C
C     /==========================================================\
C     | SURFACE.h                                                |
C     | o Header file defining surface-related model varaibles   |
C     |==========================================================|
C     | Contains variables relative to the surface position      |
C     | that are held fixed in linear free-surface formulation   |
C     | but can vary with time with a non-linear free-surface.   |
C     \==========================================================/

C--   COMMON /SOLVE_BAROT/  Barotropic variables common block
C     Bo_surf  -Boyancy|1/rho [ocean|atmos] at surface level [= g | alpha(p_o)]
C     recip_Bo     = 1/Bo_surf
      COMMON /SOLVE_BAROT/ Bo_surf, recip_Bo
      _RL  Bo_surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  recip_Bo(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)

C--   COMMON /SURF_INDEX/ Common block for surface related index
C     k_surf - vertical index of the surface tracer cell
      COMMON /SURF_INDEX/ k_surf
      INTEGER k_surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
1	C $Header: /u/gcmpack/models/MITgcmUV/model/inc/SURFACE.h,v 1.1 2001/03/06 16:31:04 jmc Exp $
2	C $Name: $
3	C
4	C /==========================================================\
5	C \| SURFACE.h \|
6	C \| o Header file defining surface-related model varaibles \|
7	C \|==========================================================\|
8	C \| Contains variables relative to the surface position \|
9	C \| that are held fixed in linear free-surface formulation \|
10	C \| but can vary with time with a non-linear free-surface. \|
11	C \==========================================================/
12
13	C-- COMMON /SOLVE_BAROT/ Barotropic variables common block
14	C Bo_surf -Boyancy\|1/rho [ocean\|atmos] at surface level [= g \| alpha(p_o)]
15	C recip_Bo = 1/Bo_surf
16	COMMON /SOLVE_BAROT/ Bo_surf, recip_Bo
17	_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)
19
20	C-- COMMON /SURF_INDEX/ Common block for surface related index
21	C k_surf - vertical index of the surface tracer cell
22	COMMON /SURF_INDEX/ k_surf
23	INTEGER k_surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)