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	cnh	1.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