interface_test/code/RAS_MACROS.h

C $Header: /u/gcmpack/MITgcm/model/inc/RAS_MACROS.h,v 1.3 2001/09/21 15:13:31 cnh Exp $
C $Name:  $
C
CBOP
C    !ROUTINE: RAS_MACROS.h
C    !INTERFACE:
C    include RAS_MACROS.h
C    !DESCRIPTION: \bv
C     *==========================================================*
C     | RAS_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 RA_CONST
#define  _rAs(i,j,bi,bj) rAs(1,1,1,1)
#endif

#ifdef RA_FX
#define  _rAs(i,j,bi,bj) rAs(i,1,bi,1)
#endif

#ifdef RA_FY
#define  _rAs(i,j,bi,bj) rAs(1,j,1,bj)
#endif

#ifndef _rAs
#define  _rAs(i,j,bi,bj) rAs(i,j,bi,bj)
#endif
1	C $Header: /u/gcmpack/MITgcm/model/inc/RAS_MACROS.h,v 1.3 2001/09/21 15:13:31 cnh Exp $
2	C $Name: $
3	C
4	CBOP
5	C !ROUTINE: RAS_MACROS.h
6	C !INTERFACE:
7	C include RAS_MACROS.h
8	C !DESCRIPTION: \bv
9	C ==========================================================
10	C \| RAS_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 RA_CONST
20	#define _rAs(i,j,bi,bj) rAs(1,1,1,1)
21	#endif
22
23	#ifdef RA_FX
24	#define _rAs(i,j,bi,bj) rAs(i,1,bi,1)
25	#endif
26
27	#ifdef RA_FY
28	#define _rAs(i,j,bi,bj) rAs(1,j,1,bj)
29	#endif
30
31	#ifndef _rAs
32	#define _rAs(i,j,bi,bj) rAs(i,j,bi,bj)
33	#endif