turning mixing on causes other errors

MintonGroup · Dec 1, 2022 · 03f9fc7 · 03f9fc7
1 parent 7f2a478
commit 03f9fc7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/crater/crater_populate.f90 b/src/crater/crater_populate.f90
@@ -316,7 +316,7 @@ subroutine crater_populate(user,surf,crater,domain,prod,production_list,vdist,nt
       if (user%doregotrack) then
          call crater_superdomain(user,surf,age,age_resolution,prod,nflux,domain,finterval)
          call regolith_depth_model(user,domain,finterval,nflux,p)
-         !call regolith_subcrater_mix(user,surf,domain,nflux,finterval,p)
+         call regolith_subcrater_mix(user,surf,domain,nflux,finterval,p)
          age = age - finterval * user%interval
       end if 
 

diff --git a/src/util/util_traverse_pop_array.f90 b/src/util/util_traverse_pop_array.f90
@@ -45,7 +45,7 @@ subroutine util_traverse_pop_array(regolayer,traverse_depth,poppedarray)
 
 
     ! Initialize popped array
-    !call util_init_array(poppedarray,initstat)
+    call util_init_array(poppedarray,initstat)
 
 
     !if (initstat) then
@@ -61,7 +61,7 @@ subroutine util_traverse_pop_array(regolayer,traverse_depth,poppedarray)
     end do
 
 
-    allocate(poppedarray,source=regolayer(maxi:N))
+    !allocate(poppedarray,source=regolayer(maxi:N))
 
 
     depth = regolayer(maxi)%depth