From 2213977696ab64d7a98867ae26d6ff6fc1ff7790 Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Tue, 28 Feb 2023 22:11:52 -0500 Subject: [PATCH] fixed bug so ejected melt fraction is actually written --- src/io/io_write_regotrack.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/io/io_write_regotrack.f90 b/src/io/io_write_regotrack.f90 index eedfdc0b..6330c964 100644 --- a/src/io/io_write_regotrack.f90 +++ b/src/io/io_write_regotrack.f90 @@ -109,7 +109,7 @@ subroutine io_write_regotrack(user,surf,domain) write(FAGE) age(:,:) write(FMD) distvol(:,:) write(FEJM) ejm(:) - !write(FEJMF) ejmf(:) + write(FEJMF) ejmf(:) write(FMF) meltfrac(:) write(FDF) meltdist(:,:) deallocate(meltvolume,thickness,comp,age,distvol,ejm,ejmf,meltfrac,meltdist)