diff --git a/src/MNH/advection_metsv.f90 b/src/MNH/advection_metsv.f90 index 766bd277c9966cbf6de6306d1b2c64d98ec16e7f..1ee696f3ff82470b1da5b7c0151b013f9e2eb9c5 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))