Symbol Description Uses
maskP1 =1 for k=Nr 25


File Line number Procedure Code
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 147 GAD_DST3FL_IMPL_R 
           mskP   = maskC(i,j,kp1,bi,bj)*maskP1
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 78 GAD_DST3FL_IMPL_R 
      _RL mskM, mskP, maskM2, maskP1
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 88 GAD_DST3FL_IMPL_R 
       maskP1 = 1. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 91 GAD_DST3FL_IMPL_R 
       IF ( k.GE.Nr) maskP1 = 0. _d 0
./pkg/generic_advdiff/gad_u3c4_impl_r.F 105 GAD_U3C4_IMPL_R 
         mskP   = maskC(i,j,kp1,bi,bj)*maskP1
./pkg/generic_advdiff/gad_u3c4_impl_r.F 137 GAD_U3C4_IMPL_R 
           mskP   = maskC(i,j,kp1,bi,bj)*maskP1
./pkg/generic_advdiff/gad_u3c4_impl_r.F 81 GAD_U3C4_IMPL_R 
      _RL mskM, mskP, maskM2, maskP1
./pkg/generic_advdiff/gad_u3c4_impl_r.F 90 GAD_U3C4_IMPL_R 
      maskP1 = 1. _d 0
./pkg/generic_advdiff/gad_u3c4_impl_r.F 93 GAD_U3C4_IMPL_R 
      IF ( k.GE.Nr) maskP1 = 0. _d 0
./pkg/mom_common/mom_uv_smag_3d.F 56 MOM_UV_SMAG_3D 
      _RL maskM1, maskP1
./pkg/mom_common/mom_uv_smag_3d.F 61 MOM_UV_SMAG_3D 
      maskP1 = 1.
./pkg/mom_common/mom_uv_smag_3d.F 63 MOM_UV_SMAG_3D 
      IF ( k.GE.Nr ) maskP1 = 0.
./pkg/mom_fluxform/mom_uv_boundary.F 140 MOM_UV_BOUNDARY 
     &                      +uFld(i,j,kp1,bi,bj)*maskP1)
./pkg/mom_fluxform/mom_uv_boundary.F 154 MOM_UV_BOUNDARY 
     &                      +vFld(i,j,kp1,bi,bj)*maskP1)
./pkg/mom_fluxform/mom_uv_boundary.F 56 MOM_UV_BOUNDARY 
      _RL maskM1, maskP1
./pkg/mom_fluxform/mom_uv_boundary.F 81 MOM_UV_BOUNDARY 
        maskP1 = 1.
./pkg/mom_fluxform/mom_uv_boundary.F 83 MOM_UV_BOUNDARY 
        IF ( k.EQ.Nr ) maskP1 = 0.
./model/src/cg3d.F 205 CG3D 
         maskP1 = 1. _d 0
./model/src/cg3d.F 207 CG3D 
         IF ( k .EQ. Nr) maskP1 = 0. _d 0
./model/src/cg3d.F 220 CG3D 
     &       +aV3d( i, j,kp1,bi,bj)*cg3d_x( i, j,kp1,bi,bj)*maskP1
./model/src/cg3d.F 99 CG3D 
      _RL     maskM1, maskP1
./model/src/cg3d_ex0.F 198 CG3D_EX0 
         maskP1 = 1. _d 0
./model/src/cg3d_ex0.F 200 CG3D_EX0 
         IF ( k .EQ. Nr) maskP1 = 0. _d 0
./model/src/cg3d_ex0.F 213 CG3D_EX0 
     &       +aV3d( i, j,kp1,bi,bj)*cg3d_x( i, j,kp1,bi,bj)*maskP1
./model/src/cg3d_ex0.F 91 CG3D_EX0 
      _RL     maskM1, maskP1