model/inc/HFACW_MACROS.h

C $Header: /u/gcmpack/models/MITgcmUV/model/inc/DYU_MACROS.h,v 1.1 1998/05/27 05:57:02 cnh Exp $
C
C     /==========================================================\
C     | HFACW_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 HFACW_CONST
#define  _hFacW(i,j,k,bi,bj) hFacW(1,1,1,1,1)
#endif

#ifdef HFACW_FX
#define  _hFacW(i,j,k,bi,bj) hFacW(i,1,1,bi,1)
#endif

#ifdef HFACW_FY
#define  _hFacW(i,j,k,bi,bj) hFacW(1,j,1,1,bj)
#endif

#ifdef HFACW_FXY
#define  _hFacW(i,j,k,bi,bj) hFacW(i,j,1,bi,bj)
#endif

#ifndef _hFacW
#define  _hFacW(i,j,k,bi,bj) hFacW(i,j,k,bi,bj)
#endif
1	C $Header: /u/gcmpack/models/MITgcmUV/model/inc/DYU_MACROS.h,v 1.1 1998/05/27 05:57:02 cnh Exp $
2	C
3	C /==========================================================\
4	C \| HFACW_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 HFACW_CONST
12	#define _hFacW(i,j,k,bi,bj) hFacW(1,1,1,1,1)
13	#endif
14
15	#ifdef HFACW_FX
16	#define _hFacW(i,j,k,bi,bj) hFacW(i,1,1,bi,1)
17	#endif
18
19	#ifdef HFACW_FY
20	#define _hFacW(i,j,k,bi,bj) hFacW(1,j,1,1,bj)
21	#endif
22
23	#ifdef HFACW_FXY
24	#define _hFacW(i,j,k,bi,bj) hFacW(i,j,1,bi,bj)
25	#endif
26
27	#ifndef _hFacW
28	#define _hFacW(i,j,k,bi,bj) hFacW(i,j,k,bi,bj)
29	#endif