--- MITgcm/model/inc/RECIP_HFACW_MACROS.h 2001/02/04 14:38:45 1.2 +++ MITgcm/model/inc/RECIP_HFACW_MACROS.h 2006/06/07 01:55:12 1.4 @@ -1,13 +1,20 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/inc/RECIP_HFACW_MACROS.h,v 1.2 2001/02/04 14:38:45 cnh Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/inc/RECIP_HFACW_MACROS.h,v 1.4 2006/06/07 01:55:12 heimbach Exp $ C $Name: $ C -C /==========================================================\ -C | RECIP_HFACW_MACROS.h | -C |==========================================================| -C | These macros are used to reduce memory requirement and/or| -C | memory references when variables are fixed along a given | -C | axis or axes. | -C \==========================================================/ +CBOP +C !ROUTINE: RECIP_HFACW_MACROS.h +C !INTERFACE: +C include RECIP_HFACW_MACROS.h +C !DESCRIPTION: \bv +C *==========================================================* +C | RECIP_HFACW_MACROS.h +C *==========================================================* +C | These macros are used to reduce memory requirement and/or +C | memory references when variables are fixed along a given +C | axis or axes. +C *==========================================================* +C \ev +CEOP #ifdef RECIP_HFACW_CONST #define _recip_hFacW(i,j,k,bi,bj) recip_hFacW(1,1,1,1,1) @@ -25,6 +32,10 @@ #define _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,1,bi,bj) #endif +#ifdef ALLOW_DEPTH_CONTROL +# define _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) +#endif + #ifndef _recip_hFacW #define _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,k,bi,bj) #endif