From e0967d61e273f3bbe84d830773a1cad34e718340 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Tue, 24 Nov 2015 13:54:54 +0000
Subject: [PATCH] Juan 24/11/2015: cast to INT array size argument

---
 src/SURFEX/extend_grid_on_halo_conf_proj.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/SURFEX/extend_grid_on_halo_conf_proj.F90 b/src/SURFEX/extend_grid_on_halo_conf_proj.F90
index 517221e6a..874393fc2 100644
--- a/src/SURFEX/extend_grid_on_halo_conf_proj.F90
+++ b/src/SURFEX/extend_grid_on_halo_conf_proj.F90
@@ -63,7 +63,7 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !* original grid
 REAL                            :: ZLAT0, ZLON0, ZRPK, ZBETA, ZLATOR, ZLONOR
 INTEGER                         :: IIMAX, IJMAX
-REAL, DIMENSION(PGRID_PAR(11))      :: ZX, ZY, ZDX, ZDY
+REAL, DIMENSION(INT(PGRID_PAR(11)))      :: ZX, ZY, ZDX, ZDY
 !
 !* extended grid
 INTEGER                         :: IIMAX_EXTENDED, IJMAX_EXTENDED
-- 
GitLab