working energy for shield and lipid wrong gradient

[unres4.git] / source / unres / data / comm_local.f90

diff --git a/source/unres/data/comm_local.f90 b/source/unres/data/comm_local.f90
index ad29715..89a42b4 100644 (file)
--- a/source/unres/data/comm_local.f90
+++ b/source/unres/data/comm_local.f90
@@ -3,7 +3,7 @@
 
       integer :: num_conti,j1,j2
       real(kind=8) :: a22,a23,a32,a33,dxi,dyi,dzi,dx_normi,dy_normi,&
-        dz_normi,xmedi,ymedi,zmedi
+        dz_normi,xmedi,ymedi,zmedi,sslipi,sslipj,ssgradlipi,ssgradlipj
       real(kind=8),dimension(2,2) :: a_temp
       real(kind=8),dimension(3,4) :: agg,aggi,aggi1,aggj,aggj1