cleaning - unecessary files deleted

[unres.git] / source / unres / src_CSA / minim_jlee.F

diff --git a/source/unres/src_CSA/minim_jlee.F b/source/unres/src_CSA/minim_jlee.F
index d83b15b..f1e00be 100644 (file)
--- a/source/unres/src_CSA/minim_jlee.F
+++ b/source/unres/src_CSA/minim_jlee.F
@@ -42,6 +42,12 @@ c      print *, 'MINIM_JLEE: ',me,' is waiting'
       time1s=MPI_WTIME()
       write (iout,'(a12,f10.4,a4)')'Waiting for ',time1s-time0s,' sec'
       call flush(iout)
+      if (info(1).eq.0.and.info(2).eq.-2) then
+cd       write (iout,*) 'Parallel tmscore for refresh bank'
+cd       call flush(iout)
+       call refresh_bank_worker_tmscore(var)
+       goto 10
+      endif
        n=info(1)
 c      print *, 'MINIM_JLEE: ',me,' received: ',n