everything should work up until mixing

MintonGroup · Dec 13, 2022 · 593a20c · 593a20c
1 parent 845767d
commit 593a20c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git 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
@@ -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