diff --git a/src/regolith/module_regolith.f90 b/src/regolith/module_regolith.f90 index 4458c6e1..f7e01a87 100644 --- a/src/regolith/module_regolith.f90 +++ b/src/regolith/module_regolith.f90 @@ -95,7 +95,7 @@ end subroutine regolith_streamtube interface subroutine regolith_traverse_streamtube(user,surfi,deltar,ri,rip1,eradi,erado,newlayer,vmare,totseb,& - age_collector,xmints,xsfints,rsh,depthb,meltinejecta,totvol) + age_collector,xmints,xsfints,depthb,meltinejecta,totvol) use module_globals implicit none type(usertype),intent(in) :: user @@ -106,7 +106,7 @@ subroutine regolith_traverse_streamtube(user,surfi,deltar,ri,rip1,eradi,erado,ne real(DP),intent(out) :: vmare,totseb real(SP),dimension(:),intent(inout) :: age_collector real(DP),intent(in) :: xmints - real(DP),intent(in) :: xsfints, rsh, depthb + real(DP),intent(in) :: xsfints, depthb end subroutine regolith_traverse_streamtube end interface diff --git a/src/regolith/regolith_streamtube.f90 b/src/regolith/regolith_streamtube.f90 index 4ff9bcb5..9f5aa1b5 100644 --- a/src/regolith/regolith_streamtube.f90 +++ b/src/regolith/regolith_streamtube.f90 @@ -285,7 +285,7 @@ subroutine regolith_streamtube(user,surf,crater,domain,ejb,ejtble,xp,yp,xpi,ypi, newlayer%thickness = vseg/(user%pix**2) call util_periodic(xstpi,ystpi,user%gridsize) call regolith_traverse_streamtube(user,surf(xstpi,ystpi),deltar,rbody,eradi,eradi,erado,newlayer,vmare,& - totseb,age_collector,xmints,xsfints,rsh,depthb,meltinejecta,totvol) + totseb,age_collector,xmints,xsfints,depthb,meltinejecta,totvol) totmare = totmare + vmare tots = tots + totseb end if @@ -302,7 +302,7 @@ subroutine regolith_streamtube(user,surf,crater,domain,ejb,ejtble,xp,yp,xpi,ypi, newlayer%thickness = vseg/(user%pix**2) call util_periodic(xstpi,ystpi,user%gridsize) call regolith_traverse_streamtube(user,surf(xstpi,ystpi),deltar,ri,rip1,eradi,erado,newlayer,vmare,& - totseb,age_collector,xmints,xsfints,rsh,depthb,meltinejecta,totvol) + totseb,age_collector,xmints,xsfints,depthb,meltinejecta,totvol) totmare = totmare + vmare tots = tots + totseb end if