Fixed bug in which the regolith composition data was being written to…

… the regolith thickness file
MintonGroup · Jul 18, 2022 · 758791e · 758791e
1 parent 79d94be
commit 758791e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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