Commit bbabe6a3 authored by Gregor Michalicek's avatar Gregor Michalicek

Ignore minDistance check if input%l_f is set

This is done to avoid premature termination of fleur before the forces
are calculated.
parent 72d6bfa1
......@@ -837,7 +837,7 @@
END IF
CALL writeTimesXML()
CALL check_time_for_next_iteration(it,l_cont)
l_cont=l_cont.AND.(input%mindistance<=results%last_distance)
l_cont=l_cont.AND.((input%mindistance<=results%last_distance).OR.input%l_f)
IF ((mpi%irank.EQ.0).AND.(isCurrentXMLElement("iteration"))) THEN
CALL closeXMLElement('iteration')
END IF
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment