Symbol Description Uses
dragFac 32



File Line number Procedure Code
./pkg/mom_common/mom_u_botdrag_impl.F 105 MOM_U_BOTDRAG_IMPL
     &      *( bottomDragLinear*dragFac
./pkg/mom_common/mom_u_botdrag_impl.F 108 MOM_U_BOTDRAG_IMPL
     &                + bottomDragFld(i,j,bi,bj) )*dragFac
./pkg/mom_common/mom_u_botdrag_impl.F 156 MOM_U_BOTDRAG_IMPL
     &       *bottomDragQuadratic*SQRT(KE(i,j)+KE(i-1,j))*dragFac
./pkg/mom_common/mom_u_botdrag_impl.F 174 MOM_U_BOTDRAG_IMPL
     &       *bottomDragQuadratic*SQRT(uSq)*dragFac
./pkg/mom_common/mom_u_botdrag_impl.F 198 MOM_U_BOTDRAG_IMPL
     &       *bottomDragQuadratic*SQRT(uSq)*dragFac
./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 75 MOM_U_BOTDRAG_IMPL
        dragFac = 1. _d 0
./pkg/mom_common/mom_u_botdrag_impl.F 80 MOM_U_BOTDRAG_IMPL
        dragFac = mass2rUnit*rhoConst
./pkg/mom_common/mom_u_bottomdrag.F 101 MOM_U_BOTTOMDRAG
     &    *( bottomDragLinear*dragFac
./pkg/mom_common/mom_u_bottomdrag.F 104 MOM_U_BOTTOMDRAG
     &              + bottomDragFld(i,j,bi,bj) )*dragFac
./pkg/mom_common/mom_u_bottomdrag.F 142 MOM_U_BOTTOMDRAG
     &      *bottomDragQuadratic*SQRT(KE(i,j)+KE(i-1,j))*dragFac
./pkg/mom_common/mom_u_bottomdrag.F 160 MOM_U_BOTTOMDRAG
     &      *bottomDragQuadratic*SQRT(uSq)*dragFac
./pkg/mom_common/mom_u_bottomdrag.F 184 MOM_U_BOTTOMDRAG
     &      *bottomDragQuadratic*SQRT(uSq)*dragFac
./pkg/mom_common/mom_u_bottomdrag.F 57 MOM_U_BOTTOMDRAG
      _RL viscFac, dragFac, uSq
./pkg/mom_common/mom_u_bottomdrag.F 71 MOM_U_BOTTOMDRAG
       dragFac = 1. _d 0
./pkg/mom_common/mom_u_bottomdrag.F 76 MOM_U_BOTTOMDRAG
       dragFac = mass2rUnit*rhoConst
./pkg/mom_common/mom_v_botdrag_impl.F 105 MOM_V_BOTDRAG_IMPL
     &      *( bottomDragLinear*dragFac
./pkg/mom_common/mom_v_botdrag_impl.F 108 MOM_V_BOTDRAG_IMPL
     &                + bottomDragFld(i,j,bi,bj) )*dragFac
./pkg/mom_common/mom_v_botdrag_impl.F 156 MOM_V_BOTDRAG_IMPL
     &       *bottomDragQuadratic*SQRT(KE(i,j)+KE(i,j-1))*dragFac
./pkg/mom_common/mom_v_botdrag_impl.F 174 MOM_V_BOTDRAG_IMPL
     &       *bottomDragQuadratic*SQRT(vSq)*dragFac
./pkg/mom_common/mom_v_botdrag_impl.F 198 MOM_V_BOTDRAG_IMPL
     &       *bottomDragQuadratic*SQRT(vSq)*dragFac
./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 75 MOM_V_BOTDRAG_IMPL
        dragFac = 1. _d 0
./pkg/mom_common/mom_v_botdrag_impl.F 80 MOM_V_BOTDRAG_IMPL
        dragFac = mass2rUnit*rhoConst
./pkg/mom_common/mom_v_bottomdrag.F 101 MOM_V_BOTTOMDRAG
     &    *( bottomDragLinear*dragFac
./pkg/mom_common/mom_v_bottomdrag.F 104 MOM_V_BOTTOMDRAG
     &              + bottomDragFld(i,j,bi,bj) )*dragFac
./pkg/mom_common/mom_v_bottomdrag.F 142 MOM_V_BOTTOMDRAG
     &      *bottomDragQuadratic*SQRT(KE(i,j)+KE(i,j-1))*dragFac
./pkg/mom_common/mom_v_bottomdrag.F 160 MOM_V_BOTTOMDRAG
     &      *bottomDragQuadratic*SQRT(vSq)*dragFac
./pkg/mom_common/mom_v_bottomdrag.F 184 MOM_V_BOTTOMDRAG
     &      *bottomDragQuadratic*SQRT(vSq)*dragFac
./pkg/mom_common/mom_v_bottomdrag.F 57 MOM_V_BOTTOMDRAG
      _RL viscFac, dragFac, vSq
./pkg/mom_common/mom_v_bottomdrag.F 71 MOM_V_BOTTOMDRAG
       dragFac = 1. _d 0
./pkg/mom_common/mom_v_bottomdrag.F 76 MOM_V_BOTTOMDRAG
       dragFac = mass2rUnit*rhoConst