From f3761aed3d847c3b390345fab98ecd737917c344 Mon Sep 17 00:00:00 2001 From: Gaelle Tanguy <gaelle.tanguy@meteo.fr> Date: Wed, 23 Apr 2014 08:35:17 +0000 Subject: [PATCH] Gaelle 23/4/2014 : taille de YGROUP passe a 5000 pour gros fichiers --- tools/diachro/src/DIAPRO/prints.f90 | 2 +- tools/diachro/src/DIAPRO/read_filehead.f90 | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/tools/diachro/src/DIAPRO/prints.f90 b/tools/diachro/src/DIAPRO/prints.f90 index 630e2a837..0c84925b5 100644 --- a/tools/diachro/src/DIAPRO/prints.f90 +++ b/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 diff --git a/tools/diachro/src/DIAPRO/read_filehead.f90 b/tools/diachro/src/DIAPRO/read_filehead.f90 index 8ae07a8f0..bdc450f6c 100644 --- a/tools/diachro/src/DIAPRO/read_filehead.f90 +++ b/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, & -- GitLab