From e3942afd17508fb602a9e8e2e5e1c2d65b1addd1 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Fri, 4 Jun 2021 10:02:19 +0200
Subject: [PATCH] Quentin 04/06/2021: bugfix remove duplication of pointer
 declaration

---
 src/MNH/modd_fieldn.f90 | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/src/MNH/modd_fieldn.f90 b/src/MNH/modd_fieldn.f90
index ad3288ed5..e5a933bba 100644
--- a/src/MNH/modd_fieldn.f90
+++ b/src/MNH/modd_fieldn.f90
@@ -171,11 +171,6 @@ REAL, DIMENSION(:,:,:), POINTER :: XRCM=>NULL()
 REAL, DIMENSION(:,:),   POINTER :: XFLUCTUNW=>NULL(),XFLUCTVNN=>NULL(),XFLUCTUTN=>NULL(),XFLUCTVTW=>NULL()
 REAL, DIMENSION(:,:),   POINTER :: XFLUCTUNE=>NULL(),XFLUCTVNS=>NULL(),XFLUCTUTS=>NULL(),XFLUCTVTE=>NULL()
 REAL, DIMENSION(:,:),   POINTER :: XFLUCTWTW=>NULL(),XFLUCTWTN=>NULL(),XFLUCTWTE=>NULL(),XFLUCTWTS=>NULL()
-REAL, DIMENSION(:,:,:), POINTER :: XHLC_HRC=>NULL()
-REAL, DIMENSION(:,:,:), POINTER :: XHLC_HCF=>NULL()
-REAL, DIMENSION(:,:,:), POINTER :: XHLI_HRI=>NULL()
-REAL, DIMENSION(:,:,:), POINTER :: XHLI_HCF=>NULL()
-
 CONTAINS
 
 SUBROUTINE FIELD_GOTO_MODEL(KFROM, KTO)
-- 
GitLab