Juan & JP Chaboureau : 07/03/2016 fix the dimensions of local arrays
authorJuan Escobar <juan.escobar@aero.obs-mip.fr>
Thu, 17 Mar 2016 12:59:13 +0000 (12:59 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/MNH/write_lfifm1_for_diag_supp.f90

index 6f2963b..eb1acb1 100644 (file)
@@ -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