projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ctest ene multichain
[unres.git]
/
source
/
unres
/
src_MD
/
MREMD.F
diff --git
a/source/unres/src_MD/MREMD.F
b/source/unres/src_MD/MREMD.F
index
4aad494
..
e443ec7
100644
(file)
--- a/
source/unres/src_MD/MREMD.F
+++ b/
source/unres/src_MD/MREMD.F
@@
-1,4
+1,3
@@
-#define DEBUG
#ifdef MPI
subroutine MREMD
implicit real*8 (a-h,o-z)
#ifdef MPI
subroutine MREMD
implicit real*8 (a-h,o-z)
@@
-720,7
+719,8
@@
c Update the time safety limiy
if (me.eq.king .or. .not. out1file)
& write (iout,*) "****** SAFETY increased to",safety," s"
endif
if (me.eq.king .or. .not. out1file)
& write (iout,*) "****** SAFETY increased to",safety," s"
endif
- if (ovrtim()) end_of_run=.true.
+ if (ovrtim() .and. me.eq.king) end_of_run=.true.
+ call MPI_Bcast(end_of_run,1,MPI_LOGICAL,king,CG_COMM,IERR)
endif
if(synflag.and..not.end_of_run) then
time02=MPI_WTIME()
endif
if(synflag.and..not.end_of_run) then
time02=MPI_WTIME()