*** empty log message ***

5 years ago · a59c79a2f8
parent 2944299aa7
commit a59c79a2f8
1 changed files with 2 additions and 1 deletions
--- a/base/internals/psi_graph_fnd_owner.F90
+++ b/base/internals/psi_graph_fnd_owner.F90
@ -303,7 +303,8 @@ contains
    !
    ! ns_in == 0 means that on the outside we figure there's
    ! nothing left, but we are here because we have to synchronize.
-    ! Make sure we sweep through the entire vector immediately
+    ! Make sure we sweep through the entire vector immediately.
+    ! But also make sure we do not overrun tsmpl
    ! 
    if (ns == 0) ns = nv
    ns = min(ns,size(tsmpl))