made ejected melt calculations only write if testflag is on

MintonGroup · Nov 10, 2022 · 79198d4 · 79198d4
1 parent c7528aa
commit 79198d4
Showing 1 changed file with 5 additions and 3 deletions.
diff --git 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