X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Fenergy_p_new_barrier.F;h=d2cea5fc45fee96e57ec89485b674161234e2de0;hb=4dfd5a32bfb40a62c23d814ac70bfef4cc085d63;hp=0af23e5475e6002018cd9dd0b69f1f8db84c8184;hpb=3176770f951fd8b689c14df6260e55fa4f479689;p=unres.git

diff --git a/source/unres/src_MD/energy_p_new_barrier.F b/source/unres/src_MD/energy_p_new_barrier.F
index 0af23e5..d2cea5f 100644
--- a/source/unres/src_MD/energy_p_new_barrier.F
+++ b/source/unres/src_MD/energy_p_new_barrier.F
@@ -1589,6 +1589,8 @@ C
             IF (dyn_ss_mask(i).and.dyn_ss_mask(j)) THEN
               call dyn_ssbond_ene(i,j,evdwij)
               evdw=evdw+evdwij
+              if (energy_dec) write (iout,'(a6,2i5,0pf7.3,a3)') 
+     &                        'evdw',i,j,evdwij,' ss'
             ELSE
             ind=ind+1
             itypj=itype(j)