diff --git a/src/OCE/LBC/mppini.F90 b/src/OCE/LBC/mppini.F90 index 424ee08bb88b878e59dcf8ab3398e1626aa6f050..99df2fa791d7353ee20eede0abea6a8d794ade02 100644 --- a/src/OCE/LBC/mppini.F90 +++ b/src/OCE/LBC/mppini.F90 @@ -1465,28 +1465,6 @@ 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 - ! - 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