From 758791e3cc10df377091e5384d8ce04a4000d0eb Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 18 Jul 2022 13:09:00 -0400 Subject: [PATCH] Fixed bug in which the regolith composition data was being written to the regolith thickness file --- src/io/io_write_regotrack.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/io/io_write_regotrack.f90 b/src/io/io_write_regotrack.f90 index 5f522321..d76950e5 100644 --- a/src/io/io_write_regotrack.f90 +++ b/src/io/io_write_regotrack.f90 @@ -55,8 +55,8 @@ subroutine io_write_regotrack(user,surf) if (.not. associated(current)) exit ! We've reached the bottom of the linked list stacks_num(i,j) = stacks_num(i,j) + 1 write(FMELT) current%regodata%meltfrac - write(FREGO) current%regodata%comp - write(FCOMP) current%regodata%meltfrac + write(FREGO) current%regodata%thickness + write(FCOMP) current%regodata%comp write(FAGE) current%regodata%age(:) current => current%next end do