diff --git a/src/DOUAR.f90 b/src/DOUAR.f90
index 7e6249c88b93d14f6754216e35ac220fcfbf6cb7..25bf79da3722ad78e1c084678d4b91eca2f40ed4 100644
--- a/src/DOUAR.f90
+++ b/src/DOUAR.f90
@@ -798,8 +798,8 @@ do while (istep.le.params%nstep)
          !--------------------------------------------------------------------------------------
          call show_time (total,step,inc,1,'compute convergence criterion$')
 
-         call compute_convergence_criterion(osolve,ov,vo,params,istep,iter,iter_nl, &
-                                            current_level,velocity_converged)
+         call compute_convergence_criterion(osolve,ov,vo,params,istep,iter,    &
+                                           iter_nl,velocity_converged)
 
          cltemp=current_level  !!++!!
 
diff --git a/src/compute_convergence_criterion.f90 b/src/compute_convergence_criterion.f90
index 1fd6cb0bbe830ee3dc4d3051d7f6ea04428b82aa..745bee9fae747880869b0e9aa23b3e38bbe5f2ec 100644
--- a/src/compute_convergence_criterion.f90
+++ b/src/compute_convergence_criterion.f90
@@ -17,8 +17,7 @@
 !------------------------------------------------------------------------------|
 
 subroutine compute_convergence_criterion (osolve,ov,vo,params,istep,iter,      &
-                                         iter_nl,refine_level,                 &
-                                         velocity_converged)
+                                         iter_nl,velocity_converged)
 
 !------------------------------------------------------------------------------|
 !(((((((((((((((( Purpose of the routine  ))))))))))))))))))))))))))))))))))))))
@@ -44,7 +43,6 @@ type (void) vo
 type (parameters) params
 integer istep,iter, iter_nl
 double precision maxu,maxv,maxw
-integer refine_level
 logical velocity_converged
 
 !------------------------------------------------------------------------------|