| 1 | C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/inc/TANPHIATU_MACROS.h,v 1.3 2001/09/21 15:13:31 cnh Exp $ | 
| 2 | C $Name:  $ | 
| 3 | C | 
| 4 | CBOP | 
| 5 | C    !ROUTINE: TANPHIATU_MACROS.h | 
| 6 | C    !INTERFACE: | 
| 7 | C    include TANPHIATU_MACROS.h | 
| 8 | C    !DESCRIPTION: \bv | 
| 9 | C     *==========================================================* | 
| 10 | C     | TANPHIATU_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 TANPHIATU_CONST | 
| 20 | #define  _tanPhiAtU(i,j,bi,bj) tanPhiAtU(1,1,1,1) | 
| 21 | #endif | 
| 22 |  | 
| 23 | #ifdef TANPHIATU_FX | 
| 24 | #define  _tanPhiAtU(i,j,bi,bj) tanPhiAtU(i,1,bi,1) | 
| 25 | #endif | 
| 26 |  | 
| 27 | #ifdef TANPHIATU_FY | 
| 28 | #define  _tanPhiAtU(i,j,bi,bj) tanPhiAtU(1,j,1,bj) | 
| 29 | #endif | 
| 30 |  | 
| 31 | #ifndef _tanPhiAtU | 
| 32 | #define  _tanPhiAtU(i,j,bi,bj) tanPhiAtU(i,j,bi,bj) | 
| 33 | #endif |