diff --git a/applications/solvers/lagrangian/DPMFoam/UcEqn.H b/applications/solvers/lagrangian/DPMFoam/UcEqn.H
index 0bd4a7146d491806f94ddab676670bf331d835ba..48bdaeb47fd8346e2af39848980e950fa6aa2acd 100644
--- a/applications/solvers/lagrangian/DPMFoam/UcEqn.H
+++ b/applications/solvers/lagrangian/DPMFoam/UcEqn.H
@@ -15,7 +15,7 @@ surfaceScalarField rAUcf("Dp", fvc::interpolate(rAUc));
 surfaceScalarField phicForces
 (
    (fvc::interpolate(rAUc*cloudVolSUSu/rhoc) & mesh.Sf())
- + rAUcf*(g & mesh.Sf())
+ + alphacf*rAUcf*(g & mesh.Sf())
 );
 
 if (pimple.momentumPredictor())