From 34851c9ca56e214c724a9420a0122e4bbb83c058 Mon Sep 17 00:00:00 2001
From: Renaud Person <renaud.person@locean.ipsl.fr>
Date: Fri, 29 Jul 2022 13:28:47 +0200
Subject: [PATCH] typo mppini
---
src/OCE/LBC/mppini.F90 | 22 ----------------------
1 file changed, 22 deletions(-)
diff --git a/src/OCE/LBC/mppini.F90 b/src/OCE/LBC/mppini.F90
index 424ee08bb..99df2fa79 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
--
GitLab