Symbol Description Uses
viscFac 16


File Line number Procedure Code
./pkg/shelfice/shelfice_v_drag.F 43 SHELFICE_V_DRAG 
      _RL viscFac
./pkg/shelfice/shelfice_v_drag.F 68 SHELFICE_V_DRAG 
      viscFac=0.
./pkg/shelfice/shelfice_v_drag.F 69 SHELFICE_V_DRAG 
      IF (no_slip_shelfice) viscFac=1.
./pkg/shelfice/shelfice_v_drag.F 78 SHELFICE_V_DRAG 
     &      2.*KappaRV(i,j,kUpC)*rdrckp1*viscFac
./pkg/shelfice/shelfice_u_drag.F 54 SHELFICE_U_DRAG 
      _RL viscFac
./pkg/shelfice/shelfice_u_drag.F 70 SHELFICE_U_DRAG 
      viscFac=0.
./pkg/shelfice/shelfice_u_drag.F 71 SHELFICE_U_DRAG 
      IF (no_slip_shelfice) viscFac=1.
./pkg/shelfice/shelfice_u_drag.F 79 SHELFICE_U_DRAG 
     &      2.*KappaRU(i,j,kUpC)*rdrckp1*viscFac
./pkg/mom_common/mom_v_bottomdrag.F 47 MOM_V_BOTTOMDRAG 
      _RL viscFac
./pkg/mom_common/mom_v_bottomdrag.F 72 MOM_V_BOTTOMDRAG 
      viscFac=0.
./pkg/mom_common/mom_v_bottomdrag.F 73 MOM_V_BOTTOMDRAG 
      IF (no_slip_bottom) viscFac=1.
./pkg/mom_common/mom_v_bottomdrag.F 82 MOM_V_BOTTOMDRAG 
     &      2.*KappaRV(i,j,kDownC)*rdrckp1*viscFac
./pkg/mom_common/mom_u_bottomdrag.F 50 MOM_U_BOTTOMDRAG 
      _RL viscFac
./pkg/mom_common/mom_u_bottomdrag.F 66 MOM_U_BOTTOMDRAG 
      viscFac=0.
./pkg/mom_common/mom_u_bottomdrag.F 67 MOM_U_BOTTOMDRAG 
      IF (no_slip_bottom) viscFac=1.
./pkg/mom_common/mom_u_bottomdrag.F 75 MOM_U_BOTTOMDRAG 
     &      2.*KappaRU(i,j,kDownC)*rdrckp1*viscFac