From c382d3b78decd23b0e8584abf118671fdc84a535 Mon Sep 17 00:00:00 2001 From: daminton Date: Thu, 23 Feb 2017 11:51:18 +0000 Subject: [PATCH] Removed OpenMP directives from crater_soften_accumulate because array reduction was causing problems --- src/crater/crater_soften_accumulate.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/crater/crater_soften_accumulate.f90 b/src/crater/crater_soften_accumulate.f90 index cc2c6c79..39b4d035 100644 --- a/src/crater/crater_soften_accumulate.f90 +++ b/src/crater/crater_soften_accumulate.f90 @@ -53,9 +53,9 @@ subroutine crater_soften_accumulate(user,surf,crater,domain,kdiff) incsq = inc**2 ! Loop over affected matrix area - !$OMP PARALLEL DO DEFAULT(PRIVATE) IF(inc > INCPAR) & - !$OMP SHARED(user,crater,fradsq,inc,incsq,kappatmax,SOFTEN_SIZE) & - !$OMP REDUCTION(+:kdiff) + !!$OMP PARALLEL DO DEFAULT(PRIVATE) IF(inc > INCPAR) & + !!$OMP SHARED(user,crater,fradsq,inc,incsq,kappatmax,SOFTEN_SIZE) & + !!$OMP REDUCTION(+:kdiff) do j = -inc,inc ! Do the loop in pixel space do i = -inc,inc ! find distance from crater center @@ -86,7 +86,7 @@ subroutine crater_soften_accumulate(user,surf,crater,domain,kdiff) end do end do !end area loopover - !$OMP END PARALLEL DO + !!$OMP END PARALLEL DO return end subroutine crater_soften_accumulate