model/inc/RDYG_MACROS.h

C $Header: /u/gcmpack/models/MITgcmUV/model/inc/RDYG_MACROS.h,v 1.1 1998/05/27 05:57:02 cnh Exp $
C
C     /==========================================================\
C     | RDYG_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     \==========================================================/

#ifdef RDYG_CONST
#define  _rdyG(i,j,bi,bj) rdyG(1,1,1,1)
#endif

#ifdef RDYG_FX
#define  _rdyG(i,j,bi,bj) rdyG(i,1,bi,1)
#endif

#ifdef RDYG_FY
#define  _rdyG(i,j,bi,bj) rdyG(1,j,1,bj)
#endif

#ifndef rdyG
#define  _rdyG(i,j,bi,bj) rdyG(i,j,bi,bj)
#endif
1	C $Header: /u/gcmpack/models/MITgcmUV/model/inc/RDYG_MACROS.h,v 1.1 1998/05/27 05:57:02 cnh Exp $
2	C
3	C /==========================================================\
4	C \| RDYG_MACROS.h \|
5	C \|==========================================================\|
6	C \| These macros are used to reduce memory requirement and/or\|
7	C \| memory references when variables are fixed along a given \|
8	C \| axis or axes. \|
9	C \==========================================================/
10
11	#ifdef RDYG_CONST
12	#define _rdyG(i,j,bi,bj) rdyG(1,1,1,1)
13	#endif
14
15	#ifdef RDYG_FX
16	#define _rdyG(i,j,bi,bj) rdyG(i,1,bi,1)
17	#endif
18
19	#ifdef RDYG_FY
20	#define _rdyG(i,j,bi,bj) rdyG(1,j,1,bj)
21	#endif
22
23	#ifndef rdyG
24	#define _rdyG(i,j,bi,bj) rdyG(i,j,bi,bj)
25	#endif