P.Tulet 11/2015 : debordement tableau YRECFM
authorGaelle Tanguy <gaelle.tanguy@meteo.fr>
Tue, 1 Dec 2015 15:25:26 +0000 (15:25 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/SURFEX/read_dummyn.F90
src/SURFEX/writesurf_dummyn.F90

index c6c407d..5d24e91 100644 (file)
@@ -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)
   !
   !
index b0fa392..9290824 100644 (file)
@@ -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//  &