Skip to content

Commit 668b8d2

Browse files
author
langevin-usgs
authored
fix(disl): copy disl%reach_bottom into disbase%bot (#1662)
* does not account yet for idomain
1 parent adce911 commit 668b8d2

File tree

1 file changed

+5
-0
lines changed

1 file changed

+5
-0
lines changed

src/Model/SurfaceWaterFlow/swf-disl.f90

+5
Original file line numberDiff line numberDiff line change
@@ -685,6 +685,11 @@ subroutine grid_finalize(this)
685685
node = node + 1
686686
end do
687687
end if
688+
!
689+
! -- Move reach_bottom into bot
690+
do node = 1, this%nodesuser
691+
this%bot(node) = this%reach_bottom(node)
692+
end do
688693

689694
! -- Return
690695
return

0 commit comments

Comments
 (0)