diff --git a/src/OCE/DOM/domtile.F90 b/src/OCE/DOM/domtile.F90
index dd391b709044048c4aade3bd090ddb86c87d713b..3c1f99b5944e36b343479b30ac6e96b6d633b0fe 100644
--- a/src/OCE/DOM/domtile.F90
+++ b/src/OCE/DOM/domtile.F90
@@ -52,16 +52,6 @@ CONTAINS
       !!----------------------------------------------------------------------
       IF( ln_tile .AND. nn_hls /= 2 ) CALL ctl_stop('dom_tile_init: Tiling is only supported for nn_hls = 2')
 
-      ntile = 0                     ! Initialise to full domain
-      nijtile = 1
-      ntsi = Nis0
-      ntsj = Njs0
-      ntei = Nie0
-      ntej = Nje0
-      nthl = 0
-      nthr = 0
-      nthb = 0
-      ntht = 0
       l_istiled = .FALSE.
 
       IF( ln_tile ) THEN            ! Calculate tile domain indices
diff --git a/src/OCE/LBC/mppini.F90 b/src/OCE/LBC/mppini.F90
index da174b39072a4294fd5303db17f984660faa4851..b59af288e1545ea837104ce5a061db1ccdbba424 100644
--- a/src/OCE/LBC/mppini.F90
+++ b/src/OCE/LBC/mppini.F90
@@ -1413,7 +1413,18 @@ ENDIF
       Ni_0 = Nie0 - Nis0 + 1
       Nj_0 = Nje0 - Njs0 + 1
       !
-      jpkm1 = jpk-1                             !   "           "
+      jpkm1 = jpk-1
+      !
+      ntile = 0                     ! Initialise "no tile" by default
+      nijtile = 1
+      ntsi = Nis0
+      ntsj = Njs0
+      ntei = Nie0
+      ntej = Nje0
+      nthl = 0
+      nthr = 0
+      nthb = 0
+      ntht = 0
       !
    END SUBROUTINE init_doloop