/[MITgcm]/MITgcm/model/inc/RECIP_HFACW_MACROS.h
ViewVC logotype

Diff of /MITgcm/model/inc/RECIP_HFACW_MACROS.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by cnh, Sun Feb 4 14:38:45 2001 UTC revision 1.4 by heimbach, Wed Jun 7 01:55:12 2006 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3  C  C
4  C     /==========================================================\  CBOP
5  C     | RECIP_HFACW_MACROS.h                                     |  C    !ROUTINE: RECIP_HFACW_MACROS.h
6  C     |==========================================================|  C    !INTERFACE:
7  C     | These macros are used to reduce memory requirement and/or|  C    include RECIP_HFACW_MACROS.h
8  C     | memory references when variables are fixed along a given |  C    !DESCRIPTION: \bv
9  C     | axis or axes.                                            |  C     *==========================================================*
10  C     \==========================================================/  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    
19  #ifdef RECIP_HFACW_CONST  #ifdef RECIP_HFACW_CONST
20  #define  _recip_hFacW(i,j,k,bi,bj) recip_hFacW(1,1,1,1,1)  #define  _recip_hFacW(i,j,k,bi,bj) recip_hFacW(1,1,1,1,1)
# Line 25  C     \================================= Line 32  C     \=================================
32  #define  _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,1,bi,bj)  #define  _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,1,bi,bj)
33  #endif  #endif
34    
35    #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  #ifndef _recip_hFacW  #ifndef _recip_hFacW
40  #define  _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,k,bi,bj)  #define  _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,k,bi,bj)
41  #endif  #endif
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22