interface_test/code/DYC_MACROS.h

C $Header: /u/gcmpack/MITgcm/model/inc/DYC_MACROS.h,v 1.3 2001/09/21 15:13:31 cnh Exp $
C $Name:  $
C
CBOP
C    !ROUTINE: DYC_MACROS.h
C    !INTERFACE:
C    include DYC_MACROS.h
C    !DESCRIPTION: \bv
C     *==========================================================*
C     | DYC_MACROS.h                                              
C     *==========================================================*
C     | These macros are used to reduce memory requirement and/or 
C     | memory references when variables are fixed along a given  
C     | axis or axes.                                             
C     *==========================================================*
C     \ev
CEOP

#ifdef DYC_CONST
#define  _dyC(i,j,bi,bj) dyC(1,1,1,1)
#endif

#ifdef DYC_FX
#define  _dyC(i,j,bi,bj) dyC(i,1,bi,1)
#endif

#ifdef DYC_FY
#define  _dyC(i,j,bi,bj) dyC(1,j,1,bj)
#endif

#ifndef _dyC
#define  _dyC(i,j,bi,bj) dyC(i,j,bi,bj)
#endif
1	C $Header: /u/gcmpack/MITgcm/model/inc/DYC_MACROS.h,v 1.3 2001/09/21 15:13:31 cnh Exp $
2	C $Name: $
3	C
4	CBOP
5	C !ROUTINE: DYC_MACROS.h
6	C !INTERFACE:
7	C include DYC_MACROS.h
8	C !DESCRIPTION: \bv
9	C ==========================================================
10	C \| DYC_MACROS.h
11	C ==========================================================
12	C \| These macros are used to reduce memory requirement and/or
13	C \| memory references when variables are fixed along a given
14	C \| axis or axes.
15	C ==========================================================
16	C \ev
17	CEOP
18
19	#ifdef DYC_CONST
20	#define _dyC(i,j,bi,bj) dyC(1,1,1,1)
21	#endif
22
23	#ifdef DYC_FX
24	#define _dyC(i,j,bi,bj) dyC(i,1,bi,1)
25	#endif
26
27	#ifdef DYC_FY
28	#define _dyC(i,j,bi,bj) dyC(1,j,1,bj)
29	#endif
30
31	#ifndef _dyC
32	#define _dyC(i,j,bi,bj) dyC(i,j,bi,bj)
33	#endif