C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/nesting_sannino/code_nest_merged/NEST_SHARED.h,v 1.1 2010/11/28 01:53:25 jmc Exp $
C $Name:  $
C
CBOP
C    !ROUTINE: NEST_SHARED.h
C    !INTERFACE:
C    include NEST_SHARED.h
C    !DESCRIPTION: \bv
C     *==========================================================*
C     | NEST_SHARED.h
C     | o Header file for variables used in both Parent and Child
C     |   nesting component
C     *==========================================================*
C     \ev
CEOP

C--   COMMON /NEST_SHARED_I/
C     CONTATORE_REC    ::
C     CONTATORE_REC_FL ::
      COMMON /NEST_SHARED_I/
     &  CONTATORE_REC, CONTATORE_REC_FL
      INTEGER CONTATORE_REC, CONTATORE_REC_FL

C--   COMMON /NEST_SHARED_C/
C     NomeFL    ::
C     NomeMLD_1 ::
C     NomeMLD_2 ::
      COMMON /NEST_SHARED_C/
     &  NomeFL, NomeMLD_1, NomeMLD_2
      CHARACTER*(30) NomeFL
      CHARACTER*(30) NomeMLD_1
      CHARACTER*(30) NomeMLD_2

C--   COMMON /NEST_SHARED_RL/
C     TRANSPORT_EAST ::
C     TRANSPORT_WEST ::
      COMMON /NEST_SHARED_RL/
     &  TRANSPORT_EAST, TRANSPORT_WEST
      _RL TRANSPORT_EAST
      _RL TRANSPORT_WEST

C--   COMMON /NEST_SHARED_RS/
C     diff4k_msk     :: mask for biharmonic hor. diffusion (1..any real > 0)
C     diff4h_msk     :: mask for harmonic hor. diffusion (1..any real > 0)
C     viscA4_msk     :: mask for biharmonic side viscosity (1..any real > 0) only Vector Invariant
C     viscAh_msk     :: mask for Laplacia side viscosity (1..any real > 0) only Vector Invariant
C     viscA4_DZ_msk  :: mask for biharmonic hor. viscosity (1..any real > 0) only Vector Invariant
C     bottom_msk     :: mask for bottom drag (0 or 1) only for Vector Invariant
C       side_msk     :: mask for side drag (0 or 1)   only for Vector Invariant
C    viscC2Leith_msk :: mask for hormonic Leith (also D) hor. viscosity (0..any real > 0)
C    viscC4Leith_msk :: mask for hormonic Leith (also D) hor. viscosity (0..any real > 0)
      COMMON /NEST_SHARED_RS/
     &  diffk4_msk, viscA4_msk,viscA4_DZ_msk,viscAh_msk,
     &  diffkh_msk,bottom_msk ,side_msk,diffkr_msk,
     &  viscC2Leith_msk,viscC4Leith_msk
      _RS    diffk4_msk     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS    diffkh_msk     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS    viscA4_msk     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS    viscAh_msk     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS    bottom_msk     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS      side_msk     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS viscA4_DZ_msk     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS    diffkr_msk     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS viscC2Leith_msk   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS viscC4Leith_msk   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|