Removed write statement

MintonGroup · Apr 10, 2020 · a9f6500 · a9f6500
1 parent dd9b1f0
commit a9f6500
Showing 1 changed file with 0 additions and 1 deletion.
diff --git 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