From 668b8d26c466ff199c1427cb63972f083dd5f033 Mon Sep 17 00:00:00 2001 From: langevin-usgs Date: Wed, 6 Mar 2024 16:21:52 -0500 Subject: [PATCH] fix(disl): copy disl%reach_bottom into disbase%bot (#1662) * does not account yet for idomain --- src/Model/SurfaceWaterFlow/swf-disl.f90 | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/Model/SurfaceWaterFlow/swf-disl.f90 b/src/Model/SurfaceWaterFlow/swf-disl.f90 index 304e5b0babb..7b75220ac7b 100644 --- a/src/Model/SurfaceWaterFlow/swf-disl.f90 +++ b/src/Model/SurfaceWaterFlow/swf-disl.f90 @@ -685,6 +685,11 @@ subroutine grid_finalize(this) node = node + 1 end do end if + ! + ! -- Move reach_bottom into bot + do node = 1, this%nodesuser + this%bot(node) = this%reach_bottom(node) + end do ! -- Return return