| 1 | 
heimbach | 
1.4 | 
C $Header: /u/gcmpack/MITgcm/model/inc/RECIP_HFACW_MACROS.h,v 1.3 2001/09/21 15:13:31 cnh Exp $ | 
| 2 | 
cnh | 
1.3 | 
C $Name:  $ | 
| 3 | 
cnh | 
1.1 | 
C | 
| 4 | 
cnh | 
1.3 | 
CBOP | 
| 5 | 
  | 
  | 
C    !ROUTINE: RECIP_HFACW_MACROS.h | 
| 6 | 
  | 
  | 
C    !INTERFACE: | 
| 7 | 
  | 
  | 
C    include RECIP_HFACW_MACROS.h | 
| 8 | 
  | 
  | 
C    !DESCRIPTION: \bv | 
| 9 | 
  | 
  | 
C     *==========================================================* | 
| 10 | 
  | 
  | 
C     | RECIP_HFACW_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 | 
cnh | 
1.1 | 
 | 
| 19 | 
  | 
  | 
#ifdef RECIP_HFACW_CONST | 
| 20 | 
  | 
  | 
#define  _recip_hFacW(i,j,k,bi,bj) recip_hFacW(1,1,1,1,1) | 
| 21 | 
  | 
  | 
#endif | 
| 22 | 
  | 
  | 
 | 
| 23 | 
  | 
  | 
#ifdef RECIP_HFACW_FX | 
| 24 | 
  | 
  | 
#define  _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,1,1,bi,1) | 
| 25 | 
  | 
  | 
#endif | 
| 26 | 
  | 
  | 
 | 
| 27 | 
  | 
  | 
#ifdef RECIP_HFACW_FY | 
| 28 | 
  | 
  | 
#define  _recip_hFacW(i,j,k,bi,bj) recip_hFacW(1,j,1,1,bj) | 
| 29 | 
  | 
  | 
#endif | 
| 30 | 
  | 
  | 
 | 
| 31 | 
  | 
  | 
#ifdef RECIP_HFACW_FXY | 
| 32 | 
  | 
  | 
#define  _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,1,bi,bj) | 
| 33 | 
  | 
  | 
#endif | 
| 34 | 
  | 
  | 
 | 
| 35 | 
heimbach | 
1.4 | 
#ifdef ALLOW_DEPTH_CONTROL | 
| 36 | 
  | 
  | 
# define _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) | 
| 37 | 
  | 
  | 
#endif | 
| 38 | 
  | 
  | 
 | 
| 39 | 
cnh | 
1.1 | 
#ifndef _recip_hFacW | 
| 40 | 
  | 
  | 
#define  _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,k,bi,bj) | 
| 41 | 
  | 
  | 
#endif |