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


File Line number Procedure Code
./pkg/generic_advdiff/gad_advection.F 131 GAD_ADVECTION 
      INTEGER i,j,k,kUp,kDown
./pkg/generic_advdiff/gad_advection.F 810 GAD_ADVECTION 
        kDown= 1+MOD(k,2)
./pkg/generic_advdiff/gad_advection.F 907 GAD_ADVECTION 
     &      -deltaTLev(k)*( fVerT(i,j,kDown)-fVerT(i,j,kUp) )
./pkg/generic_advdiff/gad_advection.F 936 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 158 GAD_CALC_RHS 
      fVerT(1,1,kDown) = fVerT(1,1,kDown)
./pkg/generic_advdiff/gad_calc_rhs.F 707 GAD_CALC_RHS 
     &      +MAX(0. _d 0,fVerT(i,j,kDown)*rkSign)
./pkg/generic_advdiff/gad_calc_rhs.F 725 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 747 GAD_CALC_RHS 
     &         *( -fVerT(i,j,kDown)*rkSign )
./pkg/generic_advdiff/gad_calc_rhs.F 749 GAD_CALC_RHS 
             fVerT(i,j,kDown)=fac*fVerT(i,j,kDown)
./pkg/generic_advdiff/gad_calc_rhs.F 756 GAD_CALC_RHS 
     &         *( fVerT(i,j,kDown)*rkSign )
./pkg/generic_advdiff/gad_calc_rhs.F 775 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 470 GAD_SOM_ADVECT 
        kDown= 1+MOD(Nr-k+1,2)
./pkg/generic_advdiff/gad_som_advect.F 475 GAD_SOM_ADVECT 
           alp  (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 476 GAD_SOM_ADVECT 
           aln  (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 477 GAD_SOM_ADVECT 
           fp_v (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 478 GAD_SOM_ADVECT 
           fn_v (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 479 GAD_SOM_ADVECT 
           fp_o (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 480 GAD_SOM_ADVECT 
           fn_o (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 481 GAD_SOM_ADVECT 
           fp_x (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 482 GAD_SOM_ADVECT 
           fn_x (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 483 GAD_SOM_ADVECT 
           fp_y (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 484 GAD_SOM_ADVECT 
           fn_y (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 485 GAD_SOM_ADVECT 
           fp_z (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 486 GAD_SOM_ADVECT 
           fn_z (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 487 GAD_SOM_ADVECT 
           fp_xx(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 488 GAD_SOM_ADVECT 
           fn_xx(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 489 GAD_SOM_ADVECT 
           fp_yy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 490 GAD_SOM_ADVECT 
           fn_yy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 491 GAD_SOM_ADVECT 
           fp_zz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 492 GAD_SOM_ADVECT 
           fn_zz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 493 GAD_SOM_ADVECT 
           fp_xy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 494 GAD_SOM_ADVECT 
           fn_xy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 495 GAD_SOM_ADVECT 
           fp_xz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 496 GAD_SOM_ADVECT 
           fn_xz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 497 GAD_SOM_ADVECT 
           fp_yz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 498 GAD_SOM_ADVECT 
           fn_yz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 550 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_bottomdrag.F 54 MOM_U_BOTTOMDRAG 
      INTEGER i,j,kDown,kLowF,kBottom
./pkg/mom_common/mom_u_bottomdrag.F 65 MOM_U_BOTTOMDRAG 
       kDown   = MIN(k+1,Nr)
./pkg/mom_common/mom_u_bottomdrag.F 66 MOM_U_BOTTOMDRAG 
       kLowF   = kDown
./pkg/mom_common/mom_u_bottomdrag.F 72 MOM_U_BOTTOMDRAG 
       kDown   = MAX(k-1,1)
./pkg/mom_common/mom_u_bottomdrag.F 89 MOM_U_BOTTOMDRAG 
     &                    * ( 1. _d 0 -_maskW(i,j,kDown,bi,bj) )
./pkg/mom_common/mom_v_bottomdrag.F 54 MOM_V_BOTTOMDRAG 
      INTEGER i,j,kDown,kLowF,kBottom
./pkg/mom_common/mom_v_bottomdrag.F 65 MOM_V_BOTTOMDRAG 
       kDown   = MIN(k+1,Nr)
./pkg/mom_common/mom_v_bottomdrag.F 66 MOM_V_BOTTOMDRAG 
       kLowF   = kDown
./pkg/mom_common/mom_v_bottomdrag.F 72 MOM_V_BOTTOMDRAG 
       kDown   = MAX(k-1,1)
./pkg/mom_common/mom_v_bottomdrag.F 89 MOM_V_BOTTOMDRAG 
     &                    * ( 1. _d 0 -_maskS(i,j,kDown,bi,bj) )
./pkg/ptracers/ptracers_integrate.F 264 PTRACERS_INTEGRATE 
          kDown= 1+MOD(k,2)
./pkg/ptracers/ptracers_integrate.F 302 PTRACERS_INTEGRATE 
     I             bi,bj, iMin,iMax,jMin,jMax, k,kM1, kUp,kDown,
./pkg/ptracers/ptracers_integrate.F 95 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 288 SALT_INTEGRATE 
        kDown= 1+MOD(k,2)
./model/src/salt_integrate.F 334 SALT_INTEGRATE 
     I           bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown,
./model/src/salt_integrate.F 349 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 296 TEMP_INTEGRATE 
        kDown= 1+MOD(k,2)
./model/src/temp_integrate.F 342 TEMP_INTEGRATE 
     I           bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown,
./model/src/temp_integrate.F 357 TEMP_INTEGRATE 
     I           bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown,