diff --git a/src/ejecta/ejecta_emplace.f90 b/src/ejecta/ejecta_emplace.f90 index 3ed49557..105c3ab4 100644 --- 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)