last commit also solves problem with infinite loop in case of a cutback in homogenization

corrected indentation of a comment
This commit is contained in:
Franz Roters 2013-08-02 07:59:55 +00:00
parent a08d263865
commit 4f9dbfa193
1 changed files with 1 additions and 1 deletions

View File

@ -935,7 +935,7 @@ subroutine crystallite_stressAndItsTangent(updateJaco,rate_sensitivity)
write(6,*) write(6,*)
endif endif
#endif #endif
else ! this crystallite just converged for the entire timestep else ! this crystallite just converged for the entire timestep
crystallite_todo(g,i,e) = .false. ! so done here crystallite_todo(g,i,e) = .false. ! so done here
!$OMP FLUSH(crystallite_todo) !$OMP FLUSH(crystallite_todo)
if (iand(debug_level(debug_crystallite),debug_levelBasic) /= 0_pInt & if (iand(debug_level(debug_crystallite),debug_levelBasic) /= 0_pInt &