From 643728eb1e95df11b263cdc2199ead880a6a6d81 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 30 Jan 2019 09:42:24 +0100
Subject: [PATCH] Quentin 29/01/2019: SURFEX: bug: remove obsolete variable and
use the correct one
---
src/SURFEX/prep_grib_grid.F90 | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/src/SURFEX/prep_grib_grid.F90 b/src/SURFEX/prep_grib_grid.F90
index 9461f2e40..de1b37958 100644
--- a/src/SURFEX/prep_grib_grid.F90
+++ b/src/SURFEX/prep_grib_grid.F90
@@ -115,8 +115,6 @@ INTEGER :: JLOOP1 ! Dummy counter
!JUAN
!JUAN
INTEGER :: INFOMPI, J
-INTEGER(KIND=kindOfInt),DIMENSION(:),ALLOCATABLE :: INLO_GRIB ! Number of points along a parallel
-
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
@@ -495,7 +493,7 @@ SELECT CASE (HGRIDTYPE)
CALL GRIB_IS_MISSING(IGRIB,'pl',IMISSING,IRET)
IF (IRET == 0 .OR. IMISSING/=1) THEN ! quasi-regular
CALL GRIB_GET(IGRIB,'pl',ININLO_GRIB)
- XILO2=360.-360./(MAXVAL(INLO_GRIB))
+ XILO2=360.-360./(MAXVAL(ININLO_GRIB))
print*,"XILO2=",XILO2
ENDIF
DEALLOCATE(ININLO_GRIB)
--
GitLab