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

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

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

Revision 1.4 - (hide 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 jmc 1.4 C $Header: /u/gcmpack/MITgcm/pkg/obcs/OBCS_GRID.h,v 1.3 2012/01/20 01:26:15 jmc Exp $
2 jmc 1.1 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 jmc 1.2 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 jmc 1.4 C OB_indexNone :: null value for OB index (if row or column without OB)
26 jmc 1.3 C OBCS_indexStatus :: track status of OB indices setting
27 jmc 1.2 C OBCS_insideMask :: Inside OB region mask (zero beyond OB).
28 jmc 1.1
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 jmc 1.3 & OB_Jn, OB_Js, OB_Ie, OB_Iw,
38 jmc 1.4 & OB_indexNone, OBCS_indexStatus
39 jmc 1.3 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 jmc 1.4 INTEGER OB_indexNone
44 jmc 1.3 INTEGER OBCS_indexStatus
45 jmc 1.1
46 jmc 1.2 COMMON /OBCS_MASK_RS/
47     & OBCS_insideMask
48     _RS OBCS_insideMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
49    
50 jmc 1.1 #endif /* ALLOW_OBCS */
  ViewVC Help
Powered by ViewVC 1.1.22