Juan 24/11/2015: cast to INT array size argument

e0967d61 · ESCOBAR MUNOZ Juan · WAUTELET Philippe · 68b1d1dc · e0967d61
Commit e0967d61 authored 9 years ago by ESCOBAR MUNOZ Juan Committed by WAUTELET Philippe 8 years ago
--- 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