Gaelle 23/4/2014 : taille de YGROUP passe a 5000 pour gros fichiers

tools/diachro/src/DIAPRO/prints.f90

@@ -110,7 +110,7 @@ CHARACTER(LEN=16) :: YRECFM
 CHARACTER(LEN=40) :: YTEM
 ! Aout 99 Longueur YCOMMENT passee de 20 A 100
 CHARACTER(LEN=100) :: YCOMMENT
-CHARACTER(LEN=16),DIMENSION(2000),SAVE    :: YGROUP 
+CHARACTER(LEN=16),DIMENSION(5000),SAVE    :: YGROUP 
 !
 !-------------------------------------------------------------------------------
 IIB=1+JPHEXT; IIE=NIMAX+JPHEXT

tools/diachro/src/DIAPRO/read_filehead.f90

@@ -62,7 +62,7 @@ CHARACTER(LEN=*) :: HFILEDIA, HLUOUTDIA
 !
 CHARACTER(LEN=16) :: YRECFM
 CHARACTER(LEN=100) :: YCOMMENT
-CHARACTER(LEN=16),DIMENSION(2000),SAVE    :: YGROUP 
+CHARACTER(LEN=16),DIMENSION(5000),SAVE    :: YGROUP 
 INTEGER   ::   ILENG, ILENCH, IGRID, J, JJ, ILENDIM
 INTEGER   ::   IRESPDIA
 INTEGER,SAVE   ::   IGROUP=0
@@ -84,7 +84,6 @@ IF (IRESPDIA .NE. 0) THEN
   print*,' (ne pas appliquer conv2dia sur la sortie .000 du run)'
   STOP
 END IF
-
 ALLOCATE(ITABCHAR(ILENG))
 YRECFM='MENU_BUDGET'
 CALL FMREAD(HFILEDIA,YRECFM,HLUOUTDIA,ILENG,ITABCHAR, &