From 20bd5f91cf6fd9824e283f56eeaa0b7d08a96421 Mon Sep 17 00:00:00 2001 From: Nicholas Hannah Date: Tue, 14 Apr 2015 05:07:12 +1000 Subject: [PATCH] Initialise advection progress arrays, closes #134. --- src/tracer/MOM_tracer_advect.F90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/tracer/MOM_tracer_advect.F90 b/src/tracer/MOM_tracer_advect.F90 index dbbed8f771..f5c27b9994 100644 --- a/src/tracer/MOM_tracer_advect.F90 +++ b/src/tracer/MOM_tracer_advect.F90 @@ -140,6 +140,8 @@ subroutine advect_tracer(h_end, uhtr, vhtr, OBC, dt, G, CS, Reg) integer :: isv, iev, jsv, jev ! The valid range of the indices. integer :: IsdB, IedB, JsdB, JedB + domore_u(:,:) = .false. + domore_v(:,:) = .false. is = G%isc ; ie = G%iec ; js = G%jsc ; je = G%jec ; nz = G%ke isd = G%isd ; ied = G%ied ; jsd = G%jsd ; jed = G%jed IsdB = G%IsdB ; IedB = G%IedB ; JsdB = G%JsdB ; JedB = G%JedB