From 0115c702b922171fa2c04ec46fbc8a826a61ce71 Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Tue, 1 Dec 2015 15:25:26 +0000
Subject: [PATCH] P.Tulet 11/2015 : debordement tableau YRECFM

---
 src/SURFEX/read_dummyn.F90      | 3 ++-
 src/SURFEX/writesurf_dummyn.F90 | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/SURFEX/read_dummyn.F90 b/src/SURFEX/read_dummyn.F90
index c6c407dda..5d24e91fb 100644
--- a/src/SURFEX/read_dummyn.F90
+++ b/src/SURFEX/read_dummyn.F90
@@ -18,6 +18,7 @@
 !!    MODIFICATIONS
 !!    -------------
 !!      Original    03/2004
+!!      P.Tulet     2015  Bug depassement de tableau YRECFM
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -77,7 +78,7 @@ ALLOCATE(XDUMMY_FIELDS(NSIZE_FULL,NDUMMY_NBR))
 !
 DO JDUMMY=1,NDUMMY_NBR
   !
-  WRITE(YRECFM,FMT='(A8,I3.3,A5)') 'DUMMY_GR',JDUMMY,'     '
+  WRITE(YRECFM,FMT='(A8,I3.3,A1)') 'DUMMY_GR',JDUMMY,' '
   CALL READ_SURF(HPROGRAM,YRECFM,XDUMMY_FIELDS(:,JDUMMY),IRESP,HCOMMENT=YCOMMENT)
   !
   !
diff --git a/src/SURFEX/writesurf_dummyn.F90 b/src/SURFEX/writesurf_dummyn.F90
index b0fa392e5..9290824e1 100644
--- a/src/SURFEX/writesurf_dummyn.F90
+++ b/src/SURFEX/writesurf_dummyn.F90
@@ -18,6 +18,7 @@
 !!    MODIFICATIONS
 !!    -------------
 !!      Original    03/2004
+!!      P.Tulet     2015  Bug depassement de tableau YRECFM
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -70,7 +71,7 @@ YCOMMENT=' '
 !
 DO JDUMMY=1,NDUMMY_NBR
   !
-  WRITE(YRECFM,'(A8,I3.3,A5)') 'DUMMY_GR',JDUMMY,'     '
+  WRITE(YRECFM,'(A8,I3.3,A1)') 'DUMMY_GR',JDUMMY,' '
   YSTRING20=CDUMMY_NAME(JDUMMY)
   YSTRING03=CDUMMY_AREA(JDUMMY)
   YCOMMENT='X_Y_'//YRECFM//YSTRING20//YSTRING03//  &
-- 
GitLab