pkg/obcs/OBCS_GRID.h

08da45d586 Jean*0001 #ifdef ALLOW_OBCS
                0002
                0003 CBOP
                0004 C     !ROUTINE: OBCS_GRID.h
                0005 C     !INTERFACE:
                0006 C     #include "OBCS_GRID.h"
                0007
                0008 C     !DESCRIPTION:
                0009 C     *==========================================================*
                0010 C     | OBCS_GRID.h
                0011 C     | o Header file containing OBCS location on the grid
                0012 C     *==========================================================*
                0013 C     | o Note: does not (and should not) contain any conditional
                0014 C     |   statement that depends on OBCS options ; therefore
                0015 C     |   can be safely included without OBCS_OPTIONS.h
                0016 C     *==========================================================*
                0017 CEOP
                0018
                0019 C tileHasOB[N,S,E,W] :: this tile has OB at Northern/Southern/Eastern/Western edge
aa04b5d0aa Jean*0020 C   OB_Jn, OB_Js     :: indices of Northern & Southern OB location (cell center pt)
                0021 C   OB_Ie, OB_Iw     :: indices of  Eastern & Western  OB location (cell center pt)
c816a80284 Jean*0022 C   OB_indexNone     :: null value for OB index (if row or column without OB)
6646af77e1 Jean*0023 C OBCS_indexStatus   :: track status of OB indices setting
aa04b5d0aa Jean*0024 C OBCS_insideMask    :: Inside OB region mask (zero beyond OB).
e4a300ec91 Jean*0025 C   OB_connectNumber :: total number of connected parts for this level
                0026 C   OBN_connect      :: domain connected piece Id of this Northern OB grid point
                0027 C   OBS_connect      :: domain connected piece Id of this Southern OB grid point
                0028 C   OBE_connect      :: domain connected piece Id of this Eastern OB grid point
                0029 C   OBW_connect      :: domain connected piece Id of this Western OB grid point
08da45d586 Jean*0030
                0031       COMMON /OBCS_ACTIVE_TILES/
                0032      &  tileHasOBN, tileHasOBS, tileHasOBE, tileHasOBW
                0033       LOGICAL tileHasOBN(nSx,nSy)
                0034       LOGICAL tileHasOBS(nSx,nSy)
                0035       LOGICAL tileHasOBE(nSx,nSy)
                0036       LOGICAL tileHasOBW(nSx,nSy)
                0037
                0038       COMMON /OBCS_GRID_INDICES/
6646af77e1 Jean*0039      &  OB_Jn, OB_Js, OB_Ie, OB_Iw,
c816a80284 Jean*0040      &  OB_indexNone, OBCS_indexStatus
6646af77e1 Jean*0041       INTEGER OB_Jn(1-OLx:sNx+OLx,nSx,nSy)
                0042       INTEGER OB_Js(1-OLx:sNx+OLx,nSx,nSy)
                0043       INTEGER OB_Ie(1-OLy:sNy+OLy,nSx,nSy)
                0044       INTEGER OB_Iw(1-OLy:sNy+OLy,nSx,nSy)
c816a80284 Jean*0045       INTEGER OB_indexNone
6646af77e1 Jean*0046       INTEGER OBCS_indexStatus
08da45d586 Jean*0047
aa04b5d0aa Jean*0048       COMMON /OBCS_MASK_RS/
                0049      &  OBCS_insideMask
                0050       _RS OBCS_insideMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0051
e4a300ec91 Jean*0052       COMMON /OBCS_CONNECTED_ID/
                0053      &  OB_connectNumber,
                0054      &  OBN_connect, OBS_connect, OBE_connect, OBW_connect
                0055       INTEGER OB_connectNumber(Nr)
                0056       INTEGER OBN_connect(1:sNx,Nr,nSx,nSy)
                0057       INTEGER OBS_connect(1:sNx,Nr,nSx,nSy)
                0058       INTEGER OBE_connect(1:sNy,Nr,nSx,nSy)
                0059       INTEGER OBW_connect(1:sNy,Nr,nSx,nSy)
                0060
08da45d586 Jean*0061 #endif /* ALLOW_OBCS */