fixed depth bug

MintonGroup · Dec 8, 2022 · 521d314 · 521d314
1 parent 7224db4
commit 521d314
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/util/util_traverse_pop_array.f90 b/src/util/util_traverse_pop_array.f90
@@ -68,7 +68,7 @@ subroutine util_traverse_pop_array(regolayer,traverse_depth,poppedarray)
     !for #1 element of poppedarray, shrink thickness by whatever was lefr over. In corresponding maxi of regolayer, also need to change that.
 
     poppedarray(1)%thickness = poppedarray(1)%thickness - depth_diff
-    regolayer(maxi)%thickness = regolayer(maxi)%thickness - depth_diff
+    regolayer(maxi)%thickness = regolayer(maxi)%thickness - poppedarray(1)%thickness
 
     ! copy regolayer from 1 to maxi to temp variable, then deallocate regolayer, then movealloc templayer onto regolayer <--may need temp array
     allocate(oldregodata,source=regolayer(1:maxi))