timlim function ovrtim only on master and MPI_Bcast

[unres.git] / source / unres / src_MD / gradient_p.F

diff --git a/source/unres/src_MD/gradient_p.F b/source/unres/src_MD/gradient_p.F
index dd59b31..a29f83a 100644 (file)
--- a/source/unres/src_MD/gradient_p.F
+++ b/source/unres/src_MD/gradient_p.F
@@ -428,6 +428,12 @@ C
           do intertyp=1,3
            gloc_sc(intertyp,i,icg)=0.0d0
           enddo
+#ifndef DFA
+          gdfad(j,i)=0.0d0
+          gdfat(j,i)=0.0d0
+          gdfan(j,i)=0.0d0
+          gdfab(j,i)=0.0d0
+#endif
         enddo
       enddo
 c