/[MITgcm]/MITgcm/pkg/obcs/OBCS_GRID.h
ViewVC logotype

Contents of /MITgcm/pkg/obcs/OBCS_GRID.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.4 - (show annotations) (download)
Mon Sep 17 21:47:33 2012 UTC (11 years, 8 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint64, checkpoint65, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e
Changes since 1.3: +4 -2 lines
File MIME type: text/plain 
- change settings of OB index in case OB coincides with tile edge (shared by
  2 tiles), so that common OB location is registered by both tiles (instead of
  only 1). However, for Southern and Western OB, index value = 0 is not
  recognized as valid OB index (=default null value) and this needs to be fixed.
- new parameter "OB_indexNone" for null index value (for now, still zero)
  to replace hard-coded null index value of zero.
1 C $Header: /u/gcmpack/MITgcm/pkg/obcs/OBCS_GRID.h,v 1.3 2012/01/20 01:26:15 jmc Exp $
2 C $Name: $
3
4 #ifdef ALLOW_OBCS
5
6 CBOP
7 C !ROUTINE: OBCS_GRID.h
8 C !INTERFACE:
9 C #include "OBCS_GRID.h"
10
11 C !DESCRIPTION:
12 C *==========================================================*
13 C | OBCS_GRID.h
14 C | o Header file containing OBCS location on the grid
15 C *==========================================================*
16 C | o Note: does not (and should not) contain any conditional
17 C | statement that depends on OBCS options ; therefore
18 C | can be safely included without OBCS_OPTIONS.h
19 C *==========================================================*
20 CEOP
21
22 C tileHasOB[N,S,E,W] :: this tile has OB at Northern/Southern/Eastern/Western edge
23 C OB_Jn, OB_Js :: indices of Northern & Southern OB location (cell center pt)
24 C OB_Ie, OB_Iw :: indices of Eastern & Western OB location (cell center pt)
25 C OB_indexNone :: null value for OB index (if row or column without OB)
26 C OBCS_indexStatus :: track status of OB indices setting
27 C OBCS_insideMask :: Inside OB region mask (zero beyond OB).
28
29 COMMON /OBCS_ACTIVE_TILES/
30 & tileHasOBN, tileHasOBS, tileHasOBE, tileHasOBW
31 LOGICAL tileHasOBN(nSx,nSy)
32 LOGICAL tileHasOBS(nSx,nSy)
33 LOGICAL tileHasOBE(nSx,nSy)
34 LOGICAL tileHasOBW(nSx,nSy)
35
36 COMMON /OBCS_GRID_INDICES/
37 & OB_Jn, OB_Js, OB_Ie, OB_Iw,
38 & OB_indexNone, OBCS_indexStatus
39 INTEGER OB_Jn(1-OLx:sNx+OLx,nSx,nSy)
40 INTEGER OB_Js(1-OLx:sNx+OLx,nSx,nSy)
41 INTEGER OB_Ie(1-OLy:sNy+OLy,nSx,nSy)
42 INTEGER OB_Iw(1-OLy:sNy+OLy,nSx,nSy)
43 INTEGER OB_indexNone
44 INTEGER OBCS_indexStatus
45
46 COMMON /OBCS_MASK_RS/
47 & OBCS_insideMask
48 _RS OBCS_insideMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
49
50 #endif /* ALLOW_OBCS */
  ViewVC Help
Powered by ViewVC 1.1.22