Symbol Description Uses
maskW 187


File Line number Procedure Code
./pkg/ebm/ebm_wind_perturb.F 114 EBM_WIND_PERTURB 
         winPert(i,j,bi,bj) = maskW(i,j,k,bi,bj)*
./pkg/exf/exf_check_range.F 104 EXF_CHECK_RANGE 
     &         maskW(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 85 EXF_CHECK_RANGE 
     &         maskW(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_filter_rl.F 90 EXF_FILTER_RL 
                if ( maskW(i,j,1,bi,bj) .eq. 0. ) then
./pkg/exf/exf_filter_rs.F 89 EXF_FILTER_RS 
                if ( maskW(i,j,1,bi,bj) .eq. 0. ) then
./pkg/exf/exf_mapfields.F 161 EXF_MAPFIELDS 
     &              maskW(i,j,1,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_xtransport.F 162 GMREDI_XTRANSPORT 
     &                               *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_uvflow.F 64 GMREDI_CALC_UVFLOW 
     &               + dyG(i,j,bi,bj)*delPsi*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 132 GMREDI_CALC_PSI_B 
     &      )*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 95 GMREDI_CALC_PSI_B 
     &                  *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 97 GMREDI_CALC_PSI_B 
     &                  *maskW(i,j,k,bi,bj)
./pkg/diagnostics/diagstats_local.F 121 DIAGSTATS_LOCAL 
     I            maskW(1-Olx,1-Oly,k,bi,bj),
./pkg/diagnostics/diagstats_local.F 190 DIAGSTATS_LOCAL 
     I            maskW(1-Olx,1-Oly,km,bi,bj),
./pkg/diagnostics/diagstats_local.F 191 DIAGSTATS_LOCAL 
     I            maskW(1-Olx,1-Oly,km,bi,bj),rAw(1-Olx,1-Oly,bi,bj),
./pkg/aim_v23/aim_tendency_apply.F 66 AIM_TENDENCY_APPLY_U 
     &     -maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)/aim_dragStrato
./pkg/aim_v23/aim_tendency_apply.F 72 AIM_TENDENCY_APPLY_U 
         IF ( maskW(i,j,kLev,bi,bj) .NE. 0. ) THEN
./pkg/aim_v23/aim_tendency_apply.F 86 AIM_TENDENCY_APPLY_U 
         IF ( maskW(i,j,kLev-1,bi,bj) .EQ. 0.
./pkg/aim_v23/aim_tendency_apply.F 87 AIM_TENDENCY_APPLY_U 
     &    .AND. maskW(i,j,kLev,bi,bj) .NE. 0. ) THEN
./pkg/mom_fluxform/mom_v_coriolis.F 81 MOM_V_CORIOLIS 
     & *4.d0/max(one, 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/bulk_force/bulkf_forcing.F 161 BULKF_FORCING 
              fu(i,j,bi,bj) = maskW(i,j,1,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/fizhi/fizhi_init_vars.F 135 FIZHI_INIT_VARS 
       call CTOA(myThid,uvel,vvel,maskW,maskS,im1,im2,jm1,jm2,Nr,
./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/fizhi/fizhi_tendency_apply.F 206 FIZHI_TENDENCY_APPLY_T 
     . (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+
./pkg/fizhi/fizhi_tendency_apply.F 207 FIZHI_TENDENCY_APPLY_T 
     .  maskW(i+1,j,kLev,bi,bj)*
./pkg/fizhi/fizhi_tendency_apply.F 220 FIZHI_TENDENCY_APPLY_T 
     . (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+
./pkg/fizhi/fizhi_tendency_apply.F 221 FIZHI_TENDENCY_APPLY_T 
     .  maskW(i+1,j,kLev,bi,bj)*
./pkg/fizhi/fizhi_tendency_apply.F 236 FIZHI_TENDENCY_APPLY_T 
     . (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+
./pkg/fizhi/fizhi_tendency_apply.F 237 FIZHI_TENDENCY_APPLY_T 
     .  maskW(i+1,j,kLev,bi,bj)*
./pkg/fizhi/fizhi_tendency_apply.F 52 FIZHI_TENDENCY_APPLY_U 
     .      maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 53 FIZHI_TENDENCY_APPLY_U 
     . - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 60 FIZHI_TENDENCY_APPLY_U 
        tmpdiag(i,j) = ( maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 61 FIZHI_TENDENCY_APPLY_U 
     .    - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) )
./pkg/fizhi/fizhi_tendency_apply.F 72 FIZHI_TENDENCY_APPLY_U 
     .       maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) * 86400
./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 40 FIZHI_TENDENCY_APPLY_U 
     .      maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj)
./model/src/ini_masks_etc.F 292 INI_MASKS_ETC 
            maskW(I,J,K,bi,bj) = 1.
./model/src/ini_masks_etc.F 295 INI_MASKS_ETC 
            maskW(I,J,K,bi,bj) = 0.
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 277 INI_MASKS_ETC 
            maskW(I,J,K,bi,bj) = 1.
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 280 INI_MASKS_ETC 
            maskW(I,J,K,bi,bj) = 0.
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 268 INI_MASKS_ETC 
            maskW(I,J,K,bi,bj) = 1.
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 271 INI_MASKS_ETC 
            maskW(I,J,K,bi,bj) = 0.
./verification/OpenAD/code_ad/cost_test.F 69 COST_TEST 
            objf_test(bi,bj) = objf_test(bi,bj) + maskW(i,j,k,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 630 ECCO_COST_WEIGHTS 
     &             maskW(i,j,k,bi,bj).NE.0. )
./verification/global1x1_tot/code/ecco_cost_weights.F 637 ECCO_COST_WEIGHTS 
              wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)*maskW(i,j,k,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 719 ECCO_COST_WEIGHTS 
     &             maskW(i,j,k,bi,bj).NE.0. )
./verification/global1x1_tot/code/ecco_cost_weights.F 726 ECCO_COST_WEIGHTS 
              wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskW(i,j,k,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 627 ECCO_COST_WEIGHTS 
     &             maskW(i,j,k,bi,bj).NE.0. )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 634 ECCO_COST_WEIGHTS 
              wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)*maskW(i,j,k,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 716 ECCO_COST_WEIGHTS 
     &             maskW(i,j,k,bi,bj).NE.0. )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 723 ECCO_COST_WEIGHTS 
              wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskW(i,j,k,bi,bj)
./verification/bottom_ctrl_5x5/code_ad/cost_test.F 59 COST_TEST 
             IF ( maskW(I,J,K,BI,BJ) .NE. 0. ) THEN
./model/src/update_masks_etc.F 227 UPDATE_MASKS_ETC 
              hFacW(I,J,K,bi,bj)=maskW(I,J,K,bi,bj)*
./model/src/update_masks_etc.F 350 UPDATE_MASKS_ETC 
           IF (maskW(I,J,K,bi,bj).NE.0.) THEN
./model/src/update_r_star.F 74 UPDATE_R_STAR 
            recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)
./model/src/update_r_star.F 75 UPDATE_R_STAR 
     &        / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) )
./model/src/update_r_star.F 81 UPDATE_R_STAR 
           IF (maskW(i,j,k,bi,bj).NE.0.)
./model/src/ini_hfac.F 48 INI_HFAC 
           maskW(I,J,K,bi,bj) = 0. _d 0
./model/src/calc_surf_dr.F 148 CALC_SURF_DR 
     &         )*recip_drF(ks)*maskW(i,j,ks,bi,bj)
./pkg/cost/cost_atlantic_heat.F 144 COST_ATLANTIC_HEAT 
     &                      *maskW(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 149 COST_ATLANTIC_HEAT 
     &                 *maskW(i,j,k,bi,bj)*dyG(i,j,bi,bj)
./pkg/cost/cost_atlantic_heat.F 151 COST_ATLANTIC_HEAT 
             countT(k) = countT(k) + maskW(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 153 COST_ATLANTIC_HEAT 
             countU(k) = countU(k) + maskW(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 38 MYPACKAGE_TENDENCY_APPLY_U 
     &   maskW(i,j,kLev,bi,bj) * mypaGUvel(i,j,kLev,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.)
./pkg/mom_common/mom_calc_hfacz.F 121 MOM_CALC_HFACZ 
     &       *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 146 MOM_CALC_HFACZ 
     &         *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F 301 MOM_CALC_VISC 
     &                  *maskW(i,j,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/monitor/monitor.F 111 MONITOR 
     &       maskW,hFacW,rAw,drF,myThid)
./pkg/ecco/cost_scat.F 134 COST_SCAT 
                if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_tau_eddy.F 68 COST_TAU_EDDY 
             locfc = locfc + maskW(i,j,k,bi,bj)*
./pkg/ecco/cost_readscatxfields.F 126 COST_READSCATXFIELDS 
              if (maskW(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_obcsn.F 201 COST_OBCSN 
                  if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsvol.F 292 COST_OBCSVOL 
                  if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsvol.F 335 COST_OBCSVOL 
                  if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_forcing_gen.F 260 COST_FORCING_GEN 
     &                   *maskW(i+1,j,kk,bi,bj)*maskW(i+2,j,kk,bi,bj)
./pkg/ecco/cost_forcing_gen.F 262 COST_FORCING_GEN 
     &                   *maskW(i+1,j,kk,bi,bj)
./pkg/ecco/cost_salt0.F 155 COST_SALT0 
     &                *maskW(i+1,j,k,bi,bj)*maskW(i+2,j,k,bi,bj)
./pkg/ecco/cost_salt0.F 157 COST_SALT0 
     &                *maskW(i+1,j,k,bi,bj)
./pkg/ecco/cost_obcsw.F 201 COST_OBCSW 
                  if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta0.F 155 COST_THETA0 
     &                *maskW(i+1,j,k,bi,bj)*maskW(i+2,j,k,bi,bj)
./pkg/ecco/cost_theta0.F 157 COST_THETA0 
     &                *maskW(i+1,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1294 ECCO_COST_WEIGHTS 
      call ACTIVE_WRITE_XYZ_LOC( 'maskCtrlW', maskW,
./pkg/ecco/ecco_cost_weights.F 700 ECCO_COST_WEIGHTS 
              wtauu2(i,j,bi,bj) = wtau0*maskW(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/cost_forcing.F 124 COST_FORCING 
     &     maskW, mythid )
./pkg/ecco/cost_obcse.F 201 COST_OBCSE 
                  if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcss.F 201 COST_OBCSS 
                  if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcse.F 153 CTRL_GETOBCSE 
     &                maskW(i+ip1,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcse.F 155 CTRL_GETOBCSE 
                      if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcse.F 271 CTRL_GETOBCSE 
     &                maskW(i+ip1,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcse.F 273 CTRL_GETOBCSE 
                      if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcse.F 347 CTRL_GETOBCSE 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 353 CTRL_GETOBCSE 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 359 CTRL_GETOBCSE 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_mask_set_yz.F 106 CTRL_MASK_SET_YZ 
                    if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcsw.F 153 CTRL_GETOBCSW 
     &                maskW(i+ip1,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcsw.F 155 CTRL_GETOBCSW 
                      if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcsw.F 274 CTRL_GETOBCSW 
     &                maskW(i+ip1,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcsw.F 276 CTRL_GETOBCSW 
                      if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcsw.F 350 CTRL_GETOBCSW 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 356 CTRL_GETOBCSW 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 362 CTRL_GETOBCSW 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_mask_set_xz.F 112 CTRL_MASK_SET_XZ 
                    if (maskW(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_obcsvol.F 255 CTRL_OBCSVOL 
                if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_obcsvol.F 291 CTRL_OBCSVOL 
                if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_obcsvol.F 413 CTRL_OBCSVOL 
                if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_obcsvol.F 449 CTRL_OBCSVOL 
                if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_init.F 837 CTRL_INIT 
              wtauu     (i,j,bi,bj) = maskW(i,j,1,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 190 CTRL_GETOBCSS 
     &                maskW(i,j,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcss.F 192 CTRL_GETOBCSS 
                      if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcss.F 309 CTRL_GETOBCSS 
     &                maskW(i,j,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcss.F 311 CTRL_GETOBCSS 
                      if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcss.F 362 CTRL_GETOBCSS 
     &                      *maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 203 CTRL_GETOBCSN 
     &                maskW(i,j,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcsn.F 205 CTRL_GETOBCSN 
                      if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcsn.F 333 CTRL_GETOBCSN 
     &                maskW(i,j,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcsn.F 335 CTRL_GETOBCSN 
                      if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcsn.F 389 CTRL_GETOBCSN 
     &                         *maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_volflux.F 287 CTRL_VOLFLUX 
                  if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_volflux.F 349 CTRL_VOLFLUX 
                if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_init_wet.F 113 CTRL_INIT_WET 
                if (maskW(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_init_wet.F 456 CTRL_INIT_WET 
      call ACTIVE_WRITE_XYZ( 'maskCtrlW', maskW, 1, 0, mythid, dummy)
./model/inc/GRID.h 393 NO PROCEDURE 
     &  maskH, maskC,maskW,maskS,
./model/inc/GRID.h 448 NO PROCEDURE 
      _RS maskW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
./pkg/generic_advdiff/gad_advection.F 268 GAD_ADVECTION 
         maskLocW(i,j)=maskW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 218 GAD_CALC_RHS 
     I            uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT,
./pkg/generic_advdiff/gad_calc_rhs.F 226 GAD_CALC_RHS 
     I            uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT,
./pkg/generic_advdiff/gad_calc_rhs.F 234 GAD_CALC_RHS 
     I           uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT,
./pkg/generic_advdiff/gad_calc_rhs.F 238 GAD_CALC_RHS 
     I           uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT,
./pkg/generic_advdiff/gad_u3_adv_x.F 60 GAD_U3_ADV_X 
        Rjp=(tracer(i+1,j)-tracer(i,j))*maskW(i+1,j,k,bi,bj)
./pkg/generic_advdiff/gad_u3_adv_x.F 61 GAD_U3_ADV_X 
        Rj =(tracer(i,j)-tracer(i-1,j))*maskW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_u3_adv_x.F 62 GAD_U3_ADV_X 
        Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskW(i-1,j,k,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_x.F 62 GAD_C4_ADV_X 
     &     *maskW(i+1,j,k,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_x.F 64 GAD_C4_ADV_X 
     &     *maskW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_x.F 66 GAD_C4_ADV_X 
     &     *maskW(i-1,j,k,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_x.F 74 GAD_C4_ADV_X 
     &    *( 1. _d 0 - maskW(i-1,j,k,bi,bj)*maskW(i+1,j,k,bi,bj) )
./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/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 205 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/shap_filt/shap_filt_computvort.F 102 SHAP_FILT_COMPUTVORT 
           maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 116 SHAP_FILT_COMPUTVORT 
           maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 138 SHAP_FILT_COMPUTVORT 
           maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 160 SHAP_FILT_COMPUTVORT 
           maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 72 SHAP_FILT_COMPUTVORT 
          maskZ = (maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj))
./pkg/seaice/seaice_advection.F 235 SEAICE_ADVECTION 
        xA(i,j) = _dyG(i,j,bi,bj) * maskW(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 256 SEAICE_ADVECTION 
        maskLocW(i,j)=maskW(i,j,k,bi,bj)
./pkg/seaice/seaice_monitor.F 109 SEAICE_MONITOR 
     &       maskW,maskW,rAw,drF,myThid)