From 521d3147cf51a0abaa72533a4fd5b3a17cdb3e90 Mon Sep 17 00:00:00 2001 From: Austin Michael Blevins Date: Thu, 8 Dec 2022 12:33:08 -0500 Subject: [PATCH] fixed depth bug --- src/util/util_traverse_pop_array.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/util/util_traverse_pop_array.f90 b/src/util/util_traverse_pop_array.f90 index 7ef97949..cf5daf97 100644 --- 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))