fixed a bug that caused an exception when using debug flags; age still bugged for QMC runs

MintonGroup · Jun 16, 2023 · 1eb6726 · 1eb6726
1 parent e56be5e
commit 1eb6726
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 0 deletions.
diff --git a/src/regolith/regolith_streamtube_head.f90 b/src/regolith/regolith_streamtube_head.f90
@@ -61,6 +61,7 @@ subroutine regolith_streamtube_head(user,surfi,deltar,totmare,tots,age_collector
    zend = z
    zmin = zstart 
    zmax = 2.0 * deltar
+   ratio = 0.0_DP
 
    if (zend >= zmax) then ! Stream tube's head is inside the 1st layer.
       tots = tots + vsgly

diff --git a/src/regolith/regolith_streamtube_lineseg.f90 b/src/regolith/regolith_streamtube_lineseg.f90
@@ -66,6 +66,7 @@ subroutine regolith_streamtube_lineseg(user,surfi,thetast,ri,rip1,zmin,zmax,erad
 
    vol = 0.0_DP
    vsh = 0.0_DP
+   ratio = 0.0_DP
 
    do N=M,2,-1
 

diff --git a/src/regolith/regolith_subpixel_streamtube.f90 b/src/regolith/regolith_subpixel_streamtube.f90
@@ -106,6 +106,8 @@ subroutine regolith_subpixel_streamtube(user,surfi,deltar,ri,rip1,eradi,newlayer
    recyratio2 = 0.0_DP
    vsh = 0.0_DP
    vsh2 = 0.0_DP
+   ratio = 0.0_DP
+   ratio2 = 0.0_DP
 
    ! Two cases: subpixel is inside the first layer, and its volume is simply the landing ejecta blanket.
    if (zend>=zmax) then 

diff --git a/src/regolith/regolith_traverse_streamtube.f90 b/src/regolith/regolith_traverse_streamtube.f90
@@ -55,6 +55,7 @@ subroutine regolith_traverse_streamtube(user,surfi,deltar,ri,rip1,eradi,erado,ne
    !executable code
 
    vsh = 0.0_DP
+   ratio = 0.0_DP
 
    erad = (eradi + erado)/2.0
    rzmax = erad * sqrt(3.0)/4.0