Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
fixed a bug where volumes didn't display for melt sheets
  • Loading branch information
Austin Blevins committed Feb 23, 2023
1 parent 0a64f69 commit e8fbdbd
Showing 1 changed file with 2 additions and 0 deletions.
2 changes: 2 additions & 0 deletions src/regolith/regolith_interior.f90
Original file line number Diff line number Diff line change
Expand Up @@ -73,8 +73,10 @@ subroutine regolith_interior(user,surf,crater,domain,incval,nmeltsheet,vmeltshee
newlayer%meltvolume = vmeltsheet / nmeltsheet
newlayer%totvolume = newlayer%meltvolume
newlayer%meltdist(:) = 0.0_SP
newlayer%distvol(:) = 0.0_SP
if(domain%currentqmc) then
newlayer%meltdist(domain%nqmc) = newlayer%meltfrac
newlayer%distvol(domain%nqmc) = newlayer%meltvolume
end if
call util_push_array(surf(xpi,ypi)%regolayer,newlayer)
end do
Expand Down

0 comments on commit e8fbdbd

Please sign in to comment.