Symbol Description Uses
kUpC 10


File Line number Procedure Code
./pkg/shelfice/shelfice_u_drag.F 53 SHELFICE_U_DRAG 
      INTEGER I,J,kUp,kUpC,kTop
./pkg/shelfice/shelfice_u_drag.F 62 SHELFICE_U_DRAG 
       kUpC    = k
./pkg/shelfice/shelfice_u_drag.F 66 SHELFICE_U_DRAG 
       kUpC    = kUp
./pkg/shelfice/shelfice_u_drag.F 68 SHELFICE_U_DRAG 
      rdrckp1=recip_drC(kUpC)
./pkg/shelfice/shelfice_u_drag.F 79 SHELFICE_U_DRAG 
     &     - 2.*KappaRU(i,j,kUpC)*rdrckp1*viscFac
./pkg/shelfice/shelfice_v_drag.F 53 SHELFICE_V_DRAG 
      INTEGER I,J,kUp,kUpC,kTop
./pkg/shelfice/shelfice_v_drag.F 62 SHELFICE_V_DRAG 
       kUpC    = k
./pkg/shelfice/shelfice_v_drag.F 66 SHELFICE_V_DRAG 
       kUpC    = kUp
./pkg/shelfice/shelfice_v_drag.F 68 SHELFICE_V_DRAG 
      rdrckp1=recip_drC(kUpC)
./pkg/shelfice/shelfice_v_drag.F 79 SHELFICE_V_DRAG 
     &     - 2.*KappaRV(i,j,kUpC)*rdrckp1*viscFac