From 593a20c9f14887a0526de3e327b181f59d43f0cf Mon Sep 17 00:00:00 2001 From: Austin Michael Blevins Date: Tue, 13 Dec 2022 10:59:57 -0500 Subject: [PATCH] everything should work up until mixing --- src/init/init_regolith_stack.f90 | 2 ++ src/io/io_write_regotrack.f90 | 3 +-- 2 files changed, 3 insertions(+), 2 deletions(-) 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