diff --git a/src/init/init_regolith_stack.f90 b/src/init/init_regolith_stack.f90
index cd2d6ec8..1ffad0dc 100644
--- a/src/init/init_regolith_stack.f90
+++ b/src/init/init_regolith_stack.f90
@@ -45,6 +45,8 @@ subroutine init_regolith_stack(user,surf,domain)
    bedrock%meltfrac  = 0._DP 
    bedrock%comp      = 0._DP
    bedrock%age(:)    = 0.0_SP
+   allocate(bedrock%meltdist(domain%rcnum))
+   bedrock%meltdist(:) = 0.0_SP
 
    do yp = 1, user%gridsize
       do xp = 1, user%gridsize
diff --git a/src/io/io_write_regotrack.f90 b/src/io/io_write_regotrack.f90
index c574b7cb..3f520156 100644
--- a/src/io/io_write_regotrack.f90
+++ b/src/io/io_write_regotrack.f90
@@ -86,8 +86,7 @@ subroutine io_write_regotrack(user,surf,domain)
             thickness(k) = current(k)%thickness
             comp(k) = current(k)%comp
             age(:,k) = current(k)%age(:)
-            write(*,*) size(current(k)%age)
-            write(*,*) size(current(k)%meltdist)
+            !write(*,*) i, j
             meltdist(:,k) = current(k)%meltdist(:)
 
          end do