model/inc/FCORI_MACROS.h

5984027334 Chri*0001 C
ac0f2a1690 Chri*0002 CBOP
                0003 C    !ROUTINE: FCORI_MACROS.h
                0004 C    !INTERFACE:
                0005 C    include FCORI_MACROS.h
                0006 C    !DESCRIPTION: \bv
                0007 C     *==========================================================*
                0008 C     | FCORI_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
5984027334 Chri*0016
                0017 #ifdef FCORI_CONST
                0018 #define  _fCori(i,j,bi,bj) fCori(1,1,1,1)
aea29c8517 Alis*0019 #define  _fCoriG(i,j,bi,bj) fCoriG(1,1,1,1)
5984027334 Chri*0020 #endif
                0021
                0022 #ifdef FCORI_FX
                0023 #define  _fCori(i,j,bi,bj) fCori(i,1,bi,1)
aea29c8517 Alis*0024 #define  _fCoriG(i,j,bi,bj) fCoriG(i,1,bi,1)
5984027334 Chri*0025 #endif
                0026
                0027 #ifdef FCORI_FY
                0028 #define  _fCori(i,j,bi,bj) fCori(1,j,1,bj)
aea29c8517 Alis*0029 #define  _fCoriG(i,j,bi,bj) fCoriG(1,j,1,bj)
5984027334 Chri*0030 #endif
                0031
                0032 #ifndef _fCori
                0033 #define  _fCori(i,j,bi,bj) fCori(i,j,bi,bj)
aea29c8517 Alis*0034 #define  _fCoriG(i,j,bi,bj) fCoriG(i,j,bi,bj)
5984027334 Chri*0035 #endif