From 79198d48ccd1235d3c8e9bd504d60d381efe572b Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Thu, 10 Nov 2022 16:09:25 -0500 Subject: [PATCH] made ejected melt calculations only write if testflag is on --- src/ejecta/ejecta_emplace.f90 | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/ejecta/ejecta_emplace.f90 b/src/ejecta/ejecta_emplace.f90 index f22d26cb..a49ddacd 100644 --- a/src/ejecta/ejecta_emplace.f90 +++ b/src/ejecta/ejecta_emplace.f90 @@ -282,9 +282,11 @@ subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,deltaMtot,age,age_r end do end do !!$OMP END PARALLEL DO - write(*,*) 'Ejected Melt: ', vmelt - write(*,*) 'Total Melt: ', totmelt - write(*,*) 'ejected / total melt:', vmelt/totmelt + if(user%doregotrack .and. user%testflag) then + write(*,*) 'Ejected Melt: ', vmelt + write(*,*) 'Total Melt: ', totmelt + write(*,*) 'ejected / total melt:', vmelt/totmelt + end if ejbmass = sum(cumulative_elchange) ! Create buffer to prevent infinite hole bug