From 147f41e96b3119309df99dad6a7d6e18344824b2 Mon Sep 17 00:00:00 2001 From: David Minton Date: Mon, 30 Sep 2019 18:33:59 -0400 Subject: [PATCH] Updated tally --- src/crater/crater_tally_observed.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/crater/crater_tally_observed.f90 b/src/crater/crater_tally_observed.f90 index 0b211083..b07a5de8 100644 --- a/src/crater/crater_tally_observed.f90 +++ b/src/crater/crater_tally_observed.f90 @@ -150,7 +150,7 @@ subroutine crater_tally_observed(user,surf,domain,nkilled,onum,obsdist,obslist,o !$OMP SHARED(user,surf) & !$OMP SHARED(domain,maxpix,istart,iend,ind,mlist,mposlist,mpxlist,mlayerlist) & !$OMP SHARED(tnum,totpix,poslist,tlist,tmp_depthdiam,countable,Kval) & - !$OMP REDUCTION(+:nkilled) & + !$OMP REDUCTION(+:nkilled) !$OMP DO do craternum = 1,tnum ! This is the first pixel of this crater, so record the appropriate values