pkg/seaice/SEAICE_GRID.h

3f0f10fc37 Mart*0001 CBOP
                0002 C !ROUTINE: SEAICE_GRID.h
                0003
                0004 C !DESCRIPTION: \bv
                0005 C     *==========================================================*
                0006 C     | SEAICE_GRID.h
                0007 C     | o header that contains grid parameters specific to
                0008 C     |   pkg/seaice
                0009 C     *==========================================================*
                0010
                0011 C--   Grid variables for seaice
                0012 C     static masks (depend only on geometry)
                0013 C     HEFFM     :: land-sea mask at C-points (copy of maskC(k=kSrf))
                0014 C     SIMaskU/V :: land-sea mask at U/V-points (copies of maskW/S(k=kSrf))
                0015       COMMON/ARRAY/HEFFM, SIMaskU, SIMaskV
                0016       _RL HEFFM      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0017       _RL SIMaskU    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0018       _RL SIMaskV    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0019
                0020 #ifdef SEAICE_CGRID
                0021       COMMON/ARRAYC/ seaiceMaskU, seaiceMaskV
                0022 C     dynamic masks (depend on area)
                0023       _RL seaiceMaskU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0024       _RL seaiceMaskV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0025 #endif /* SEAICE_CGRID */
                0026
                0027 #ifdef SEAICE_BGRID_DYNAMICS
                0028 C     UVM         :: B-grid velocity-point mask
                0029       COMMON/ARRAYB/ UVM
                0030       _RS UVM        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0031 #endif /* SEAICE_BGRID_DYNAMICS */
                0032
                0033 #if ( defined SEAICE_CGRID || defined SEAICE_BGRID_DYNAMICS )
                0034 C     k1/2AtC/U/V :: coefficients at C, U, and V points
                0035 C                    for metric terms in U/V ice equations.
                0036       COMMON /ARRAYMETRIC/ k1AtC, k2AtC, k1AtU, k1AtV, k2AtU, k2AtV
                0037       _RS k1AtC      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0038       _RS k2AtC      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0039       _RS k1AtU      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0040       _RS k1AtV      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0041       _RS k2AtU      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0042       _RS k2AtV      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0043 #endif
                0044
                0045 #ifdef SEAICE_CGRID
                0046 C     k1/2AtZ :: coefficients at C and Z points
                0047       COMMON /ARRAYCMETRIC/ k1AtZ, k2AtZ
                0048       _RS k1AtZ      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0049       _RS k2AtZ      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0050 #endif /* SEAICE_CGRID */