correction in Morphology_Equations

In the morphology routine an iteration is being used to correct the morphology and to ensure the mass conservation for the different sediments. However, a small error is in this routine, so that the iteration is continued to the maximum number of iterations (100) all the time, instead of stopping after the problem is solved. I investigated the problem some time ago and suggested a solution for this (together with some other solution for problems, mainly with the sorting of material (test case morphsort). However this solution apparently has not been installed in the official latest version.

The solution is to execute following change ln 2896-2901

cell_check_old = .FALSE.

IF (.NOT.ANY(cell_check)) CYCLE f_400

999 iter(f) = iter(f) + 1

change into

IF (.NOT.ANY(cell_check)) CYCLE f_400

999 iter(f) = iter(f) + 1

cell_check_old = .FALSE.

Dries