From c55a66bb32fdb57ef34137b70f8ff2d7ce3a82c1 Mon Sep 17 00:00:00 2001 From: daminton Date: Wed, 22 Feb 2017 21:27:37 +0000 Subject: [PATCH] Fixed initialization bug of kdiff in crater_populate --- src/crater/crater_populate.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/crater/crater_populate.f90 b/src/crater/crater_populate.f90 index 05651f65..b83524c5 100644 --- a/src/crater/crater_populate.f90 +++ b/src/crater/crater_populate.f90 @@ -71,7 +71,7 @@ subroutine crater_populate(user,surf,crater,domain,prod,production_list,vdist,nt character(len=MESSAGESIZE) :: message ! message for the progress bar real(DP) :: ejbmass logical :: makecrater - real(DP),dimension(user%gridsize,user%gridsize) :: kdiff + real(DP),dimension(user%gridsize,user%gridsize) :: kdiff TARGET :: surf ! ejecta blanket array @@ -123,6 +123,7 @@ subroutine crater_populate(user,surf,crater,domain,prod,production_list,vdist,nt ! Reset coverage map domain%tallycoverage = 0 domain%subpixelcoverage = 0 + kdiff = 0.0_DP do while (icrater < ntotcrat) makecrater = .true. icrater = icrater + 1