diff --git a/src/crater/crater_slope_collapse.f90 b/src/crater/crater_slope_collapse.f90 index 71944fd2..2e05f80c 100644 --- a/src/crater/crater_slope_collapse.f90 +++ b/src/crater/crater_slope_collapse.f90 @@ -83,7 +83,6 @@ subroutine crater_slope_collapse(user,surf,crater,domain,critical,deltaMtot) if (user%dorealistic) then call crater_realistic_slope_texture(user,critical,inc,critarray) - write(*,*) 'critical, max min, ',critical,minval(critarray),maxval(critarray) else critarray(:,:) = critical end if