Symbol Description Uses
viscFac 28


File Line number Procedure Code
./pkg/mom_common/mom_u_botdrag_impl.F 121 MOM_U_BOTDRAG_IMPL 
     &      *( kappaRU(i,j,kLowF)*recDrC*viscFac
./pkg/mom_common/mom_u_botdrag_impl.F 132 MOM_U_BOTDRAG_IMPL 
     &      *( kappaRU(i,j,kLowF)*recDrC*viscFac
./pkg/mom_common/mom_u_botdrag_impl.F 57 MOM_U_BOTDRAG_IMPL 
      _RL viscFac, dragFac, uSq
./pkg/mom_common/mom_u_botdrag_impl.F 64 MOM_U_BOTDRAG_IMPL 
      viscFac = 0.
./pkg/mom_common/mom_u_botdrag_impl.F 65 MOM_U_BOTDRAG_IMPL 
      IF (no_slip_bottom) viscFac = 2.
./pkg/mom_common/mom_u_bottomdrag.F 117 MOM_U_BOTTOMDRAG 
     &    *( kappaRU(i,j,kLowF)*recDrC*viscFac
./pkg/mom_common/mom_u_bottomdrag.F 128 MOM_U_BOTTOMDRAG 
     &    *( kappaRU(i,j,kLowF)*recDrC*viscFac
./pkg/mom_common/mom_u_bottomdrag.F 57 MOM_U_BOTTOMDRAG 
      _RL viscFac, dragFac, uSq
./pkg/mom_common/mom_u_bottomdrag.F 63 MOM_U_BOTTOMDRAG 
      viscFac = 0.
./pkg/mom_common/mom_u_bottomdrag.F 64 MOM_U_BOTTOMDRAG 
      IF (no_slip_bottom) viscFac = 2.
./pkg/mom_common/mom_v_botdrag_impl.F 121 MOM_V_BOTDRAG_IMPL 
     &      *( kappaRV(i,j,kLowF)*recDrC*viscFac
./pkg/mom_common/mom_v_botdrag_impl.F 132 MOM_V_BOTDRAG_IMPL 
     &      *( kappaRV(i,j,kLowF)*recDrC*viscFac
./pkg/mom_common/mom_v_botdrag_impl.F 57 MOM_V_BOTDRAG_IMPL 
      _RL viscFac, dragFac, vSq
./pkg/mom_common/mom_v_botdrag_impl.F 64 MOM_V_BOTDRAG_IMPL 
      viscFac = 0.
./pkg/mom_common/mom_v_botdrag_impl.F 65 MOM_V_BOTDRAG_IMPL 
      IF (no_slip_bottom) viscFac = 2.
./pkg/mom_common/mom_v_bottomdrag.F 117 MOM_V_BOTTOMDRAG 
     &    *( kappaRV(i,j,kLowF)*recDrC*viscFac
./pkg/mom_common/mom_v_bottomdrag.F 128 MOM_V_BOTTOMDRAG 
     &    *( kappaRV(i,j,kLowF)*recDrC*viscFac
./pkg/mom_common/mom_v_bottomdrag.F 57 MOM_V_BOTTOMDRAG 
      _RL viscFac, dragFac, vSq
./pkg/mom_common/mom_v_bottomdrag.F 63 MOM_V_BOTTOMDRAG 
      viscFac = 0.
./pkg/mom_common/mom_v_bottomdrag.F 64 MOM_V_BOTTOMDRAG 
      IF (no_slip_bottom) viscFac = 2.
./pkg/shelfice/shelfice_u_drag.F 55 SHELFICE_U_DRAG 
      _RL viscFac, uSq
./pkg/shelfice/shelfice_u_drag.F 69 SHELFICE_U_DRAG 
      viscFac=0.
./pkg/shelfice/shelfice_u_drag.F 70 SHELFICE_U_DRAG 
      IF (no_slip_shelfice) viscFac=2.
./pkg/shelfice/shelfice_u_drag.F 80 SHELFICE_U_DRAG 
     &      * kappaRU(i,j,kUpC)*rdrckp1*viscFac
./pkg/shelfice/shelfice_v_drag.F 55 SHELFICE_V_DRAG 
      _RL viscFac, vSq
./pkg/shelfice/shelfice_v_drag.F 69 SHELFICE_V_DRAG 
      viscFac=0.
./pkg/shelfice/shelfice_v_drag.F 70 SHELFICE_V_DRAG 
      IF (no_slip_shelfice) viscFac=2.
./pkg/shelfice/shelfice_v_drag.F 80 SHELFICE_V_DRAG 
     &      * kappaRV(i,j,kUpC)*rdrckp1*viscFac