Revamped main.f90: land_lake => Update_Cell