/[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.3 - (show annotations) (download)
Fri Jan 20 01:26:15 2012 UTC (12 years, 4 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63i, checkpoint63j, checkpoint63k
Changes since 1.2: +9 -6 lines
File MIME type: text/plain 
- derive OB indices in overlap region from OB-InsideMask (in obcs_init_fixed.F)
  and remove code (in obcs_readparms.F) which was based on EXCH of indices
  (through buffer) and did not account for exch2 (e.g., CS-grid) topology.
1 C $Header: /u/gcmpack/MITgcm/pkg/obcs/OBCS_GRID.h,v 1.2 2011/08/01 20:36:58 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 OBCS_indexStatus :: track status of OB indices setting
26 C OBCS_insideMask :: Inside OB region mask (zero beyond OB).
27
28 COMMON /OBCS_ACTIVE_TILES/
29 & tileHasOBN, tileHasOBS, tileHasOBE, tileHasOBW
30 LOGICAL tileHasOBN(nSx,nSy)
31 LOGICAL tileHasOBS(nSx,nSy)
32 LOGICAL tileHasOBE(nSx,nSy)
33 LOGICAL tileHasOBW(nSx,nSy)
34
35 COMMON /OBCS_GRID_INDICES/
36 & OB_Jn, OB_Js, OB_Ie, OB_Iw,
37 & OBCS_indexStatus
38 INTEGER OB_Jn(1-OLx:sNx+OLx,nSx,nSy)
39 INTEGER OB_Js(1-OLx:sNx+OLx,nSx,nSy)
40 INTEGER OB_Ie(1-OLy:sNy+OLy,nSx,nSy)
41 INTEGER OB_Iw(1-OLy:sNy+OLy,nSx,nSy)
42 INTEGER OBCS_indexStatus
43
44 COMMON /OBCS_MASK_RS/
45 & OBCS_insideMask
46 _RS OBCS_insideMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
47
48 #endif /* ALLOW_OBCS */
  ViewVC Help
Powered by ViewVC 1.1.22