made write statement only display if testflag=T

MintonGroup · Nov 13, 2023 · 550f347 · 550f347
1 parent 631ac45
commit 550f347
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ejecta/ejecta_emplace.f90 b/src/ejecta/ejecta_emplace.f90
@@ -141,7 +141,6 @@ subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,deltaMtot,cumulativ
 
    rray = (11.95*(crater%frad/1000)**1.32)/(crater%frad/1000)
    l1 = (5.32*(crater%frad/1000)**1.27)/(crater%frad/1000)
-   write(*,*) 'L16 = ', rray, 'L1 = ', l1
 
 
    ! Executable code
@@ -180,6 +179,7 @@ subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,deltaMtot,cumulativ
    if (inc >= user%gridsize / 2) then
       if (user%testflag) then
           write(*,*) 'Big ejecta: fcrat =',crater%fcrat, ' Ej/S =',(crater%ejdispx*user%pix)/domain%side, ' Ejrim =', crater%ejrim
+          write(*,*) 'L16 = ', rray, 'L1 = ', l1
        else
          write(message,'("Ejb: Dc=",ES9.2," Ej/S=",F0.3)') crater%fcrat,(crater%ejdispx*user%pix)/domain%side
          call io_updatePbar(message)