From d9577e81d1b092a5c9820393f8aed8b23af78eb4 Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Thu, 26 Nov 2015 14:59:47 +0000
Subject: [PATCH] C.Lac : IJPHEXT=1 for old files of AROME
---
src/MNH/mnhopen_aux_io_surf.f90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/MNH/mnhopen_aux_io_surf.f90 b/src/MNH/mnhopen_aux_io_surf.f90
index 1ecf5dccc..0feac5888 100644
--- a/src/MNH/mnhopen_aux_io_surf.f90
+++ b/src/MNH/mnhopen_aux_io_surf.f90
@@ -134,6 +134,7 @@ COUTFILE = HFILE
CALL FMREAD(HFILE,'IMAX',COUT,'--',IIMAX,IGRID,ILENCH,YCOMMENT,IRESP)
CALL FMREAD(HFILE,'JMAX',COUT,'--',IJMAX,IGRID,ILENCH,YCOMMENT,IRESP)
CALL MNH_SURF_GRID_IO_INIT(IIMAX,IJMAX)
+IJPHEXT= 1
CALL FMREAD(HFILE,'JPHEXT',COUT,'--',IJPHEXT,IGRID,ILENCH,YCOMMENT,IRESP)
IF ( IJPHEXT .NE. JPHEXT ) THEN
WRITE(NLUOUT,FMT=*) ' MNHOPEN_AUX_IO : JPHEXT in PRE_PGD1.nam/NAM_CONF_PGD ( or default value )&
--
GitLab