diff --git a/src/define_cloud.f90 b/src/define_cloud.f90
index 588622a8ed2386cedd0be4364e44d8623cfa1367..536239f200eafbe658eb751e41a2f3069433a417 100644
--- a/src/define_cloud.f90
+++ b/src/define_cloud.f90
@@ -47,7 +47,7 @@ type (ziso) zi
 !------------------------------------------------------------------------------|
 !(((((((((((((((( declaration of the subroutine internal variables )))))))))))))
 !------------------------------------------------------------------------------|
-double precision x,y,z,u,v,w,p,r,s,t,e2d,xlsf,xn,yn,zn,don,con,wiso,ev,epr,espr
+double precision x,y,z,u,v,w,p,r,s,t,e2d,xlsf,xn,yn,zn,con,wiso,ev,epr,espr
 double precision current_time,activation_time,dilatr
 logical inf,wlif,ip
 integer err,iproc,nproc,ierr,i,j,k,nl,nf,nn,nr,kx,ky,kz,kt,icon
diff --git a/src/define_ov.f90 b/src/define_ov.f90
index fbaf2641ed7e78e05e0815cbf5cb58da84ec8a36..b940675cb70b68d20ce76333d11f7baebe9845c3 100644
--- a/src/define_ov.f90
+++ b/src/define_ov.f90
@@ -51,10 +51,10 @@ type (thread) threadinfo
 
 integer iproc, nproc, err, ierr, levelv
 integer nface, nlsf, i, j, k, np, kfix, matnum
-double precision s,e2d,xlsf,crit,wiso,evisc,dilatr
+double precision s,e2d,xlsf,crit,evisc,dilatr
 integer ioctree_number_of_elements
 external ioctree_number_of_elements
-double precision current_time,activation_time
+double precision current_time
 logical is_plas
 
 !------------------------------------------------------------------------------|
diff --git a/src/define_surface.f90 b/src/define_surface.f90
index 5a2b16f77c77eec6d4328c168d32091e028f367c..5a0228a469d5dffc51e704caa819bcc60490fdcc 100644
--- a/src/define_surface.f90
+++ b/src/define_surface.f90
@@ -49,11 +49,11 @@ double precision total, step, inc, current_time
 !(((((((((((((((( declaration of the subroutine internal variables )))))))))))))
 !------------------------------------------------------------------------------|
      
-integer err,ierr,iproc,nproc,iface,ioc,i,j,k,is,noctree,nnode,nleaves,nface,nt
+integer ierr,iproc,nproc,iface,ioc,i,j,k,is,noctree,nnode,nleaves,nface
 integer icon,inn,inl,nlsf,ncl,nf,inr,kx,ky,kz,kt,matnum
 logical inf,wlif,is_plas
 character*7 ic
-double precision s,p,t,x,y,z,u,v,w,wiso,xlsf,e2d,don,con,activation_time,dilatr
+double precision s,p,t,x,y,z,u,v,w,wiso,xlsf,e2d,con,activation_time,dilatr
 double precision epr,espr,evisc
 
 !------------------------------------------------------------------------------|