From 0920100ac680af6994930ac736227f11a5009d21 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 19 Jan 2022 13:49:12 +0100
Subject: [PATCH] Philippe 19/01/2022: minor: remove wrongly duplicated lines

---
 src/MNH/advection_metsv.f90 | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/src/MNH/advection_metsv.f90 b/src/MNH/advection_metsv.f90
index 766bd277c..1ee696f3f 100644
--- a/src/MNH/advection_metsv.f90
+++ b/src/MNH/advection_metsv.f90
@@ -683,10 +683,6 @@ ZCFLV_MAX = MAX_ll(ZCFLV,IINFO_ll)
 ZCFLW_MAX = MAX_ll(ZCFLW,IINFO_ll)
 ZCFL_MAX  = MAX_ll(ZCFL,IINFO_ll)
 #else
-CALL GET_INDICE_ll( IIB,IJB,IIE,IJE)
-!
-IKB=1+JPVEXT
-IKE=SIZE(ZCFLU,3)-JPVEXT
 !
 !$acc kernels
 ZCFLU_MAX = MAXVAL(ZCFLU(IIB:IIE,IJB:IJE,IKB:IKE))
-- 
GitLab