diff --git a/src/compute_convergence_criterion.f90 b/src/compute_convergence_criterion.f90 index 745bee9fae747880869b0e9aa23b3e38bbe5f2ec..f570169b65b057a169e08eb09e360fbaa919db60 100644 --- a/src/compute_convergence_criterion.f90 +++ b/src/compute_convergence_criterion.f90 @@ -49,8 +49,8 @@ logical velocity_converged !(((((((((((((((( declaration of the subroutine internal variables ))))))))))))) !------------------------------------------------------------------------------| -integer err,ierr,iproc,nproc,i -double precision dduvw,duvw,uvw,time1,time2 +integer ierr,iproc,nproc,i +double precision dduvw,duvw,uvw double precision velocity_diff_norm,maxdiff,oldmax character*72 shift