model/inc/RECIP_HFACC_MACROS.h

c8a2a4bee7 Chri*0001 C
ac0f2a1690 Chri*0002 CBOP
                0003 C    !ROUTINE: RECIP_HFACC_MACROS.h
                0004 C    !INTERFACE:
                0005 C    include RECIP_HFACC_MACROS.h
                0006 C    !DESCRIPTION: \bv
                0007 C     *==========================================================*
                0008 C     | RECIP_HFACC_MACROS.h
                0009 C     *==========================================================*
                0010 C     | These macros are used to reduce memory requirement and/or
                0011 C     | memory references when variables are fixed along a given
                0012 C     | axis or axes.
                0013 C     *==========================================================*
                0014 C     \ev
                0015 CEOP
c8a2a4bee7 Chri*0016
                0017 #ifdef RECIP_HFACC_CONST
                0018 #define  _recip_hFacC(i,j,k,bi,bj) recip_hFacC(1,1,1,1,1)
                0019 #endif
                0020
                0021 #ifdef RECIP_HFACC_FX
                0022 #define  _recip_hFacC(i,j,k,bi,bj) recip_hFacC(i,1,1,bi,1)
                0023 #endif
                0024
                0025 #ifdef RECIP_HFACC_FY
                0026 #define  _recip_hFacC(i,j,k,bi,bj) recip_hFacC(1,j,1,1,bj)
                0027 #endif
                0028
                0029 #ifdef RECIP_HFACC_FXY
                0030 #define  _recip_hFacC(i,j,k,bi,bj) recip_hFacC(i,j,1,bi,bj)
                0031 #endif
                0032
616600b8d2 Patr*0033 #ifdef ALLOW_DEPTH_CONTROL
                0034 # define _recip_hFacC(i,j,k,bi,bj) recip_hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj)
                0035 #endif
                0036
c8a2a4bee7 Chri*0037 #ifndef _recip_hFacC
                0038 #define  _recip_hFacC(i,j,k,bi,bj) recip_hFacC(i,j,k,bi,bj)
                0039 #endif