Symbol Description Uses
kUp index into 2 1/2D array, toggles between 1|2 183


File Line number Procedure Code
./pkg/generic_advdiff/gad_advection.F 124 GAD_ADVECTION 
      INTEGER i,j,k,kUp,kDown
./pkg/generic_advdiff/gad_advection.F 710 GAD_ADVECTION 
        kUp  = 1+MOD(k+1,2)
./pkg/generic_advdiff/gad_advection.F 744 GAD_ADVECTION 
           fVerT(i,j,kUp) = 0.
./pkg/generic_advdiff/gad_advection.F 763 GAD_ADVECTION 
           fVerT(i,j,kUp) = 0.
./pkg/generic_advdiff/gad_advection.F 787 GAD_ADVECTION 
     O                            fVerT(1-Olx,1-Oly,kUp), myThid )
./pkg/generic_advdiff/gad_advection.F 791 GAD_ADVECTION 
     O                               fVerT(1-Olx,1-Oly,kUp), myThid )
./pkg/generic_advdiff/gad_advection.F 795 GAD_ADVECTION 
     O                               fVerT(1-Olx,1-Oly,kUp), myThid )
./pkg/generic_advdiff/gad_advection.F 799 GAD_ADVECTION 
     O                               fVerT(1-Olx,1-Oly,kUp), myThid )
./pkg/generic_advdiff/gad_advection.F 804 GAD_ADVECTION 
     O                               fVerT(1-Olx,1-Oly,kUp), myThid )
./pkg/generic_advdiff/gad_advection.F 833 GAD_ADVECTION 
     &       *( fVerT(i,j,kDown)-fVerT(i,j,kUp)
./pkg/generic_advdiff/gad_advection.F 844 GAD_ADVECTION 
          CALL DIAGNOSTICS_FILL( fVerT(1-Olx,1-Oly,kUp),
./pkg/generic_advdiff/gad_calc_rhs.F 11 GAD_CALC_RHS 
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./pkg/generic_advdiff/gad_calc_rhs.F 168 GAD_CALC_RHS 
        fVerT(i,j,kUp) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 494 GAD_CALC_RHS 
          fVerT(i,j,kUp) = fVerT(i,j,kUp) + af(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F 547 GAD_CALC_RHS 
        fVerT(i,j,kUp) = fVerT(i,j,kUp) + df(i,j)*maskUp(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F 594 GAD_CALC_RHS 
         fVerT(i,j,kUp) = fVerT(i,j,kUp)
./pkg/generic_advdiff/gad_calc_rhs.F 628 GAD_CALC_RHS 
     &      +MAX(0. _d 0,-fVerT(i,j,kUp)*rkSign)
./pkg/generic_advdiff/gad_calc_rhs.F 646 GAD_CALC_RHS 
           IF (-fVerT(i,j,kUp)*rkSign .GT.0. _d 0)
./pkg/generic_advdiff/gad_calc_rhs.F 647 GAD_CALC_RHS 
     &       fVerT(i,j,kUp)=fac*fVerT(i,j,kUp)
./pkg/generic_advdiff/gad_calc_rhs.F 698 GAD_CALC_RHS 
     &     +(fVerT(i,j,kDown)-fVerT(i,j,kUp))*rkSign
./pkg/generic_advdiff/gad_calc_rhs.F 88 GAD_CALC_RHS 
      INTEGER k,kUp,kDown,kM1
./pkg/generic_advdiff/gad_som_adv_r.F 11 GAD_SOM_ADV_R 
     I           bi,bj,k, kUp, kDw,
./pkg/generic_advdiff/gad_som_adv_r.F 130 GAD_SOM_ADV_R 
          fp_v (i,j,kUp) = MAX( 0. _d 0,  wLoc )
./pkg/generic_advdiff/gad_som_adv_r.F 131 GAD_SOM_ADV_R 
          alp  (i,j,kUp) = fp_v(i,j,kUp)/sm_v(i,j,k)
./pkg/generic_advdiff/gad_som_adv_r.F 132 GAD_SOM_ADV_R 
          alpq           = alp(i,j,kUp)*alp(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 133 GAD_SOM_ADV_R 
          alp1           = 1. _d 0 - alp(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 136 GAD_SOM_ADV_R 
          fp_o (i,j,kUp) = alp(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F 138 GAD_SOM_ADV_R 
     &                   + alp1*(alp1-alp(i,j,kUp))*sm_zz(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F 140 GAD_SOM_ADV_R 
          fp_z (i,j,kUp) = alpq*
./pkg/generic_advdiff/gad_som_adv_r.F 142 GAD_SOM_ADV_R 
          fp_zz(i,j,kUp) = alp(i,j,kUp)*alpq*sm_zz(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F 143 GAD_SOM_ADV_R 
          fp_x (i,j,kUp) = alp(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F 145 GAD_SOM_ADV_R 
          fp_y (i,j,kUp) = alp(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F 147 GAD_SOM_ADV_R 
          fp_xz(i,j,kUp) = alpq        *sm_xz(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F 148 GAD_SOM_ADV_R 
          fp_yz(i,j,kUp) = alpq        *sm_yz(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F 149 GAD_SOM_ADV_R 
          fp_xx(i,j,kUp) = alp(i,j,kUp)*sm_xx(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F 150 GAD_SOM_ADV_R 
          fp_yy(i,j,kUp) = alp(i,j,kUp)*sm_yy(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F 151 GAD_SOM_ADV_R 
          fp_xy(i,j,kUp) = alp(i,j,kUp)*sm_xy(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F 162 GAD_SOM_ADV_R 
          fn_v (i,j,kUp) = MAX( 0. _d 0, -wLoc )
./pkg/generic_advdiff/gad_som_adv_r.F 163 GAD_SOM_ADV_R 
          aln  (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 164 GAD_SOM_ADV_R 
          alnq           = aln(i,j,kUp)*aln(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 165 GAD_SOM_ADV_R 
          aln1           = 1. _d 0 - aln(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 168 GAD_SOM_ADV_R 
          fn_o (i,j,kUp) = aln(i,j,kUp)*sm_o(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 169 GAD_SOM_ADV_R 
          fn_z (i,j,kUp) = 0. _d 0
./pkg/generic_advdiff/gad_som_adv_r.F 170 GAD_SOM_ADV_R 
          fn_zz(i,j,kUp) = 0. _d 0
./pkg/generic_advdiff/gad_som_adv_r.F 171 GAD_SOM_ADV_R 
          fn_x (i,j,kUp) = aln(i,j,kUp)*sm_x(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 172 GAD_SOM_ADV_R 
          fn_y (i,j,kUp) = aln(i,j,kUp)*sm_y(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 173 GAD_SOM_ADV_R 
          fn_xz(i,j,kUp) = 0. _d 0
./pkg/generic_advdiff/gad_som_adv_r.F 174 GAD_SOM_ADV_R 
          fn_yz(i,j,kUp) = 0. _d 0
./pkg/generic_advdiff/gad_som_adv_r.F 175 GAD_SOM_ADV_R 
          fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 176 GAD_SOM_ADV_R 
          fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 177 GAD_SOM_ADV_R 
          fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 179 GAD_SOM_ADV_R 
          wT(i,j) = ( fp_o(i,j,kUp) - fn_o(i,j,kUp) )*recip_dT
./pkg/generic_advdiff/gad_som_adv_r.F 189 GAD_SOM_ADV_R 
          fn_v (i,j,kUp) = MAX( 0. _d 0, -wLoc )
./pkg/generic_advdiff/gad_som_adv_r.F 190 GAD_SOM_ADV_R 
          aln  (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 191 GAD_SOM_ADV_R 
          alnq           = aln(i,j,kUp)*aln(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 192 GAD_SOM_ADV_R 
          aln1           = 1. _d 0 - aln(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 195 GAD_SOM_ADV_R 
          fn_o (i,j,kUp) = aln(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F 197 GAD_SOM_ADV_R 
     &                   + aln1*(aln1-aln(i,j,kUp))*sm_zz(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 199 GAD_SOM_ADV_R 
          fn_z (i,j,kUp) = alnq*
./pkg/generic_advdiff/gad_som_adv_r.F 201 GAD_SOM_ADV_R 
          fn_zz(i,j,kUp) = aln(i,j,kUp)*alnq*sm_zz(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 202 GAD_SOM_ADV_R 
          fn_x (i,j,kUp) = aln(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F 204 GAD_SOM_ADV_R 
          fn_y (i,j,kUp) = aln(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F 206 GAD_SOM_ADV_R 
          fn_xz(i,j,kUp) = alnq        *sm_xz(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 207 GAD_SOM_ADV_R 
          fn_yz(i,j,kUp) = alnq        *sm_yz(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 208 GAD_SOM_ADV_R 
          fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 209 GAD_SOM_ADV_R 
          fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 210 GAD_SOM_ADV_R 
          fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 212 GAD_SOM_ADV_R 
          wT(i,j) = ( fp_o(i,j,kUp) - fn_o(i,j,kUp) )*recip_dT
./pkg/generic_advdiff/gad_som_adv_r.F 230 GAD_SOM_ADV_R 
          fn_v (i,j,kUp) = MAX( 0. _d 0, -wLoc )
./pkg/generic_advdiff/gad_som_adv_r.F 231 GAD_SOM_ADV_R 
          aln  (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 234 GAD_SOM_ADV_R 
          fn_o (i,j,kUp) = aln(i,j,kUp)*sm_o(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 235 GAD_SOM_ADV_R 
          fn_x (i,j,kUp) = aln(i,j,kUp)*sm_x(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 236 GAD_SOM_ADV_R 
          fn_y (i,j,kUp) = aln(i,j,kUp)*sm_y(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 237 GAD_SOM_ADV_R 
          fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 238 GAD_SOM_ADV_R 
          fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 239 GAD_SOM_ADV_R 
          fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 241 GAD_SOM_ADV_R 
          wT(i,j) = ( fp_o(i,j,kUp) - fn_o(i,j,kUp) )*recip_dT
./pkg/generic_advdiff/gad_som_adv_r.F 252 GAD_SOM_ADV_R 
        alf1  = 1. _d 0 - aln(i,j,kDw) - alp(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 254 GAD_SOM_ADV_R 
        alpmn = alp(i,j,kUp) - aln(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F 255 GAD_SOM_ADV_R 
        sm_v (i,j,k) = sm_v (i,j,k) - fn_v (i,j,kDw) - fp_v (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 256 GAD_SOM_ADV_R 
        sm_o (i,j,k) = sm_o (i,j,k) - fn_o (i,j,kDw) - fp_o (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 261 GAD_SOM_ADV_R 
        sm_x (i,j,k) = sm_x (i,j,k) - fn_x (i,j,kDw) - fp_x (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 262 GAD_SOM_ADV_R 
        sm_xx(i,j,k) = sm_xx(i,j,k) - fn_xx(i,j,kDw) - fp_xx(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 263 GAD_SOM_ADV_R 
        sm_y (i,j,k) = sm_y (i,j,k) - fn_y (i,j,kDw) - fp_y (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 264 GAD_SOM_ADV_R 
        sm_yy(i,j,k) = sm_yy(i,j,k) - fn_yy(i,j,kDw) - fp_yy(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 265 GAD_SOM_ADV_R 
        sm_xy(i,j,k) = sm_xy(i,j,k) - fn_xy(i,j,kDw) - fp_xy(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 274 GAD_SOM_ADV_R 
        sm_v (i,j,k) = sm_v (i,j,k) + fp_v (i,j,kDw) + fn_v (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 276 GAD_SOM_ADV_R 
        alfn = fn_v(i,j,kUp)/sm_v(i,j,k)
./pkg/generic_advdiff/gad_som_adv_r.F 282 GAD_SOM_ADV_R 
        locTn = alfn*sm_o(i,j,k) - aln1*fn_o(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 284 GAD_SOM_ADV_R 
     &                                        + alfn*alfn*fn_zz(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 286 GAD_SOM_ADV_R 
     &                                        - alfn*aln1*fn_z(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 291 GAD_SOM_ADV_R 
     &                                   + alfn*fn_xz(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 293 GAD_SOM_ADV_R 
     &                                   + aln1*fn_x(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 296 GAD_SOM_ADV_R 
     &                                   + alfn*fn_yz(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 298 GAD_SOM_ADV_R 
     &                                   + aln1*fn_y(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 301 GAD_SOM_ADV_R 
     &                                  + alfn*fn_z(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 303 GAD_SOM_ADV_R 
        sm_o (i,j,k) = sm_o (i,j,k) + fp_o (i,j,kDw) + fn_o (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 304 GAD_SOM_ADV_R 
        sm_x (i,j,k) = sm_x (i,j,k) + fp_x (i,j,kDw) + fn_x (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 305 GAD_SOM_ADV_R 
        sm_xx(i,j,k) = sm_xx(i,j,k) + fp_xx(i,j,kDw) + fn_xx(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 306 GAD_SOM_ADV_R 
        sm_y (i,j,k) = sm_y (i,j,k) + fp_y (i,j,kDw) + fn_y (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 307 GAD_SOM_ADV_R 
        sm_yy(i,j,k) = sm_yy(i,j,k) + fp_yy(i,j,kDw) + fn_yy(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 308 GAD_SOM_ADV_R 
        sm_xy(i,j,k) = sm_xy(i,j,k) + fp_xy(i,j,kDw) + fn_xy(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 54 GAD_SOM_ADV_R 
      INTEGER bi,bj,k, kUp, kDw
./pkg/generic_advdiff/gad_som_advect.F 502 GAD_SOM_ADVECT 
        kUp  = 1+MOD(Nr-k,2)
./pkg/generic_advdiff/gad_som_advect.F 594 GAD_SOM_ADVECT 
     I                     bi,bj,k, kUp, kDown,
./pkg/generic_advdiff/gad_som_advect.F 97 GAD_SOM_ADVECT 
      INTEGER i,j,k,km1,kUp,kDown
./pkg/mom_fluxform/mom_fluxform.F 336 MOM_FLUXFORM 
     O                     fVerU(1-OLx,1-OLy,kUp), myThid )
./pkg/mom_fluxform/mom_fluxform.F 339 MOM_FLUXFORM 
     O                     fVerV(1-OLx,1-OLy,kUp), myThid )
./pkg/mom_fluxform/mom_fluxform.F 35 MOM_FLUXFORM 
     I        bi,bj,iMin,iMax,jMin,jMax,k,kUp,kDown,
./pkg/mom_fluxform/mom_fluxform.F 415 MOM_FLUXFORM 
     &       +(fVerU(i,j,kDown) - fVerU(i,j,kUp))*rkSign*rVelDudrFac
./pkg/mom_fluxform/mom_fluxform.F 424 MOM_FLUXFORM 
          CALL DIAGNOSTICS_FILL(fVerU(1-Olx,1-Oly,kUp),
./pkg/mom_fluxform/mom_fluxform.F 631 MOM_FLUXFORM 
     &       +(fVerV(i,j,kDown) - fVerV(i,j,kUp))*rkSign*rVelDvdrFac
./pkg/mom_fluxform/mom_fluxform.F 640 MOM_FLUXFORM 
          CALL DIAGNOSTICS_FILL(fVerV(1-Olx,1-Oly,kUp),
./pkg/mom_fluxform/mom_fluxform.F 77 MOM_FLUXFORM 
      INTEGER k,kUp,kDown
./model/src/calc_gs.F 11 CALC_GS 
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gs.F 163 CALC_GS 
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gs.F 175 CALC_GS 
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gs.F 87 CALC_GS 
      INTEGER k,kUp,kDown,kM1
./model/src/calc_gt.F 11 CALC_GT 
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gt.F 162 CALC_GT 
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gt.F 174 CALC_GT 
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gt.F 86 CALC_GT 
      INTEGER k,kUp,kDown,kM1
./pkg/mom_vecinv/mom_vecinv.F 119 MOM_VECINV 
      fVerU(1,1,kUp) = fVerU(1,1,kUp)
./pkg/mom_vecinv/mom_vecinv.F 120 MOM_VECINV 
      fVerV(1,1,kUp) = fVerV(1,1,kUp)
./pkg/mom_vecinv/mom_vecinv.F 349 MOM_VECINV 
     &    fVerU(i,j,kDown) - fVerU(i,j,kUp)
./pkg/mom_vecinv/mom_vecinv.F 414 MOM_VECINV 
     &    fVerV(i,j,kDown) - fVerV(i,j,kUp)
./pkg/mom_vecinv/mom_vecinv.F 61 MOM_VECINV 
      INTEGER kUp,kDown
./pkg/mom_vecinv/mom_vecinv.F 7 MOM_VECINV 
     I        bi,bj,iMin,iMax,jMin,jMax,k,kUp,kDown,
./pkg/ptracers/ptracers_integrate.F 100 PTRACERS_INTEGRATE 
      kUp  = 1+MOD(k+1,2)
./pkg/ptracers/ptracers_integrate.F 138 PTRACERS_INTEGRATE 
     I                   bi,bj,iMin,iMax,jMin,jMax,k,km1,kUp,kDown,
./pkg/ptracers/ptracers_integrate.F 87 PTRACERS_INTEGRATE 
      INTEGER kUp,kDown,km1
./pkg/shelfice/shelfice_u_drag.F 53 SHELFICE_U_DRAG 
      INTEGER I,J,kUp,kUpC,kTop
./pkg/shelfice/shelfice_u_drag.F 61 SHELFICE_U_DRAG 
       kUp     = max(k-1,kTop)
./pkg/shelfice/shelfice_u_drag.F 65 SHELFICE_U_DRAG 
       kUp     = min(k+1,kTop)
./pkg/shelfice/shelfice_u_drag.F 66 SHELFICE_U_DRAG 
       kUpC    = kUp
./pkg/shelfice/shelfice_u_drag.F 74 SHELFICE_U_DRAG 
        maskUp=_maskW(i,j,kUp,bi,bj)
./pkg/shelfice/shelfice_v_drag.F 53 SHELFICE_V_DRAG 
      INTEGER I,J,kUp,kUpC,kTop
./pkg/shelfice/shelfice_v_drag.F 61 SHELFICE_V_DRAG 
       kUp     = max(k-1,kTop)
./pkg/shelfice/shelfice_v_drag.F 65 SHELFICE_V_DRAG 
       kUp     = min(k+1,kTop)
./pkg/shelfice/shelfice_v_drag.F 66 SHELFICE_V_DRAG 
       kUpC    = kUp
./pkg/shelfice/shelfice_v_drag.F 74 SHELFICE_V_DRAG 
        maskUp=_maskS(i,j,kUp,bi,bj)