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


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 711 GAD_ADVECTION 
        kDown= 1+MOD(k,2)
./pkg/generic_advdiff/gad_advection.F 833 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 149 GAD_CALC_RHS 
      fVerT(1,1,kDown) = fVerT(1,1,kDown)
./pkg/generic_advdiff/gad_calc_rhs.F 627 GAD_CALC_RHS 
     &      +MAX(0. _d 0,fVerT(i,j,kDown)*rkSign)
./pkg/generic_advdiff/gad_calc_rhs.F 649 GAD_CALC_RHS 
           IF (k.LT.Nr .AND. fVerT(i,j,kDown)*rkSign.GT.0. _d 0) THEN
./pkg/generic_advdiff/gad_calc_rhs.F 671 GAD_CALC_RHS 
     &         *( -fVerT(i,j,kDown)*rkSign )
./pkg/generic_advdiff/gad_calc_rhs.F 673 GAD_CALC_RHS 
             fVerT(i,j,kDown)=fac*fVerT(i,j,kDown)
./pkg/generic_advdiff/gad_calc_rhs.F 680 GAD_CALC_RHS 
     &         *( fVerT(i,j,kDown)*rkSign )
./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_advect.F 503 GAD_SOM_ADVECT 
        kDown= 1+MOD(Nr-k+1,2)
./pkg/generic_advdiff/gad_som_advect.F 508 GAD_SOM_ADVECT 
           alp  (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 509 GAD_SOM_ADVECT 
           aln  (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 510 GAD_SOM_ADVECT 
           fp_v (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 511 GAD_SOM_ADVECT 
           fn_v (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 512 GAD_SOM_ADVECT 
           fp_o (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 513 GAD_SOM_ADVECT 
           fn_o (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 514 GAD_SOM_ADVECT 
           fp_x (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 515 GAD_SOM_ADVECT 
           fn_x (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 516 GAD_SOM_ADVECT 
           fp_y (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 517 GAD_SOM_ADVECT 
           fn_y (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 518 GAD_SOM_ADVECT 
           fp_z (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 519 GAD_SOM_ADVECT 
           fn_z (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 520 GAD_SOM_ADVECT 
           fp_xx(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 521 GAD_SOM_ADVECT 
           fn_xx(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 522 GAD_SOM_ADVECT 
           fp_yy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 523 GAD_SOM_ADVECT 
           fn_yy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 524 GAD_SOM_ADVECT 
           fp_zz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 525 GAD_SOM_ADVECT 
           fn_zz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 526 GAD_SOM_ADVECT 
           fp_xy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 527 GAD_SOM_ADVECT 
           fn_xy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 528 GAD_SOM_ADVECT 
           fp_xz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 529 GAD_SOM_ADVECT 
           fn_xz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 530 GAD_SOM_ADVECT 
           fp_yz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 531 GAD_SOM_ADVECT 
           fn_yz(i,j,kDown) = 0. _d 0
./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/longstep/longstep_thermodynamics.F 119 LONGSTEP_THERMODYNAMICS 
      INTEGER k, km1, kup, kDown
./pkg/longstep/longstep_thermodynamics.F 299 LONGSTEP_THERMODYNAMICS 
          kDown= 1+MOD(k,2)
./pkg/mom_common/mom_u_bottomdrag.F 52 MOM_U_BOTTOMDRAG 
      INTEGER i,j,kDown,kDownC,kBottom
./pkg/mom_common/mom_u_bottomdrag.F 60 MOM_U_BOTTOMDRAG 
       kDown   = min(k+1,kBottom)
./pkg/mom_common/mom_u_bottomdrag.F 61 MOM_U_BOTTOMDRAG 
       kDownC  = kDown
./pkg/mom_common/mom_u_bottomdrag.F 67 MOM_U_BOTTOMDRAG 
       kDown   = max(k-1,kBottom)
./pkg/mom_common/mom_u_bottomdrag.F 78 MOM_U_BOTTOMDRAG 
        maskDown=_maskW(i,j,kDown,bi,bj)
./pkg/mom_common/mom_v_bottomdrag.F 59 MOM_V_BOTTOMDRAG 
      INTEGER i,j,kDown,kDownC,kBottom
./pkg/mom_common/mom_v_bottomdrag.F 67 MOM_V_BOTTOMDRAG 
       kDown   = min(k+1,kBottom)
./pkg/mom_common/mom_v_bottomdrag.F 68 MOM_V_BOTTOMDRAG 
       kDownC  = kDown
./pkg/mom_common/mom_v_bottomdrag.F 74 MOM_V_BOTTOMDRAG 
       kDown   = max(k-1,kBottom)
./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 385 MOM_FLUXFORM 
     O                     fVerU(1-OLx,1-OLy,kDown), myThid )
./pkg/mom_fluxform/mom_fluxform.F 399 MOM_FLUXFORM 
     O                     fVerU(1-OLx,1-OLy,kDown), myThid )
./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 601 MOM_FLUXFORM 
     O                     fVerV(1-OLx,1-OLy,kDown), myThid )
./pkg/mom_fluxform/mom_fluxform.F 615 MOM_FLUXFORM 
     O                     fVerV(1-OLx,1-OLy,kDown), myThid )
./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 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 130 CALC_GS 
      fVerS(1,1,kDown) = fVerS(1,1,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 129 CALC_GT 
      fVerT(1,1,kDown) = fVerT(1,1,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 338 MOM_VECINV 
         fVerU(i,j,kDown) = ArDudrFac*vrF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 349 MOM_VECINV 
     &    fVerU(i,j,kDown) - fVerU(i,j,kUp)
./pkg/mom_vecinv/mom_vecinv.F 403 MOM_VECINV 
         fVerV(i,j,kDown) = ArDvdrFac*vrF(i,j)
./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 101 PTRACERS_INTEGRATE 
      kDown= 1+MOD(k,2)
./pkg/ptracers/ptracers_integrate.F 125 PTRACERS_INTEGRATE 
      rFlx(1,1,kDown,iTracer) = rFlx(1,1,kDown,iTracer)
./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
./model/src/dynamics.F 196 DYNAMICS 
      INTEGER k, km1, kp1, kup, kDown
./model/src/dynamics.F 411 DYNAMICS 
          kDown= 1+MOD(k,2)
./model/src/dynamics.F 526 DYNAMICS 
     I         bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown,
./model/src/dynamics.F 545 DYNAMICS 
     I         bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown,
./model/src/thermodynamics.F 183 THERMODYNAMICS 
      INTEGER k, km1, kup, kDown
./model/src/thermodynamics.F 470 THERMODYNAMICS 
          kDown= 1+MOD(k,2)
./model/src/thermodynamics.F 625 THERMODYNAMICS 
     I         bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown,
./model/src/thermodynamics.F 675 THERMODYNAMICS 
     I         bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown,