diff --git a/src/force_control.F b/src/force_control.F
index b03690ae40..c71a4ca3ad 100644
--- a/src/force_control.F
+++ b/src/force_control.F
@@ -99,8 +99,8 @@ SUBROUTINE force_1 ( struc, inter, thermo, simpar, ewald_param, box_change, &
      CALL pol_force_control ( struc % molecule, struc % pnode, struc % part, &
           struc % box, struc % box_ref, struc % drho_basis_info, &
 	  struc % rho0_basis_info, struc % coef_pos (1), struc % coef_vel (1), &
-	  struc % coef_force (1), thermo, inter%potparm, ewald_param,  &
-          simpar % ensemble, globenv, struc%ll_data )
+	  struc % coef_force (1), thermo, inter%potparm, inter%empparm,  &
+          ewald_param, simpar % ensemble, globenv, struc%ll_data )
 
   CASE ( 'TBMD' )
      CALL tbmd_force_control ( struc % molecule, struc % pnode, struc % part, &