Symbol Description Uses
maskW West face land mask 196


File Line number Procedure Code
./model/inc/GRID.h 424 NO PROCEDURE 
     &  maskC, maskW, maskS,
./model/inc/GRID.h 477 NO PROCEDURE 
      _RS maskW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
./pkg/exf/exf_check_range.F 118 EXF_CHECK_RANGE 
     &         maskW(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 99 EXF_CHECK_RANGE 
     &         maskW(i,j,1,bi,bj) .NE. 0. ) then
./model/inc/HFACW_MACROS.h 36 NO PROCEDURE 
# define _hFacW(i,j,k,bi,bj) hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj)
./pkg/exf/exf_filter_rl.F 72 EXF_FILTER_RL 
               IF ( maskW(i,j,ks,bi,bj) .EQ. 0. ) THEN
./pkg/exf/exf_mapfields.F 252 EXF_MAPFIELDS 
     &              *exf_half*maskW(i,j,ks,bi,bj)
./pkg/fizhi/fizhi_init_vars.F 155 FIZHI_INIT_VARS 
       call CTOA(myThid,uvel,vvel,maskW,maskS,im1,im2,jm1,jm2,Nr,
./pkg/fizhi/fizhi_tendency_apply.F 228 FIZHI_TENDENCY_APPLY_T 
     &        *( maskW(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 230 FIZHI_TENDENCY_APPLY_T 
     &         + maskW(i+1,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 246 FIZHI_TENDENCY_APPLY_T 
     &        *( maskW(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 248 FIZHI_TENDENCY_APPLY_T 
     &         + maskW(i+1,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 264 FIZHI_TENDENCY_APPLY_T 
     &        *( maskW(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 266 FIZHI_TENDENCY_APPLY_T 
     &         + maskW(i+1,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 58 FIZHI_TENDENCY_APPLY_U 
     &              + maskW(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 67 FIZHI_TENDENCY_APPLY_U 
        tmpdiag(i,j) = maskW(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 80 FIZHI_TENDENCY_APPLY_U 
     &       maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) * 86400
./pkg/fizhi/step_fizhi_corr.F 207 STEP_FIZHI_CORR 
        call CTOA(myThid,udyntemp,vdyntemp,maskW,maskS,im1,im2,jm1,jm2,
./pkg/fizhi/step_fizhi_corr.F 358 STEP_FIZHI_CORR 
       call CTOA(myThid,udyntemp,vdyntemp,maskW,maskS,im1,im2,jm1,jm2,
./pkg/generic_advdiff/gad_c4_adv_x.F 75 GAD_C4_ADV_X 
     &    *( 1. _d 0 - maskW(i-1,j,k,bi,bj)*maskW(i+1,j,k,bi,bj) )
./pkg/generic_advdiff/gad_calc_rhs.F 274 GAD_CALC_RHS 
     I                             maskW(1-OLx,1-OLy,k,bi,bj),
./model/inc/RECIP_HFACW_MACROS.h 36 NO PROCEDURE 
# define _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 110 GMREDI_CALC_PSI_B 
     &                  *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 112 GMREDI_CALC_PSI_B 
     &                  *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 154 GMREDI_CALC_PSI_B 
     &      )*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 156 GMREDI_CALC_PSI_B 
     &     +eddyPsiX(i,j,k,bi,bj)*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F 113 GMREDI_CALC_PSI_BVP 
     &                  *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F 115 GMREDI_CALC_PSI_BVP 
     &                  *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F 142 GMREDI_CALC_PSI_BVP 
          IF ( maskW(i,j,k,bi,bj).NE.0. ) THEN
./pkg/gmredi/gmredi_k3d.F 405 GMREDI_K3D 
     &        maskW(i,j,k,bi,bj)*drF(k)*hfacC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 647 GMREDI_K3D 
           SlopeX(i,j,k)=-maskW(i,j,k-1,bi,bj)*maskW(i,j,k,bi,bj)*slope
./pkg/gmredi/gmredi_k3d.F 688 GMREDI_K3D 
     &        *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 728 GMREDI_K3D 
                   tfluxX(i,j,k) = -fCoriU(i,j)*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 731 GMREDI_K3D 
                   tfluxX(i,j,k) = -fCoriU(i,j)*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 774 GMREDI_K3D 
           gradqx(i,j,k) = maskW(i,j,k,bi,bj)*tfluxX(i,j,k)
./pkg/gmredi/gmredi_k3d.F 785 GMREDI_K3D 
           gradqx(i,j,k) = maskW(i,j,k,bi,bj)*(dfdx(i,j)+tfluxX(i,j,k))
./pkg/gmredi/gmredi_k3d.F 800 GMREDI_K3D 
         N2W(i,j,k) = maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 829 GMREDI_K3D 
           Xix(i,j,k) = -maskW(i,j,k,bi,bj)*KPV(i,j,k)*gradqx(i,j,k)
./pkg/gmredi/gmredi_k3d.F 845 GMREDI_K3D 
     I         kLow_U,maskW(:,:,:,bi,bj),
./pkg/gmredi/gmredi_k3d.F 865 GMREDI_K3D 
     &           - maskW(i,j,k,bi,bj)*drF(k)*hfacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 885 GMREDI_K3D 
     &           + maskW(i,j,k,bi,bj)*XimX(m,i,j)*modesW(m,i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F 180 GMREDI_XTRANSPORT 
     &                               *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F 208 GMREDI_XTRANSPORT 
     &                               *maskW(i,j,k,bi,bj)
./pkg/layers/layers_fluxcalc.F 204 LAYERS_FLUXCALC 
     &              ) * maskW(i,j,kcip1,bi,bj) * maskp1
./pkg/layers/layers_fluxcalc.F 207 LAYERS_FLUXCALC 
     &              ) * maskW(i,j, kci ,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F 178 MOM_CALC_3D_STRAIN 
     &                  *maskW(i,j-1,k,bi,bj)*maskW(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F 185 MOM_CALC_3D_STRAIN 
     &                  *maskW(i,j,k-1,bi,bj)*maskW(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 124 MOM_CALC_HFACZ 
     &       *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 147 MOM_CALC_HFACZ 
     &         *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 139 MOM_CALC_RELVORT3 
     &     *maskW(i-1,j,k,bi,bj)*maskS(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 196 MOM_CALC_RELVORT3 
     &     *maskW(i+1,j,k,bi,bj)*maskS(i-1,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 253 MOM_CALC_RELVORT3 
     &     *maskS(i,j+1,k,bi,bj)*maskW(i-1,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 303 MOM_CALC_RELVORT3 
     &     *maskS(i-1,j+1,k,bi,bj)*maskW(i+1,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F 298 MOM_CALC_VISC 
     &                  *maskW(i,j,k,bi,bj)
./pkg/mom_common/mom_u_implicit_r.F 87 MOM_U_IMPLICIT_R 
          IF (maskW(i,j,k-1,bi,bj).EQ.1.)
./pkg/mom_common/mom_u_implicit_r.F 98 MOM_U_IMPLICIT_R 
          IF (maskW(i,j,k+1,bi,bj).EQ.1.)
./model/src/calc_surf_dr.F 161 CALC_SURF_DR 
     &              )*recip_drF(ks)*maskW(i,j,ks,bi,bj)
./pkg/mom_fluxform/mom_uv_boundary.F 129 MOM_UV_BOUNDARY 
          IF (maskW(i,j,k,bi,bj).EQ.0.) THEN
./pkg/mom_fluxform/mom_v_coriolis.F 81 MOM_V_CORIOLIS 
     &                 maskW( i , j ,k,bi,bj)+maskW(i+1, j ,k,bi,bj)
./pkg/mom_fluxform/mom_v_coriolis.F 82 MOM_V_CORIOLIS 
     &                +maskW( i ,j-1,k,bi,bj)+maskW(i+1,j-1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_del2uv.F 98 MOM_VI_DEL2UV 
     &      )*maskW(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 60 MYPACKAGE_TENDENCY_APPLY_U 
     &     + maskW(i,j,k,bi,bj) * myPa_TendVelU(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 68 MYPACKAGE_TENDENCY_APPLY_U 
     &     + maskW(i,j,k,bi,bj)*( myPa_TendVelU(i-1,j,k,bi,bj)
./pkg/obcs/obcs_add_tides.F 67 OBCS_ADD_TIDES 
     &              maskW(iB,j,k,bi,bj) * OBEam(j,td,bi,bj) *
./pkg/obcs/obcs_add_tides.F 85 OBCS_ADD_TIDES 
     &              maskW(1+iB,j,k,bi,bj) * OBWam(j,td,bi,bj) *
./pkg/obcs/obcs_balance_flow.F 328 OBCS_BALANCE_FLOW 
     &                       + flowE*maskW(iB,j,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F 348 OBCS_BALANCE_FLOW 
     &                       + flowW*maskW(1+iB,j,k,bi,bj)
./pkg/profiles/profiles_interp.F 172 PROFILES_INTERP 
               tab_coeffs3(1,1)=maskW(prof_i,prof_j,k,bi,bj) !SO
./pkg/profiles/profiles_interp.F 173 PROFILES_INTERP 
               tab_coeffs3(1,2)=maskW(prof_i+1,prof_j,k,bi,bj) !SE
./pkg/profiles/profiles_interp.F 174 PROFILES_INTERP 
               tab_coeffs3(2,1)=maskW(prof_i,prof_j+1,k,bi,bj) !NO
./pkg/profiles/profiles_interp.F 175 PROFILES_INTERP 
               tab_coeffs3(2,2)=maskW(prof_i+1,prof_j+1,k,bi,bj) !NZ
./pkg/profiles/profiles_interp_gg.F 81 PROFILES_INTERP_GG 
               tab_coeffs3(q)=maskW(i_cur(q),j_cur(q),k,bi,bj)
./pkg/rbcs/rbcs_init_fixed.F 161 RBCS_INIT_FIXED 
     &                                * maskW(i,j,k,bi,bj)
./pkg/seaice/dynsolver.F 195 DYNSOLVER 
     &         *( (phiSurf(i, j )-phiSurf(i-1, j ))*maskW(i, j ,1,bi,bj)
./pkg/seaice/dynsolver.F 196 DYNSOLVER 
     &           +(phiSurf(i,j-1)-phiSurf(i-1,j-1))*maskW(i,j-1,1,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 105 SHAP_FILT_COMPUTVORT 
           maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 119 SHAP_FILT_COMPUTVORT 
           maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 141 SHAP_FILT_COMPUTVORT 
           maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 163 SHAP_FILT_COMPUTVORT 
           maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 75 SHAP_FILT_COMPUTVORT 
          maskZ = (maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj))
./pkg/shap_filt/shap_filt_uv_s1.F 232 SHAP_FILT_UV_S1 
             maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 233 SHAP_FILT_UV_S1 
             maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 240 SHAP_FILT_UV_S1 
             maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 241 SHAP_FILT_UV_S1 
             maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 213 SHAP_FILT_UV_S2 
     &                   )*maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 231 SHAP_FILT_UV_S4 
             maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 232 SHAP_FILT_UV_S4 
             maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 242 SHAP_FILT_UV_S4 
             maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 243 SHAP_FILT_UV_S4 
             maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj)
./pkg/smooth/smooth_rhs.F 212 SMOOTH_RHS 
     &      +0.5*(maskW(i+1,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 215 SMOOTH_RHS 
     &            +maskW(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 218 SMOOTH_RHS 
     &      +0.5*(maskW(i+1,j-1,k,bi,bj)
./pkg/smooth/smooth_rhs.F 221 SMOOTH_RHS 
     &            +maskW(i,j-1,k,bi,bj)
./pkg/smooth/smooth_rhs.F 268 SMOOTH_RHS 
     &      +0.5*(maskW(i+1,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 271 SMOOTH_RHS 
     &            +maskW(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 274 SMOOTH_RHS 
     &      +0.5*(maskW(i+1,j,k-1,bi,bj)
./pkg/smooth/smooth_rhs.F 277 SMOOTH_RHS 
     &            +maskW(i,j,k-1,bi,bj)
./model/src/ini_masks_etc.F 325 INI_MASKS_ETC 
            maskW(i,j,k,bi,bj) = 1.
./model/src/ini_masks_etc.F 328 INI_MASKS_ETC 
            maskW(i,j,k,bi,bj) = 0.
./verification/OpenAD/code_ad_singlelayer/cost_test.F 69 COST_TEST 
            objf_test(bi,bj) = objf_test(bi,bj) + maskW(i,j,k,bi,bj)
./verification/bottom_ctrl_5x5/code_ad/cost_test.F 56 COST_TEST 
             IF ( maskW(I,J,K,BI,BJ) .NE. 0. ) THEN
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 135 FIZHI_INIT_VARS 
       call CTOA(myThid,uvel,vvel,maskW,maskS,im1,im2,jm1,jm2,Nr,
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 46 FIZHI_TENDENCY_APPLY_U 
     .      maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj)
./verification/hs94.1x64x5/code/apply_forcing.F 73 APPLY_FORCING_U 
        IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.1x64x5/code_ad/apply_forcing.F 73 APPLY_FORCING_U 
        IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.1x64x5/code_oad/apply_forcing.F 73 APPLY_FORCING_U 
        IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.cs-32x32x5/code/apply_forcing.F 73 APPLY_FORCING_U 
        IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN
./model/src/rotate_uv2en.F 164 ROTATE_UV2EN_RL 
              uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 345 ROTATE_UV2EN_RS 
              uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj)
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 73 APPLY_FORCING_U 
        IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN
./model/src/update_masks_etc.F 223 UPDATE_MASKS_ETC 
              hFacW(I,J,K,bi,bj)=maskW(I,J,K,bi,bj)*
./model/src/update_r_star.F 104 UPDATE_R_STAR 
            recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)
./model/src/update_r_star.F 105 UPDATE_R_STAR 
     &        / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) )
./model/src/update_r_star.F 111 UPDATE_R_STAR 
           IF (maskW(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F 69 UPDATE_R_STAR 
            recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)
./model/src/update_r_star.F 70 UPDATE_R_STAR 
     &        / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) )
./model/src/update_r_star.F 76 UPDATE_R_STAR 
           IF (maskW(i,j,k,bi,bj).NE.0.)
./model/src/update_sigma.F 143 UPDATE_SIGMA 
            hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)
./model/src/update_sigma.F 147 UPDATE_SIGMA 
            recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)*drF(k)
./pkg/aim_v23/aim_tendency_apply.F 109 AIM_TENDENCY_APPLY_U 
         IF ( maskW(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_v23/aim_tendency_apply.F 130 AIM_TENDENCY_APPLY_U 
         IF ( maskW(i,j,k-1,bi,bj) .EQ. 0.
./pkg/aim_v23/aim_tendency_apply.F 131 AIM_TENDENCY_APPLY_U 
     &    .AND. maskW(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_v23/aim_tendency_apply.F 98 AIM_TENDENCY_APPLY_U 
     &     -maskW(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)/aim_dragStrato
./pkg/atm_phys/atm_phys_tendency_apply.F 64 ATM_PHYS_TENDENCY_APPLY_U 
     &     + maskW(i,j,k,bi,bj)*( atmPhys_dU(i-1,j,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F 74 ATM_PHYS_TENDENCY_APPLY_U 
     &     - maskW(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k)
./pkg/bulk_force/bulkf_forcing.F 161 BULKF_FORCING 
              fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 715 CHEAPAML 
            fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0
./pkg/cheapaml/cheapaml.F 726 CHEAPAML 
            fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0
./pkg/cheapaml/cheapaml.F 747 CHEAPAML 
            fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0
./pkg/cost/cost_accumulate_mean.F 63 COST_ACCUMULATE_MEAN 
     &                 *maskW(i,j,k,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 155 COST_ATLANTIC_HEAT 
     &                      *maskW(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 160 COST_ATLANTIC_HEAT 
     &                 *maskW(i,j,k,bi,bj)*dyG(i,j,bi,bj)
./pkg/cost/cost_atlantic_heat.F 162 COST_ATLANTIC_HEAT 
             countT(k) = countT(k) + maskW(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 164 COST_ATLANTIC_HEAT 
             countU(k) = countU(k) + maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 138 CTRL_GETOBCSE 
                nz = nz + maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 207 CTRL_GETOBCSE 
                nz = nz + maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 260 CTRL_GETOBCSE 
     &           *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 266 CTRL_GETOBCSE 
     &           *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 272 CTRL_GETOBCSE 
     &           *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 145 CTRL_GETOBCSN 
              nz = nz + maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 214 CTRL_GETOBCSN 
              nz = nz + maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 278 CTRL_GETOBCSN 
     &           *maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 141 CTRL_GETOBCSS 
              nz = nz + maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 210 CTRL_GETOBCSS 
              nz = nz + maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 273 CTRL_GETOBCSS 
     &           *maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 138 CTRL_GETOBCSW 
                nz = nz + maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 207 CTRL_GETOBCSW 
                nz = nz + maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 260 CTRL_GETOBCSW 
     &           *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 266 CTRL_GETOBCSW 
     &           *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 272 CTRL_GETOBCSW 
     &           *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_init.F 850 CTRL_INIT 
          wtauu     (i,j,bi,bj) = maskW(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init_wet.F 124 CTRL_INIT_WET 
                if (maskW(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_init_wet.F 620 CTRL_INIT_WET 
      CALL ACTIVE_WRITE_GEN_RS( 'maskCtrlW', maskW, 'XY', Nr,
./pkg/ctrl/ctrl_mask_set_xz.F 110 CTRL_MASK_SET_XZ 
                    if (maskW(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_mask_set_yz.F 104 CTRL_MASK_SET_YZ 
                    if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ebm/ebm_wind_perturb.F 114 EBM_WIND_PERTURB 
         winPert(i,j,bi,bj) = maskW(i,j,k,bi,bj)*
./pkg/ecco/cost_forcing.F 135 COST_FORCING 
     &     maskW, mythid )
./pkg/ecco/cost_forcing_gen.F 267 COST_FORCING_GEN 
     &                   *maskW(i+1,j,kk,bi,bj)*maskW(i+2,j,kk,bi,bj)
./pkg/ecco/cost_forcing_gen.F 269 COST_FORCING_GEN 
     &                   *maskW(i+1,j,kk,bi,bj)
./pkg/ecco/cost_generic.F 160 COST_GENERIC 
         localmask(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)
./pkg/ecco/cost_obcsvol.F 295 COST_OBCSVOL 
                  if (maskW(i+1,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsvol.F 338 COST_OBCSVOL 
                  if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_readscatxfields.F 188 COST_READSCATXFIELDS 
              if (maskW(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_salt0.F 162 COST_SALT0 
     &                *maskW(i+1,j,k,bi,bj)*maskW(i+2,j,k,bi,bj)
./pkg/ecco/cost_salt0.F 164 COST_SALT0 
     &                *maskW(i+1,j,k,bi,bj)
./pkg/ecco/cost_scat.F 165 COST_SCAT 
                if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_tau_eddy.F 237 COST_TAU_EDDY 
             locfc = locfc + maskW(i,j,k,bi,bj)*
./pkg/ecco/cost_theta0.F 162 COST_THETA0 
     &                *maskW(i+1,j,k,bi,bj)*maskW(i+2,j,k,bi,bj)
./pkg/ecco/cost_theta0.F 164 COST_THETA0 
     &                *maskW(i+1,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1699 ECCO_COST_WEIGHTS 
                 wuvel3d(i,j,k,bi,bj)=frame(i,j)*maskW(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 2060 ECCO_COST_WEIGHTS 
      CALL ACTIVE_WRITE_GEN_RS( 'maskCtrlW', maskW, 'XY', Nr,
./pkg/ecco/ecco_cost_weights.F 948 ECCO_COST_WEIGHTS 
              wtauu2(i,j,bi,bj) = wtau0*maskW(i,j,k,bi,bj)*frame(i,j)