From a9c93540dea2b00edab6a3f4cc8eeb376b625e62 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Thu, 17 Mar 2016 12:59:13 +0000
Subject: [PATCH] Juan & JP Chaboureau : 07/03/2016 fix the dimensions of local
 arrays

---
 src/MNH/write_lfifm1_for_diag_supp.f90 | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/MNH/write_lfifm1_for_diag_supp.f90 b/src/MNH/write_lfifm1_for_diag_supp.f90
index 6f2963bb4..eb1acb107 100644
--- a/src/MNH/write_lfifm1_for_diag_supp.f90
+++ b/src/MNH/write_lfifm1_for_diag_supp.f90
@@ -82,6 +82,7 @@ END MODULE MODI_WRITE_LFIFM1_FOR_DIAG_SUPP
 !!      2015 : D.Ricard add UM10/VM10 for LCARTESIAN=T cases
 !!      J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 
 !!      P.Tulet : Diag for salt and orilam
+!!      J.-P. Chaboureau 07/03/2016 fix the dimensions of local arrays
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -200,9 +201,9 @@ REAL,DIMENSION(SIZE(XTHT,1),SIZE(XTHT,2),SIZE(XTHT,3))  :: ZCORIOZ
 !
 !*       0.     ARRAYS BOUNDS INITIALIZATION
 !
-IIU=NIMAX+2*JPHEXT
-IJU=NJMAX+2*JPHEXT
-IKU=NKMAX+2*JPVEXT
+IIU=SIZE(XTHT,1)
+IJU=SIZE(XTHT,2)
+IKU=SIZE(XTHT,3)
 CALL GET_INDICE_ll (IIB,IJB,IIE,IJE)
 IKB=1+JPVEXT
 IKE=IKU-JPVEXT
-- 
GitLab