| 1 | C $Header: /u/gcmpack/models/MITgcmUV/model/inc/RDYG_MACROS.h,v 1.2 1998/06/10 01:44:03 cnh Exp $ | 
| 2 | C | 
| 3 | C     /==========================================================\ | 
| 4 | C     | RECIP_DYG_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 RECIP_DYG_CONST | 
| 12 | #define  _recip_dyG(i,j,bi,bj) recip_dyG(1,1,1,1) | 
| 13 | #endif | 
| 14 |  | 
| 15 | #ifdef RECIP_DYG_FX | 
| 16 | #define  _recip_dyG(i,j,bi,bj) recip_dyG(i,1,bi,1) | 
| 17 | #endif | 
| 18 |  | 
| 19 | #ifdef RECIP_DYG_FY | 
| 20 | #define  _recip_dyG(i,j,bi,bj) recip_dyG(1,j,1,bj) | 
| 21 | #endif | 
| 22 |  | 
| 23 | #ifndef _recip_dyG | 
| 24 | #define  _recip_dyG(i,j,bi,bj) recip_dyG(i,j,bi,bj) | 
| 25 | #endif |