Symbol Description Uses
maskS South face land mask 199


File Line number Procedure Code
./model/inc/GRID.h 424 NO PROCEDURE 
     &  maskC, maskW, maskS,
./model/inc/GRID.h 478 NO PROCEDURE 
      _RS maskS          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
./model/inc/HFACS_MACROS.h 36 NO PROCEDURE 
# define _hFacS(i,j,k,bi,bj) hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj)
./pkg/exf/exf_check_range.F 108 EXF_CHECK_RANGE 
     &         maskS(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 127 EXF_CHECK_RANGE 
     &         maskS(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 138 EXF_CHECK_RANGE 
     &         maskS(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_filter_rl.F 80 EXF_FILTER_RL 
               IF ( maskS(i,j,ks,bi,bj) .EQ. 0. ) THEN
./pkg/exf/exf_mapfields.F 290 EXF_MAPFIELDS 
     &              *exf_half*maskS(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 141 FIZHI_TENDENCY_APPLY_V 
     &              + maskS(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 150 FIZHI_TENDENCY_APPLY_V 
        tmpdiag(i,j) = maskS(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 163 FIZHI_TENDENCY_APPLY_V 
     &       maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) * 86400
./pkg/fizhi/fizhi_tendency_apply.F 232 FIZHI_TENDENCY_APPLY_T 
     &         + maskS(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 234 FIZHI_TENDENCY_APPLY_T 
     &         + maskS(i,j+1,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 250 FIZHI_TENDENCY_APPLY_T 
     &         + maskS(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 252 FIZHI_TENDENCY_APPLY_T 
     &         + maskS(i,j+1,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 268 FIZHI_TENDENCY_APPLY_T 
     &         + maskS(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 270 FIZHI_TENDENCY_APPLY_T 
     &         + maskS(i,j+1,kLev,bi,bj)
./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_y.F 75 GAD_C4_ADV_Y 
     &    *( 1. _d 0 - maskS(i,j-1,k,bi,bj)*maskS(i,j+1,k,bi,bj) )
./pkg/generic_advdiff/gad_calc_rhs.F 407 GAD_CALC_RHS 
     I                             maskS(1-OLx,1-OLy,k,bi,bj),
./model/inc/RECIP_HFACS_MACROS.h 36 NO PROCEDURE 
# define _recip_hFacS(i,j,k,bi,bj) recip_hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 118 GMREDI_CALC_PSI_B 
     &                  *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 120 GMREDI_CALC_PSI_B 
     &                  *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 172 GMREDI_CALC_PSI_B 
     &      )*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 174 GMREDI_CALC_PSI_B 
     &     +eddyPsiY(i,j,k,bi,bj)*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F 191 GMREDI_CALC_PSI_BVP 
     &                  *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F 193 GMREDI_CALC_PSI_BVP 
     &                  *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F 213 GMREDI_CALC_PSI_BVP 
          IF ( maskS(i,j,k,bi,bj).NE.0. ) THEN
./pkg/gmredi/gmredi_k3d.F 655 GMREDI_K3D 
           SlopeY(i,j,k)=-maskS(i,j,k-1,bi,bj)*maskS(i,j,k,bi,bj)*slope
./pkg/gmredi/gmredi_k3d.F 693 GMREDI_K3D 
     &        *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 747 GMREDI_K3D 
                   tfluxY(i,j,k) = -fCoriV(i,j)*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 750 GMREDI_K3D 
                   tfluxY(i,j,k) = -fCoriV(i,j)*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 775 GMREDI_K3D 
           gradqy(i,j,k) = maskS(i,j,k,bi,bj)*tfluxY(i,j,k)
./pkg/gmredi/gmredi_k3d.F 786 GMREDI_K3D 
           gradqy(i,j,k) = maskS(i,j,k,bi,bj)*(dfdy(i,j)+tfluxY(i,j,k))
./pkg/gmredi/gmredi_k3d.F 802 GMREDI_K3D 
         N2S(i,j,k) = maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 830 GMREDI_K3D 
           Xiy(i,j,k) = -maskS(i,j,k,bi,bj)*KPV(i,j,k)*gradqy(i,j,k)
./pkg/gmredi/gmredi_k3d.F 897 GMREDI_K3D 
     I         kLow_V,maskS(:,:,:,bi,bj),
./pkg/gmredi/gmredi_k3d.F 936 GMREDI_K3D 
     &           + maskS(i,j,k,bi,bj)*XimY(m,i,j)*modesS(m,i,j,k,bi,bj)
./pkg/gmredi/gmredi_ytransport.F 180 GMREDI_YTRANSPORT 
     &                               *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_ytransport.F 207 GMREDI_YTRANSPORT 
     &                               *maskS(i,j,k,bi,bj)
./pkg/layers/layers_fluxcalc.F 283 LAYERS_FLUXCALC 
     &              ) * maskS(i,j,kcip1,bi,bj) * maskp1
./pkg/layers/layers_fluxcalc.F 286 LAYERS_FLUXCALC 
     &              ) * maskS(i,j, kci ,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F 191 MOM_CALC_3D_STRAIN 
     &                  *maskS(i,j,k-1,bi,bj)*maskS(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 132 MOM_CALC_HFACZ 
     &         *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 148 MOM_CALC_HFACZ 
     &         *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 138 MOM_CALC_RELVORT3 
     &     *maskS(i-1,j,k,bi,bj)*maskS(i-2,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 195 MOM_CALC_RELVORT3 
     &     *maskS(i+1,j,k,bi,bj)*maskS(i-0,j,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 252 MOM_CALC_RELVORT3 
     &     *maskS(i-1,j,k,bi,bj)*maskS(i-2,j,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 302 MOM_CALC_RELVORT3 
     &     *maskS(i+1,j,k,bi,bj)*maskS(i-0,j,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 287 MOM_CALC_VISC 
     &                  *maskS(i,j,k,bi,bj)
./pkg/mom_common/mom_v_implicit_r.F 87 MOM_V_IMPLICIT_R 
          IF (maskS(i,j,k-1,bi,bj).EQ.1.)
./pkg/mom_common/mom_v_implicit_r.F 98 MOM_V_IMPLICIT_R 
          IF (maskS(i,j,k+1,bi,bj).EQ.1.)
./model/src/calc_surf_dr.F 182 CALC_SURF_DR 
     &              )*recip_drF(ks)*maskS(i,j,ks,bi,bj)
./pkg/mom_fluxform/mom_u_coriolis.F 83 MOM_U_CORIOLIS 
     &                 maskS( i , j ,k,bi,bj)+maskS( i ,j+1,k,bi,bj)
./pkg/mom_fluxform/mom_u_coriolis.F 84 MOM_U_CORIOLIS 
     &                +maskS(i-1, j ,k,bi,bj)+maskS(i-1,j+1,k,bi,bj) )
./pkg/mom_fluxform/mom_uv_boundary.F 143 MOM_UV_BOUNDARY 
          IF (maskS(i,j,k,bi,bj).EQ.0.) THEN
./pkg/mom_vecinv/mom_vi_del2uv.F 123 MOM_VI_DEL2UV 
     &      )*maskS(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 128 MYPACKAGE_TENDENCY_APPLY_V 
     &     + maskS(i,j,k,bi,bj) * myPa_TendVelV(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 136 MYPACKAGE_TENDENCY_APPLY_V 
     &     + maskS(i,j,k,bi,bj)*( myPa_TendVelV(i,j-1,k,bi,bj)
./pkg/obcs/obcs_add_tides.F 103 OBCS_ADD_TIDES 
     &              maskS(i,jB,k,bi,bj) * OBNam(i,td,bi,bj) *
./pkg/obcs/obcs_add_tides.F 121 OBCS_ADD_TIDES 
     &              maskS(i,1+jB,k,bi,bj)* OBSam(i,td,bi,bj) *
./pkg/obcs/obcs_balance_flow.F 368 OBCS_BALANCE_FLOW 
     &                       + flowN*maskS(i,jB,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F 388 OBCS_BALANCE_FLOW 
     &                       + flowS*maskS(i,1+jB,k,bi,bj)
./pkg/profiles/profiles_interp.F 181 PROFILES_INTERP 
               tab_coeffs3(1,1)=maskS(prof_i,prof_j,k,bi,bj) !SO
./pkg/profiles/profiles_interp.F 182 PROFILES_INTERP 
               tab_coeffs3(1,2)=maskS(prof_i+1,prof_j,k,bi,bj) !SE
./pkg/profiles/profiles_interp.F 183 PROFILES_INTERP 
               tab_coeffs3(2,1)=maskS(prof_i,prof_j+1,k,bi,bj) !NO
./pkg/profiles/profiles_interp.F 184 PROFILES_INTERP 
               tab_coeffs3(2,2)=maskS(prof_i+1,prof_j+1,k,bi,bj) !NZ
./pkg/profiles/profiles_interp_gg.F 84 PROFILES_INTERP_GG 
               tab_coeffs3(q)=maskS(i_cur(q),j_cur(q),k,bi,bj)
./pkg/rbcs/rbcs_init_fixed.F 163 RBCS_INIT_FIXED 
     &                                * maskS(i,j,k,bi,bj)
./pkg/seaice/dynsolver.F 200 DYNSOLVER 
     &         *( (phiSurf( i ,j)-phiSurf( i ,j-1))*maskS( i ,j,1,bi,bj)
./pkg/seaice/dynsolver.F 201 DYNSOLVER 
     &           +(phiSurf(i-1,j)-phiSurf(i-1,j-1))*maskS(i-1,j,1,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 106 SHAP_FILT_COMPUTVORT 
     &            +maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 120 SHAP_FILT_COMPUTVORT 
     &                               +maskS(i-1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 142 SHAP_FILT_COMPUTVORT 
     &            +maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 164 SHAP_FILT_COMPUTVORT 
     &                               +maskS(i-1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 76 SHAP_FILT_COMPUTVORT 
     &           *(maskS(i,j,k,bi,bj)+maskS(i-1,j,k,bi,bj))
./pkg/shap_filt/shap_filt_uv_s1.F 190 SHAP_FILT_UV_S1 
             maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 191 SHAP_FILT_UV_S1 
             maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 198 SHAP_FILT_UV_S1 
             maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 199 SHAP_FILT_UV_S1 
             maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 229 SHAP_FILT_UV_S2 
     &                   )*maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 187 SHAP_FILT_UV_S4 
             maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 188 SHAP_FILT_UV_S4 
             maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 197 SHAP_FILT_UV_S4 
             maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 198 SHAP_FILT_UV_S4 
             maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj)
./pkg/smooth/smooth_rhs.F 144 SMOOTH_RHS 
     &      +0.5*(maskS(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 147 SMOOTH_RHS 
     &        +maskS(i,j+1,k,bi,bj)
./pkg/smooth/smooth_rhs.F 150 SMOOTH_RHS 
     &      +0.5*(maskS(i-1,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 153 SMOOTH_RHS 
     &        +maskS(i-1,j+1,k,bi,bj)
./pkg/smooth/smooth_rhs.F 283 SMOOTH_RHS 
     &      +0.5*(maskS(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 286 SMOOTH_RHS 
     &           +maskS(i,j+1,k,bi,bj)
./pkg/smooth/smooth_rhs.F 289 SMOOTH_RHS 
     &      +0.5*(maskS(i,j,k-1,bi,bj)
./pkg/smooth/smooth_rhs.F 292 SMOOTH_RHS 
     &           +maskS(i,j+1,k-1,bi,bj)
./model/src/ini_masks_etc.F 332 INI_MASKS_ETC 
            maskS(i,j,k,bi,bj) = 1.
./model/src/ini_masks_etc.F 335 INI_MASKS_ETC 
            maskS(i,j,k,bi,bj) = 0.
./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 93 FIZHI_TENDENCY_APPLY_V 
     .      maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj)
./verification/hs94.1x64x5/code/apply_forcing.F 166 APPLY_FORCING_V 
        IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.1x64x5/code_ad/apply_forcing.F 166 APPLY_FORCING_V 
        IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.1x64x5/code_oad/apply_forcing.F 166 APPLY_FORCING_V 
        IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.cs-32x32x5/code/apply_forcing.F 166 APPLY_FORCING_V 
        IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN
./model/src/rotate_uv2en.F 165 ROTATE_UV2EN_RL 
              vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskS(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 346 ROTATE_UV2EN_RS 
              vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskS(i,j,kk,bi,bj)
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 166 APPLY_FORCING_V 
        IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN
./model/src/update_masks_etc.F 233 UPDATE_MASKS_ETC 
              hFacS(I,J,K,bi,bj)=maskS(I,J,K,bi,bj)*
./model/src/update_r_star.F 106 UPDATE_R_STAR 
            recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)
./model/src/update_r_star.F 107 UPDATE_R_STAR 
     &        / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) )
./model/src/update_r_star.F 113 UPDATE_R_STAR 
           IF (maskS(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F 71 UPDATE_R_STAR 
            recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)
./model/src/update_r_star.F 72 UPDATE_R_STAR 
     &        / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) )
./model/src/update_r_star.F 78 UPDATE_R_STAR 
           IF (maskS(i,j,k,bi,bj).NE.0.)
./model/src/update_sigma.F 169 UPDATE_SIGMA 
            hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)
./model/src/update_sigma.F 173 UPDATE_SIGMA 
            recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)*drF(k)
./pkg/aim_v23/aim_tendency_apply.F 285 AIM_TENDENCY_APPLY_V 
     &     -maskS(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)/aim_dragStrato
./pkg/aim_v23/aim_tendency_apply.F 296 AIM_TENDENCY_APPLY_V 
         IF ( maskS(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_v23/aim_tendency_apply.F 317 AIM_TENDENCY_APPLY_V 
         IF ( maskS(i,j,k-1,bi,bj) .EQ. 0.
./pkg/aim_v23/aim_tendency_apply.F 318 AIM_TENDENCY_APPLY_V 
     &    .AND. maskS(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/atm_phys/atm_phys_tendency_apply.F 150 ATM_PHYS_TENDENCY_APPLY_V 
     &     + maskS(i,j,k,bi,bj)*( atmPhys_dV(i,j-1,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F 160 ATM_PHYS_TENDENCY_APPLY_V 
     &     - maskS(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k)
./pkg/bulk_force/bulkf_forcing.F 167 BULKF_FORCING 
              fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 718 CHEAPAML 
            fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0
./pkg/cheapaml/cheapaml.F 735 CHEAPAML 
            fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0
./pkg/cheapaml/cheapaml.F 753 CHEAPAML 
            fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0
./pkg/cost/cost_accumulate_mean.F 69 COST_ACCUMULATE_MEAN 
     &                 *maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 103 COST_ATLANTIC_HEAT 
     &                 *maskS(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 107 COST_ATLANTIC_HEAT 
     &                 *maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 110 COST_ATLANTIC_HEAT 
     &            maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 112 COST_ATLANTIC_HEAT 
     &            maskS(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 79 COST_ATLANTIC_HEAT 
     &            + (vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj)
./pkg/cost/cost_vector.F 70 COST_VECTOR 
     &             + vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 140 CTRL_GETOBCSE 
                nz = nz + maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 209 CTRL_GETOBCSE 
                nz = nz + maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 278 CTRL_GETOBCSE 
     &           *maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 143 CTRL_GETOBCSN 
              nz = nz + maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 212 CTRL_GETOBCSN 
              nz = nz + maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 266 CTRL_GETOBCSN 
     &           *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 272 CTRL_GETOBCSN 
     &           *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 284 CTRL_GETOBCSN 
     &           *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 139 CTRL_GETOBCSS 
              nz = nz + maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 208 CTRL_GETOBCSS 
              nz = nz + maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 261 CTRL_GETOBCSS 
     &           *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 267 CTRL_GETOBCSS 
     &           *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 279 CTRL_GETOBCSS 
     &           *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 140 CTRL_GETOBCSW 
                nz = nz + maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 209 CTRL_GETOBCSW 
                nz = nz + maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 278 CTRL_GETOBCSW 
     &           *maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_init.F 851 CTRL_INIT 
          wtauv     (i,j,bi,bj) = maskS(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init_wet.F 120 CTRL_INIT_WET 
                if (maskS(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_init_wet.F 622 CTRL_INIT_WET 
      CALL ACTIVE_WRITE_GEN_RS( 'maskCtrlS', maskS, 'XY', Nr,
./pkg/ctrl/ctrl_map_ini.F 348 CTRL_MAP_INI 
     &                                  *maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_mask_set_xz.F 103 CTRL_MASK_SET_XZ 
                    if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_mask_set_yz.F 111 CTRL_MASK_SET_YZ 
                    if (maskS(i,j,k,bi,bj) .eq. 1.) then
./pkg/ecco/cost_atlantic.F 168 COST_ATLANTIC 
     &                     *  drF(k)*maskS(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F 216 COST_ATLANTIC 
     &                     *  drF(k)*maskS(i,j,k,bi,bj)
./pkg/ecco/cost_forcing.F 169 COST_FORCING 
     &     maskS, mythid )
./pkg/ecco/cost_forcing_gen.F 271 COST_FORCING_GEN 
     &                   *maskS(i,j+1,kk,bi,bj)*maskS(i,j+2,kk,bi,bj)
./pkg/ecco/cost_forcing_gen.F 273 COST_FORCING_GEN 
     &                   *maskS(i,j+1,kk,bi,bj)
./pkg/ecco/cost_generic.F 158 COST_GENERIC 
         localmask(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)
./pkg/ecco/cost_obcsvol.F 210 COST_OBCSVOL 
                  if (maskS(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsvol.F 252 COST_OBCSVOL 
                  if (maskS(i,j+1,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_readscatyfields.F 186 COST_READSCATYFIELDS 
              if (maskS(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_salt0.F 166 COST_SALT0 
     &                *maskS(i,j+1,k,bi,bj)*maskS(i,j+2,k,bi,bj)
./pkg/ecco/cost_salt0.F 168 COST_SALT0 
     &                *maskS(i,j+1,k,bi,bj)
./pkg/ecco/cost_scat.F 185 COST_SCAT 
                if (maskS(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_tau_eddy.F 243 COST_TAU_EDDY 
             locfc = locfc + maskS(i,j,k,bi,bj)*
./pkg/ecco/cost_theta0.F 166 COST_THETA0 
     &                *maskS(i,j+1,k,bi,bj)*maskS(i,j+2,k,bi,bj)
./pkg/ecco/cost_theta0.F 168 COST_THETA0 
     &                *maskS(i,j+1,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1017 ECCO_COST_WEIGHTS 
              wtauv2(i,j,bi,bj) = wtau0*maskS(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1705 ECCO_COST_WEIGHTS 
                 wvvel3d(i,j,k,bi,bj)=frame(i,j)*maskS(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 2062 ECCO_COST_WEIGHTS 
      CALL ACTIVE_WRITE_GEN_RS( 'maskCtrlS', maskS, 'XY', Nr,