From 27cec3f68029140d41fc694ddf2389cf49dbc388 Mon Sep 17 00:00:00 2001 From: David Minton Date: Sun, 15 Sep 2019 01:09:25 +0200 Subject: [PATCH] made sure label was on end do for superloop --- src/crater/crater_subpixel_diffusion.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/crater/crater_subpixel_diffusion.f90 b/src/crater/crater_subpixel_diffusion.f90 index c1b337e7..aeeec77f 100644 --- a/src/crater/crater_subpixel_diffusion.f90 +++ b/src/crater/crater_subpixel_diffusion.f90 @@ -209,7 +209,7 @@ subroutine crater_subpixel_diffusion(user,surf,nflux,domain,finterval,kdiffin) end do end if - end do + end do superloop kdiff(0,0) = kdiff(user%gridsize,user%gridsize) kdiff(user%gridsize + 1,user%gridsize + 1) = kdiff(1,1)