From a9f650055ed77855df03750de5f97c6d8c433907 Mon Sep 17 00:00:00 2001 From: David Minton Date: Fri, 10 Apr 2020 16:01:29 -0400 Subject: [PATCH] Removed write statement --- src/crater/crater_slope_collapse.f90 | 1 - 1 file changed, 1 deletion(-) 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