From 144e7df819316a239098024fbe817ce380ac4a01 Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Tue, 28 Mar 2023 12:53:44 -0400 Subject: [PATCH] add quasimc variables to the "newsurfi" that gets read in --- src/io/io_read_regotrack.f90 | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/src/io/io_read_regotrack.f90 b/src/io/io_read_regotrack.f90 index ac836e10..9c358838 100644 --- a/src/io/io_read_regotrack.f90 +++ b/src/io/io_read_regotrack.f90 @@ -162,10 +162,18 @@ subroutine io_read_regotrack(user,surf,domain) do k=max(stacks_num(i,j)-1,1),1,-1 newsurfi%thickness = regotopi(k) newsurfi%comp = compi(k) - newsurfi%meltfrac = melti(k) + newsurfi%meltfrac = mfi(k) + newsurfi%meltvolume = melti(k) + newsurfi%ejm = ejmi(k) + newsurfi%ejmf = ejmfi(k) + newsurfi%totvolume = regotopi(k) * user%gridsize * user%gridsize do q=1,MAXAGEBINS newsurfi%age(q) = agei(MAXAGEBINS*k-(MAXAGEBINS-q)) end do + do q=1,domain%rcnum + newsurfi%meltdist(q) = dfi(q*k) + newsurfi%distvol(q) = mdi(q*k) !these two could be wrong based on the way the file is read; need to check + end do call util_push_array(surf(i,j)%regolayer,newsurfi) end do