pkg/exch2/W2_EXCH2_BUFFER.h

90219e5912 Jean*0001 CBOP
                0002 C     !ROUTINE: W2_EXCH2_BUFFER.h
                0003 C     !INTERFACE:
                0004 C     #include W2_EXCH2_BUFFER.h
                0005
                0006 C     !DESCRIPTION:
                0007 C     *==========================================================*
                0008 C     | W2_EXCH2_BUFFER.h
                0009 C     | o Definition of W2-EXCH2 Buffers
                0010 C     *==========================================================*
                0011 CEOP
                0012
                0013 C     e2BufrRecSize  :: Exch2 Buffer size
                0014       INTEGER e2BufrRecSize
                0015       PARAMETER ( e2BufrRecSize
                0016      &            = ( (sNx+2*OLx)*2*OLy+(sNy+2*OLy)*2*OLx)*Nr
                0017      &          )
                0018
                0019 C--   COMMON /W2_EXCH2_BUF_RX/ real type Buffer used by W2-EXCH2
6e33c64afb Jean*0020       _RL e2Bufr1_RL( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
                0021       _RL e2Bufr2_RL( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
                0022       _RS e2Bufr1_RS( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
                0023       _RS e2Bufr2_RS( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
                0024       _R4 e2Bufr1_R4( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
                0025       _R4 e2Bufr2_R4( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
                0026       _R8 e2Bufr1_R8( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
                0027       _R8 e2Bufr2_R8( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
                0028       COMMON /W2_EXCH2_BUF_RL/ e2Bufr1_RL, e2Bufr2_RL
                0029       COMMON /W2_EXCH2_BUF_RS/ e2Bufr1_RS, e2Bufr2_RS
                0030       COMMON /W2_EXCH2_BUF_R4/ e2Bufr1_R4, e2Bufr2_R4
                0031       COMMON /W2_EXCH2_BUF_R8/ e2Bufr1_R8, e2Bufr2_R8
90219e5912 Jean*0032
54d78f5995 Jean*0033 C--   COMMON /W2_EXCH2_BUF_I/ integer type Buffer used by W2-EXCH2
                0034 C     iBuf1Filled :: actual length of buffer-1 which has been filled in.
                0035 C     iBuf2Filled :: actual length of buffer-2 which has been filled in.
6e33c64afb Jean*0036       INTEGER iBuf1Filled( W2_maxNeighbours, nSx, nSy )
                0037       INTEGER iBuf2Filled( W2_maxNeighbours, nSx, nSy )
54d78f5995 Jean*0038       COMMON /W2_EXCH2_BUF_I/ iBuf1Filled, iBuf2Filled
                0039
90219e5912 Jean*0040 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|