Symbol Description Uses
kDown index into 2 1/2D array, toggles between 2|1 54


File Line number Procedure Code
./pkg/ptracers/ptracers_integrate.F 120 PTRACERS_INTEGRATE 
      rFlx(1,1,kDown,iTracer) = rFlx(1,1,kDown,iTracer)
./pkg/ptracers/ptracers_integrate.F 136 PTRACERS_INTEGRATE 
     I                   bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./pkg/ptracers/ptracers_integrate.F 82 PTRACERS_INTEGRATE 
      INTEGER kUp,kDown,km1
./pkg/ptracers/ptracers_integrate.F 96 PTRACERS_INTEGRATE 
      kDown= 1+MOD(k,2)
./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 368 MOM_FLUXFORM 
     O                     fVerU(1-OLx,1-OLy,kDown), myThid )
./pkg/mom_fluxform/mom_fluxform.F 383 MOM_FLUXFORM 
     &      +(fVerU(i,j,kDown) - fVerU(i,j,kUp))*rkSign*rVelDudrFac
./pkg/mom_fluxform/mom_fluxform.F 571 MOM_FLUXFORM 
     O                     fVerV(1-OLx,1-OLy,kDown), myThid )
./pkg/mom_fluxform/mom_fluxform.F 586 MOM_FLUXFORM 
     &      +(fVerV(i,j,kDown) - fVerV(i,j,kUp))*rkSign*rVelDvdrFac
./pkg/mom_fluxform/mom_fluxform.F 77 MOM_FLUXFORM 
      INTEGER k,kUp,kDown
./model/src/dynamics.F 190 DYNAMICS 
      INTEGER k, km1, kp1, kup, kDown
./model/src/dynamics.F 391 DYNAMICS 
          kDown= 1+MOD(k,2)
./model/src/dynamics.F 493 DYNAMICS 
     I         bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown,
./model/src/dynamics.F 512 DYNAMICS 
     I         bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown,
./model/src/thermodynamics.F 166 THERMODYNAMICS 
      INTEGER k, km1, kup, kDown
./model/src/thermodynamics.F 395 THERMODYNAMICS 
          kDown= 1+MOD(k,2)
./model/src/thermodynamics.F 525 THERMODYNAMICS 
     I         bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown,
./model/src/thermodynamics.F 558 THERMODYNAMICS 
     I         bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown,
./model/src/calc_gt.F 11 CALC_GT 
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gt.F 128 CALC_GT 
      fVerT(1,1,kDown) = fVerT(1,1,kDown)
./model/src/calc_gt.F 147 CALC_GT 
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gt.F 158 CALC_GT 
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gt.F 85 CALC_GT 
      INTEGER k,kUp,kDown,kM1
./model/src/calc_gs.F 11 CALC_GS 
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gs.F 129 CALC_GS 
      fVerS(1,1,kDown) = fVerS(1,1,kDown)
./model/src/calc_gs.F 148 CALC_GS 
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gs.F 159 CALC_GS 
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gs.F 86 CALC_GS 
      INTEGER k,kUp,kDown,kM1
./pkg/mom_common/mom_v_bottomdrag.F 57 MOM_V_BOTTOMDRAG 
      INTEGER I,J,kDown,kDownC,kBottom
./pkg/mom_common/mom_v_bottomdrag.F 64 MOM_V_BOTTOMDRAG 
       kDown   = min(k+1,kBottom)
./pkg/mom_common/mom_v_bottomdrag.F 65 MOM_V_BOTTOMDRAG 
       kDownC  = kDown
./pkg/mom_common/mom_v_bottomdrag.F 68 MOM_V_BOTTOMDRAG 
       kDown   = max(k-1,kBottom)
./pkg/mom_common/mom_u_bottomdrag.F 49 MOM_U_BOTTOMDRAG 
      INTEGER I,J,kDown,kDownC,kBottom
./pkg/mom_common/mom_u_bottomdrag.F 57 MOM_U_BOTTOMDRAG 
       kDown   = min(k+1,kBottom)
./pkg/mom_common/mom_u_bottomdrag.F 58 MOM_U_BOTTOMDRAG 
       kDownC  = kDown
./pkg/mom_common/mom_u_bottomdrag.F 61 MOM_U_BOTTOMDRAG 
       kDown   = max(k-1,kBottom)
./pkg/mom_common/mom_u_bottomdrag.F 70 MOM_U_BOTTOMDRAG 
        maskDown=_maskW(i,j,kDown,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F 336 MOM_VECINV 
         fVerU(i,j,kDown) = ArDudrFac*vrF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 347 MOM_VECINV 
     &    fVerU(i,j,kDown) - fVerU(i,j,kUp)
./pkg/mom_vecinv/mom_vecinv.F 401 MOM_VECINV 
         fVerV(i,j,kDown) = ArDvdrFac*vrF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 412 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/generic_advdiff/gad_advection.F 126 GAD_ADVECTION 
      INTEGER i,j,k,kUp,kDown
./pkg/generic_advdiff/gad_advection.F 699 GAD_ADVECTION 
        kDown= 1+MOD(k,2)
./pkg/generic_advdiff/gad_advection.F 804 GAD_ADVECTION 
     &     *( fVerT(i,j,kDown)-fVerT(i,j,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 140 GAD_CALC_RHS 
      fVerT(1,1,kDown) = fVerT(1,1,kDown)
./pkg/generic_advdiff/gad_calc_rhs.F 574 GAD_CALC_RHS 
     &     +(fVerT(i,j,kDown)-fVerT(i,j,kUp))*rkSign
./pkg/generic_advdiff/gad_calc_rhs.F 84 GAD_CALC_RHS 
      INTEGER k,kUp,kDown,kM1