Symbol Description Uses
kDown Index for interface above and below. kUp and kDown are 75


File Line number Procedure Code
./pkg/generic_advdiff/gad_advection.F 1014 GAD_ADVECTION 
     &      -deltaTLev(k)*( fVerT(i,j,kDown)-fVerT(i,j,kUp) )
./pkg/generic_advdiff/gad_advection.F 1043 GAD_ADVECTION 
     &       *( fVerT(i,j,kDown)-fVerT(i,j,kUp)
./pkg/generic_advdiff/gad_advection.F 133 GAD_ADVECTION 
      INTEGER i,j,k,kUp,kDown
./pkg/generic_advdiff/gad_advection.F 905 GAD_ADVECTION 
        kDown= 1+MOD(k,2)
./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 158 GAD_CALC_RHS 
      fVerT(1,1,kDown) = fVerT(1,1,kDown)
./pkg/generic_advdiff/gad_calc_rhs.F 727 GAD_CALC_RHS 
     &      +MAX(0. _d 0,fVerT(i,j,kDown)*rkSign)
./pkg/generic_advdiff/gad_calc_rhs.F 745 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 753 GAD_CALC_RHS 
     &         *( -fVerT(i,j,kDown)*rkSign )
./pkg/generic_advdiff/gad_calc_rhs.F 755 GAD_CALC_RHS 
             fVerT(i,j,kDown)=fac*fVerT(i,j,kDown)
./pkg/generic_advdiff/gad_calc_rhs.F 761 GAD_CALC_RHS 
     &         *( fVerT(i,j,kDown)*rkSign )
./pkg/generic_advdiff/gad_calc_rhs.F 780 GAD_CALC_RHS 
     &     +(fVerT(i,j,kDown)-fVerT(i,j,kUp))*rkSign
./pkg/generic_advdiff/gad_calc_rhs.F 89 GAD_CALC_RHS 
      INTEGER k,kUp,kDown,kM1
./pkg/generic_advdiff/gad_som_advect.F 476 GAD_SOM_ADVECT 
        kDown= 1+MOD(Nr-k+1,2)
./pkg/generic_advdiff/gad_som_advect.F 481 GAD_SOM_ADVECT 
           alp  (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 482 GAD_SOM_ADVECT 
           aln  (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 483 GAD_SOM_ADVECT 
           fp_v (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 484 GAD_SOM_ADVECT 
           fn_v (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 485 GAD_SOM_ADVECT 
           fp_o (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 486 GAD_SOM_ADVECT 
           fn_o (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 487 GAD_SOM_ADVECT 
           fp_x (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 488 GAD_SOM_ADVECT 
           fn_x (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 489 GAD_SOM_ADVECT 
           fp_y (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 490 GAD_SOM_ADVECT 
           fn_y (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 491 GAD_SOM_ADVECT 
           fp_z (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 492 GAD_SOM_ADVECT 
           fn_z (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 493 GAD_SOM_ADVECT 
           fp_xx(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 494 GAD_SOM_ADVECT 
           fn_xx(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 495 GAD_SOM_ADVECT 
           fp_yy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 496 GAD_SOM_ADVECT 
           fn_yy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 497 GAD_SOM_ADVECT 
           fp_zz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 498 GAD_SOM_ADVECT 
           fn_zz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 499 GAD_SOM_ADVECT 
           fp_xy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 500 GAD_SOM_ADVECT 
           fn_xy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 501 GAD_SOM_ADVECT 
           fp_xz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 502 GAD_SOM_ADVECT 
           fn_xz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 503 GAD_SOM_ADVECT 
           fp_yz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 504 GAD_SOM_ADVECT 
           fn_yz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 556 GAD_SOM_ADVECT 
     I                     bi,bj,k, kUp, kDown,
./pkg/generic_advdiff/gad_som_advect.F 94 GAD_SOM_ADVECT 
      INTEGER i,j,k,km1,kUp,kDown
./pkg/mom_common/mom_u_botdrag_impl.F 56 MOM_U_BOTDRAG_IMPL 
      INTEGER kDown,kLowF,kBottom
./pkg/mom_common/mom_u_botdrag_impl.F 71 MOM_U_BOTDRAG_IMPL 
        kDown   = MIN(k+1,Nr)
./pkg/mom_common/mom_u_botdrag_impl.F 78 MOM_U_BOTDRAG_IMPL 
        kDown   = MAX(k-1,1)
./pkg/mom_common/mom_u_botdrag_impl.F 95 MOM_U_BOTDRAG_IMPL 
     &                     * ( 1. _d 0 -_maskW(i,j,kDown,bi,bj) )
./pkg/mom_common/mom_u_bottomdrag.F 56 MOM_U_BOTTOMDRAG 
      INTEGER i,j,kDown,kLowF,kBottom
./pkg/mom_common/mom_u_bottomdrag.F 67 MOM_U_BOTTOMDRAG 
       kDown   = MIN(k+1,Nr)
./pkg/mom_common/mom_u_bottomdrag.F 74 MOM_U_BOTTOMDRAG 
       kDown   = MAX(k-1,1)
./pkg/mom_common/mom_u_bottomdrag.F 91 MOM_U_BOTTOMDRAG 
     &                    * ( 1. _d 0 -_maskW(i,j,kDown,bi,bj) )
./pkg/mom_common/mom_v_botdrag_impl.F 56 MOM_V_BOTDRAG_IMPL 
      INTEGER kDown,kLowF,kBottom
./pkg/mom_common/mom_v_botdrag_impl.F 71 MOM_V_BOTDRAG_IMPL 
        kDown   = MIN(k+1,Nr)
./pkg/mom_common/mom_v_botdrag_impl.F 78 MOM_V_BOTDRAG_IMPL 
        kDown   = MAX(k-1,1)
./pkg/mom_common/mom_v_botdrag_impl.F 95 MOM_V_BOTDRAG_IMPL 
     &                     * ( 1. _d 0 -_maskS(i,j,kDown,bi,bj) )
./pkg/mom_common/mom_v_bottomdrag.F 56 MOM_V_BOTTOMDRAG 
      INTEGER i,j,kDown,kLowF,kBottom
./pkg/mom_common/mom_v_bottomdrag.F 67 MOM_V_BOTTOMDRAG 
       kDown   = MIN(k+1,Nr)
./pkg/mom_common/mom_v_bottomdrag.F 74 MOM_V_BOTTOMDRAG 
       kDown   = MAX(k-1,1)
./pkg/mom_common/mom_v_bottomdrag.F 91 MOM_V_BOTTOMDRAG 
     &                    * ( 1. _d 0 -_maskS(i,j,kDown,bi,bj) )
./pkg/ptracers/ptracers_integrate.F 276 PTRACERS_INTEGRATE 
          kDown= 1+MOD(k,2)
./pkg/ptracers/ptracers_integrate.F 314 PTRACERS_INTEGRATE 
     I             bi,bj, iMin,iMax,jMin,jMax, k,kM1, kUp,kDown,
./pkg/ptracers/ptracers_integrate.F 98 PTRACERS_INTEGRATE 
      INTEGER kUp, kDown, kM1
./model/src/dynamics.F 187 DYNAMICS 
      INTEGER k, km1, kp1, kUp, kDown
./model/src/dynamics.F 430 DYNAMICS 
          kDown= 1+MOD(k,2)
./model/src/dynamics.F 530 DYNAMICS 
     O         fVerU(1-OLx,1-OLy,kDown), fVerV(1-OLx,1-OLy,kDown),
./model/src/dynamics.F 540 DYNAMICS 
     O         fVerU(1-OLx,1-OLy,kDown), fVerV(1-OLx,1-OLy,kDown),
./model/src/salt_integrate.F 121 SALT_INTEGRATE 
      INTEGER kUp, kDown, kM1
./model/src/salt_integrate.F 296 SALT_INTEGRATE 
        kDown= 1+MOD(k,2)
./model/src/salt_integrate.F 342 SALT_INTEGRATE 
     I           bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown,
./model/src/salt_integrate.F 357 SALT_INTEGRATE 
     I           bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown,
./model/src/temp_integrate.F 125 TEMP_INTEGRATE 
      INTEGER kUp, kDown, kM1
./model/src/temp_integrate.F 304 TEMP_INTEGRATE 
        kDown= 1+MOD(k,2)
./model/src/temp_integrate.F 350 TEMP_INTEGRATE 
     I           bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown,
./model/src/temp_integrate.F 365 TEMP_INTEGRATE 
     I           bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown,