Initialise advection progress arrays, closes #134.

mom-ocean · Apr 13, 2015 · 20bd5f9 · 20bd5f9
1 parent 16633c1
commit 20bd5f9
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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