Symbol Description Uses
kBottom bottom level 38


File Line number Procedure Code
./pkg/ggl90/ggl90_calc.F 526 GGL90_CALC 
        kBottom   = MAX(kLowC(i,j,bi,bj),1)
./pkg/ggl90/ggl90_calc.F 527 GGL90_CALC 
        GGL90TKE(i,j,kBottom,bi,bj) = GGL90TKE(i,j,kBottom,bi,bj)
./pkg/ggl90/ggl90_calc.F 528 GGL90_CALC 
     &                              - GGL90TKEbottom*c(i,j,kBottom)
./pkg/ggl90/ggl90_calc.F 529 GGL90_CALC 
        c(i,j,kBottom) = 0. _d 0
./pkg/ggl90/ggl90_calc.F 77 GGL90_CALC 
      INTEGER i, j, k, kp1, km1, kSurf, kBottom
./pkg/mom_common/mom_u_bottomdrag.F 52 MOM_U_BOTTOMDRAG 
      INTEGER i,j,kDown,kDownC,kBottom
./pkg/mom_common/mom_u_bottomdrag.F 59 MOM_U_BOTTOMDRAG 
       kBottom = Nr
./pkg/mom_common/mom_u_bottomdrag.F 60 MOM_U_BOTTOMDRAG 
       kDown   = min(k+1,kBottom)
./pkg/mom_common/mom_u_bottomdrag.F 66 MOM_U_BOTTOMDRAG 
       kBottom = 1
./pkg/mom_common/mom_u_bottomdrag.F 67 MOM_U_BOTTOMDRAG 
       kDown   = max(k-1,kBottom)
./pkg/mom_common/mom_u_bottomdrag.F 73 MOM_U_BOTTOMDRAG 
      IF (k.EQ.kBottom) rdrckp1=recip_drF(k)
./pkg/mom_common/mom_u_bottomdrag.F 79 MOM_U_BOTTOMDRAG 
        IF (k.EQ.kBottom) maskDown=0.
./pkg/mom_common/mom_v_bottomdrag.F 59 MOM_V_BOTTOMDRAG 
      INTEGER i,j,kDown,kDownC,kBottom
./pkg/mom_common/mom_v_bottomdrag.F 66 MOM_V_BOTTOMDRAG 
       kBottom = Nr
./pkg/mom_common/mom_v_bottomdrag.F 67 MOM_V_BOTTOMDRAG 
       kDown   = min(k+1,kBottom)
./pkg/mom_common/mom_v_bottomdrag.F 73 MOM_V_BOTTOMDRAG 
       kBottom = 1
./pkg/mom_common/mom_v_bottomdrag.F 74 MOM_V_BOTTOMDRAG 
       kDown   = max(k-1,kBottom)
./pkg/mom_common/mom_v_bottomdrag.F 82 MOM_V_BOTTOMDRAG 
      IF (k.EQ.kBottom) rdrckp1=recip_drF(k)
./pkg/mom_common/mom_v_bottomdrag.F 86 MOM_V_BOTTOMDRAG 
        IF (k.EQ.kBottom) maskDown=0.
./model/src/convective_adjustment.F 110 CONVECTIVE_ADJUSTMENT 
          kBottom = Nr
./model/src/convective_adjustment.F 116 CONVECTIVE_ADJUSTMENT 
          kBottom =  2
./model/src/convective_adjustment.F 131 CONVECTIVE_ADJUSTMENT 
          DO K=kTop,kBottom,kDir
./model/src/convective_adjustment.F 57 CONVECTIVE_ADJUSTMENT 
      INTEGER i, j, K, kTop, kBottom, kDir, deltaK
./model/src/convective_adjustment.F 81 CONVECTIVE_ADJUSTMENT 
        kBottom = 0
./model/src/convective_adjustment_ini.F 110 CONVECTIVE_ADJUSTMENT_INI 
          kBottom = Nr
./model/src/convective_adjustment_ini.F 116 CONVECTIVE_ADJUSTMENT_INI 
          kBottom =  2
./model/src/convective_adjustment_ini.F 131 CONVECTIVE_ADJUSTMENT_INI 
          DO K=kTop,kBottom,kDir
./model/src/convective_adjustment_ini.F 61 CONVECTIVE_ADJUSTMENT_INI 
      INTEGER i, j, K, kTop, kBottom, kDir, deltaK
./model/src/convective_adjustment_ini.F 81 CONVECTIVE_ADJUSTMENT_INI 
        kBottom = 0
./pkg/down_slope/dwnslp_apply.F 10 DWNSLP_APPLY 
     I            trIdentity, bi, bj, kBottom,
./pkg/down_slope/dwnslp_apply.F 143 DWNSLP_APPLY 
         kshelf = kBottom(ijs,bi,bj)
./pkg/down_slope/dwnslp_apply.F 52 DWNSLP_APPLY 
      INTEGER kBottom( xySize, nSx, nSy )
./pkg/down_slope/dwnslp_calc_flow.F 101 DWNSLP_CALC_FLOW 
        kshelf = kBottom(ijs,bi,bj)
./pkg/down_slope/dwnslp_calc_flow.F 10 DWNSLP_CALC_FLOW 
     I                             bi, bj, kBottom, rho3d,
./pkg/down_slope/dwnslp_calc_flow.F 111 DWNSLP_CALC_FLOW 
          DO k=kshelf+1,kBottom(ijd,bi,bj),downward
./pkg/down_slope/dwnslp_calc_flow.F 150 DWNSLP_CALC_FLOW 
         kshelf = kBottom(ijs,bi,bj)
./pkg/down_slope/dwnslp_calc_flow.F 40 DWNSLP_CALC_FLOW 
      INTEGER kBottom( xySize, nSx,nSy )