Fixed wrong type for is_plastic

src/define_cloud.f90

@@ -43,9 +43,9 @@ double precision zisodisp(2**params%levelmax_oct+1,2**params%levelmax_oct+1)
 !------------------------------------------------------------------------------|
 !(((((((((((((((( 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,wp,ev,ip,epr,espr
+double precision x,y,z,u,v,w,p,r,s,t,e2d,xlsf,xn,yn,zn,don,con,wp,ev,epr,espr
 double precision current_time,activation_time
-logical inf,wlif
+logical inf,wlif,ip
 integer err,iproc,nproc,ierr,i,j,k,nl,nf,nn,nr,kx,ky,kz,kt,icon
 integer ioc,iface,ilsf,noctree,nnode,nface,nlsf,nleaves,ns,nt