Fixed a major bug in regolith_streamtube where a variable was called that was not needed

MintonGroup · Feb 8, 2023 · 881ce92 · 881ce92
1 parent 78746d4
commit 881ce92
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -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