diff --git a/src/OCE/LBC/mppini.F90 b/src/OCE/LBC/mppini.F90 index 1a600ec86a0caf1151b0247018e41f6aed30db47..424ee08bb88b878e59dcf8ab3398e1626aa6f050 100644 --- a/src/OCE/LBC/mppini.F90 +++ b/src/OCE/LBC/mppini.F90 @@ -1476,6 +1476,17 @@ ENDIF nthb = 0 ntht = 0 ! + ntile = 0 ! Initialise to full domain + nijtile = 1 + ntsi = Nis0 + ntsj = Njs0 + ntei = Nie0 + ntej = Nje0 + nthl = 0 + nthr = 0 + nthb = 0 + ntht = 0 + ! END SUBROUTINE init_doloop